delphi调用C# Webservice返回数据集

yangchchMsn

procedure TForm1.Button1Click(Sender:TObject);

var

IService: DataSetWebServiceSoap;

begin

IService := HTTPRIO1 asDataSetWebServiceSoap;

IService.Customers;

//ShowMessage(IService.HelloWorld());

//}

end;

procedure TForm1.HTTPRIO1BeforeExecute(constMethodName: string;

var SOAPRequest: WideString);

var

ts: tStringStream;

buffer: string;

begin

{

buffer := SOAPrequest;

ts := tStringStream.Create(buffer);

Showxml(ts, Send);

}

end;

procedure TForm1.HTTPRIO1AfterExecute(constMethodName: string;

SOAPResponse: TStream);

var

XMLDoc: IXMLDocument;

begin

SOAPResponse.Position := 0;

Memo1.Lines.LoadFromStream(SOAPResponse);

ClientDataset1.Active := FALSE;

SOAPResponse.Position := 0;

XMLDoc := NewXMLDocument;//应该是'SUTF8'并需要引用XMLIntf,XMLDoc两个单元

// XMLDoc.Encoding := SUTF8;

SOAPResponse.Position := 0;

XMLDoc.LoadFromStream(SOAPResponse);

//XMLDoc.SaveToFile('c:\aa.xml');

//XMLTransformProvider1.TransformRead.SourceXmlFile:= 'c:\aa.xml';

XMLTransformProvider1.TransformRead.SourceXmlDocument:= XMLDoc.GetDOMDocument;

ClientDataset1.Active := TRUE;
http://www.cnblogs.com/fuyingke/archive/2006/07/31/438442.html
end;