delphi2010 开发及调试WebService 实例

sher

　　delphi2010 开发及调试WebService 实例
　　基于Delphi的WebService编写
　　Delphi编写soap服务器与客户端程序
　　Delphi XE5通过WebService开发Web服务端和手机客户端
　　2017/03/02
　　---------------------------------------------------------------------------------------------------------------------
　　按“delphi2010 开发及调试WebService 实例”步骤到第7步时点击WSDL出现不了XML文档，最后生成文件失败。对WebService开发一窍不通，具体原因不明。
　　在此希望有了解此道的大侠指点。

网络上可供测试的Web Service
　　参考：
　　WebService 的创建,部署和使用

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、编译、执行；