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