delphi调用C# Webservice返回数据集
来源:互联网 发布:sql union group 编辑:程序博客网 时间:2024/05/21 15:36
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;
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;
- delphi调用C# Webservice返回数据集
- delphi 中如何调用webservice返回dataset 数据集
- Delphi调用 .net webService 返回数据;
- delphi 调用C# webservice
- Delphi 调用C# webservice
- Delphi调用C#编写的WebService返回空值
- Delphi 7 调用 C# WebService
- 关于delphi调用c#写的webservice
- Delphi 调用C# webservice (转)
- Delphi调用C#写的webservice
- webService--返回数据集
- webService--返回数据集
- Delphi中调用oracle的存储过程返回数据集
- gsoap 访问c# webservice 返回数据集的示例小结
- jQuery调用WebService返回JSON数据
- jQuery Ajax调用WebService返回JSON数据
- jQuery调用WebService返回JSON数据
- jQuery调用WebService返回JSON数据
- C++ 虚函数表解析--转载
- src.rpm如何安装
- msp430f149学习心得之一 时钟配置
- Microsoft Patterns & Practices系列书籍就如何采用Windows Azure提供指导
- opencv与videoInput
- delphi调用C# Webservice返回数据集
- C#定义静态事件
- Java中简单的排列组合
- ImageFlow相片特效套件
- Linux用户进程间通信机制在内核的实现
- 智力题
- CStatic
- spi概念
- 单点登陆(CAS)学习