delphi 调用 webservice (.NET C#版)

 uses XMLIntf, XMLDoc;

 XML to  XTR文件转换

 、File-->open打开你要分析的XML文件
 、在左边选择你要分析的接点，双击加到中间的转换列表中
 、Create-->DataPacket from XML
 、Create and Test Transformation
 、file-->save-->Transformation得到一个.xtr的文件
 、打开.xtr文件，第一行找到"><SelectEach dest="DATAPACKET\ROWDATA\ROW" from="\Envelope\Body\……>
    把‘soap：’、‘diffgr:’删除，保存
 、XMLTransformProvider->transformRead->TransformationFile指向.xtr文件
 、设置ClientDataSet1的ProviderName属性

 =====客户端==============================================================

  必需先

 CEMAI.GetCEMAISoap;

 =============

 procedure TMainfrm.Button1Click(Sender: TObject);
 begin
   Edit1.Text:=XTRPath ;
   HttpRIO1.HTTPWebNode.Agent := 'Borland SOAP 1.2'  ;
   HttpRIO1.HTTPWebNode.UseUTF8InHeader  :=  True;
   HttpRIO1.Converter.Options  :=  HttpRIO1.Converter.Options  +  [soUTF8InHeader,  soUTF8EncodeXML];
   HttpRIO1.Converter.Options := [soSendMultiRefObj, soTryAllSchema, soRootRefNodesToBody, soUTF8InHeader, soCacheMimeResponse, soUTF8EncodeXML];
   HttpRio1.Converter.Encoding := 'utf-8' ;
   HttpRIO1.URL  :=  defURL;
   (HTTPRIO1 as CEMAISoap).GetDataSet(Key,Ssql);
 end;

 =========================

 procedure TMainfrm.HTTPRIO1AfterExecute(const MethodName: String;
   SOAPResponse: TStream);
 var
   XMLDoc: IXMLDocument;
 begin
   SOAPResponse.Position := ;
   ClientDataset1.Active := FALSE;
   SOAPResponse.Position := ;

   XMLDoc := NewXMLDocument;
   XMLDoc.Encoding := 'UTF8';
   SOAPResponse.Position := ;
   XMLDoc.LoadFromStream(SOAPResponse);
   xmlDoc.SaveToFile('c:\max.xml');   //保存xml文件到根目录

   XMLTransformProvider1.TransformRead.SourceXmlDocument := XMLDoc.GetDOMDocument;
   XMLTransformProvider1.TransformRead.TransformationFile := Edit1.Text;
   ClientDataSet1.OPEN ;
   ClientDataset1.Active := TRUE;

 end;

 =====服务单元，自动生成=================================

 服务单元，必需在initialization处加一句。

 initialization
   InvRegistry.RegisterInvokeOptions(TypeInfo(CEMAISoap),ioDocument) ;