3.delphi 调用 webService 方法

1.浏览对方提供的web网址，在网址后面加上?wsdl 生成 xml 形式，然后将文档保存下来。
new -->orther -->webservices-->wsdl impoeter 

 

第一种：动态url

       Apppath := ExtractFilePath(Application.ExeName);  //本项目目录下

        IniHandle := TIniFile.Create(Apppath + 'BYJJKCallConfig.ini');

        http.HTTPWebNode.UseUTF8InHeader := True;

        http.URL:=IniHandle.ReadString('WEBSERVICE','url','') ;

        Soap := WebInterface1.GetWebInterfaceSoap(False,http.URL);

        //Soap := WebInterface1.GetWebInterfaceSoap(True,'',http);

        ret := Soap.SendEmr(strBasj);

        dm.WriteLog(#13#10+'yh_webservice_call='+(ret));

第二种：静态url

 Soap := WebInterface1.GetWebInterfaceSoap(True,http.URL);

 ret := Soap.SendEmr(strBasj);