C#中有 "添加WEB引用" 但delphi中如何实现这个动作

编程技术  /  houtizong 发布于 3年前   82

有待整理： 

 

[穗]SkyWin(228808227) 2010-4-20 16:16:18
C#中有 "添加WEB引用"，但delphi中如何实现这个动作？
 
 
[闽]叽哩咕噜(562669596) 2010-4-20 16:17:08
web引用？
深圳-肥鸟(66788513) 2010-4-20 16:17:49
web service？
[北京]wonder(16196472) 2010-4-20 16:18:04
文件，新建，WSDL那玩意
[滇]20多年光棍(825292499) 2010-4-20 16:18:20
using ....=uses
[北京]wonder(16196472) 2010-4-20 16:18:53
文件，新建，其它，webservice, WSDL导入器
[北京]zerg(25539649) 2010-4-20 16:19:14
delphi中实现方式不一样了
[北京]wonder(16196472) 2010-4-20 16:19:18
输入URL?WSDL 然后就会生成一个pas文件，通过httpprio可以调用
[北京]zerg(25539649) 2010-4-20 16:19:20
需要wsdl导入
[北京]wonder(16196472) 2010-4-20 16:19:36
你命好，skywin，我刚弄过这个
[北京]zerg(25539649) 2010-4-20 16:19:37
delphi目录下有个: wsdlimp.exe
[北京]zerg(25539649) 2010-4-20 16:19:49
我两年前弄过这个...
[北京]wonder(16196472) 2010-4-20 16:21:05
  function WebService_UpdateMacByUserID

(HTTPRIO:THTTPRIO;UID:Integer;LocalMAC:string):boolean;//向服务器发送UID On NewMac
  begin
    result:=False;
    if not Net_InternetConnected then exit;  //如果中间断网，自动退出
    try
      if UID>0 then begin
        result:=(HTTPRIO as ClientServicesoap).UpdateMacByUserID(UID,LocalMAC); // if

webservice call ok then return callresult
      end;
    except
      // if webservice call fail return fail，but tell user what's happend
      on E:Exception do _Error('Web服务调用失败：无法提交Mac数据到服务器! '+chr(13)+chr(10)

+'错误原因：'+e.Message);
    end;
  end;

[北京]wonder(16196472) 2010-4-20 16:21:43
(HTTPRIO as 你导入的那个webservice).webservice的函数;

就这么调用就行了
[北京]wonder(16196472) 2010-4-20 16:21:53
之前要设置httprio
[北京]wonder(16196472) 2010-4-20 16:22:16
当然里头还有几个技巧。如果是调用.net，需要声明document模式
[北京]wonder(16196472) 2010-4-20 16:24:17
InvRegistry.RegisterInvokeOptions(TypeInfo(ClientServiceSoap), ioDocument);
[北京]wonder(16196472) 2010-4-20 16:24:33
差不多就这么多，还是很easy的