Webservice 返回数据集 DataSet
浏览数：15 /
时间：2015年06月09日
一、服务端
New TSoapDataModule
添加控件 TDataSetProvider，TClientDataSet，TADOQuery，TADOConnection
添加方法
function TsoapTest.Getdata(const sql: UTF8String): Variant;
begin
dm.ADOQuery1.Close;
dm.ADOQuery1.sql.Text := ‘select top 50 * from mz‘;
dm.ADOQuery1.Open;
dm.ClientDataSet1.Data := dm.DataSetProvider1.Data;
Result := dm.ClientDataSet1.XMLData;
end;
客户端VCL
procedure TForm25.btnGetDataClick(Sender: TObject);
begin
HTTPRIO1.URL := ‘http://localhost:8080/soap/IsoapTest‘;
ClientDataSet1.XMLData := (HTTPRIO1 as IsoapTest).Getdata(‘‘);
end;
Android客户端
FireMonkey客户度平台
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
