sher 发表于 2017-12-29 12:03:34

delphi2010 开发及调试WebService 实例

  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、编译、执行;
页: [1]
查看完整版本: delphi2010 开发及调试WebService 实例