• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphi2010 开发及调试WebService 实例 网络上可供测试的Web S ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

delphi2010 开发及调试WebService 实例

 

基于Delphi的WebService编写

 

Delphi编写soap服务器与客户端程序

 

Delphi XE5通过WebService开发Web服务端和手机客户端

 

2017/03/02

---------------------------------------------------------------------------------------------------------------------

按“delphi2010 开发及调试WebService 实例”步骤到第7步时点击WSDL出现不了XML文档,最后生成文件失败。对WebService开发一窍不通,具体原因不明。

在此希望有了解此道的大侠指点。

 

 

参考:

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 服务端方法。

 

 

 

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

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
2. matlab入门——逻辑运算发布时间:2022-07-18
下一篇:
matlab基本语法和运算基础发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap