Delphi XE5通过WebService开发Web服务端和手机客户端
2017/03/02
---------------------------------------------------------------------------------------------------------------------
按“delphi2010 开发及调试WebService 实例”步骤到第7步时点击WSDL出现不了XML文档，最后生成文件失败。对WebService开发一窍不通，具体原因不明。
在此希望有了解此道的大侠指点。
网络上可供测试的Web Service
参考：
Delphi 调用webservice接口
2017/03/02
---------------------------------------------------------------------------------------------------------------------
前些天用网友“delphi2010 开发及调试WebService 实例”的方法一直没有成功，今天无意中试通了。在此记录一下过程：
添加网站，使用“DefaultAppPool”，在“处理程序映射”里使用与“DefaultAppPool”对应的“ISAPI-dll”进行编辑。最后如果在物理路径里有生成“web.config”删掉。
浏览，如果有错误按提示排除即可。
2017/03/02
---------------------------------------------------------------------------------------------------------------------
1、创建Webservices 服务端；
2、在Windows 上添加IIS；
3、启动IIS；
4、配置IIS运行Webservices 服务端；
5、创建Webservices 客户端，运行并调用Webservices 服务端方法。
DelphiXE7中创建WebService(服务端+客户端) good
2017/03/08
---------------------------------------------------------------------------------------------------------------------
Webservices 客户端：
1、创建一个VCL application工程；
2、“File”->“New”－>“Other...”－>“Delphi Projects”->“WebSrvice”->“WSDL Importer”
3、在弹出窗口“WSDL Source”中输入“http://localhost:7923/ReporInfo.dll/wsdl/IMyTest”（前面页面的可生成xml的地址）->“Next”->默认选项->“Finish”
4、delphi会自动引入一个单元，这个单元就是WebService的接口单元，里面会自动生成一个Get开头方法。
5、在VCL单元引用这个接口单元，
使用方法1：
在Form上分别放置TButton、THTTPRIO；
修改HTTPRIO1属性：
a、WSDLLocation: http://localhost:7923/ReporInfo.dll/wsdl/IMyTest（必须先做这一步以下两个属性才有可选项）
b、Service:（下拉可选）
c、Port:（下拉可选）
在TButton->Click事件里编写代码
procedure TForm1.Button1Click(Sender: TObject); var AOS: String; begin AOS := (HTTPRIO1 as IMyTest).SayHello('励研科技'); ShowMessage(AOS); end;
使用方法2：
在Form上放置TButton，在TButton->Click事件里编写代码
procedure TForm1.Button1Click(Sender: TObject); var obj: IMyTest; s: String; begin obj := GetIMyTest(); s := obj.SayHello('阿米'); ShowMessage(s); end;
6、因为字符编码格式的不同，在接口单元有两处需要修改
function GetIMyTest(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IMyTest; const defWSDL = 'http://localhost:7923/ReporInfo.dll/wsdl/IMyTest'; defURL = 'http://localhost:7923/ReporInfo.dll/soap/IMyTest'; defSvc = 'IMyTestservice'; defPrt = 'IMyTestPort'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; RIO.HTTPWebNode.UseUTF8InHeader:= True; //这里加上这一句 try Result := (RIO as IMyTest); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end;
initialization InvRegistry.RegisterInterface(TypeInfo(IMyTest), 'urn:MyTestIntf-IMyTest', ''); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IMyTest), 'urn:MyTestIntf-IMyTest#SayHello'); InvRegistry.RegisterInvokeOptions(TypeInfo(IMyTest), ioDocument);//这里加上这一句
7、编译、执行；
请发表评论