当前位置：首页 > news >正文

delphi2010 开发及调试WebService 实例

news 来源：原创 2024/5/2 23:19:51

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