接上次讲的服务器端。
保持服务器程序运行着。
在客户端工程中,点新建--其它--WebService--WSDL Importer
填入:http://127.0.0.1:777/wsdl/IDLMobileServer
Next>>
Next>>
Next>>
Finish
然后自动生成 IDLMobileServer1.pas文件。
这时候在我们要调用WEBSERVICE 接口的单元中写如下代码:
uses IDLMobileServer1; //引用刚才生成的文件;
public //在这里定义一个接口,以便其它单元可以在这里调用这个接口;
MInterface: IDLMobileServer;
在FORMCREATE里写:
MInterface := GetIDLMobileServer(true,http://127.0.0.1:777/wsdl/IDLMobileServer,nil);
这里就完成接口了。
调用:
uses ZLib;
procedure GetData(SQL: string): string; //解压后返回XML
begin
Result := ZDeCompressStr(MInterface.GetData('这里写下你的SQL'));
end;
//ClientDataSet 的处理:
with ClientDataSet1 do
begin
XMLData := GetData('这里写下你的SQL'');
end;
//这里要注意,SELECT出来的字段,如果是中文的,一般都会出现乱码,只要把数据库字段类型改为NVARCHAR就可以解决。