首先发布服务。
写wsdl文件。
在Delphi中,webservice中选择THTTPRIO控件。delphi7.0中有具体的例子。
用Delphi调用,客户端比较简单。function TfrmMain.GetService: house;
begin
http.HTTPWebNode.UseUTF8InHeader :=True;
result := Http as house;
end;aDevice := getService.findByCondition(txtStationID.Text,txtRoomID.Text,txtStructName.Text) ;
写wsdl文件。
在Delphi中,webservice中选择THTTPRIO控件。delphi7.0中有具体的例子。
用Delphi调用,客户端比较简单。function TfrmMain.GetService: house;
begin
http.HTTPWebNode.UseUTF8InHeader :=True;
result := Http as house;
end;aDevice := getService.findByCondition(txtStationID.Text,txtRoomID.Text,txtStructName.Text) ;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货