Delphi 调用C# webservice

实际写的一段:

1、工程内,File->new->Webservice->WSDLImporter,导入webservice地址,生成一个新的pas,得到输出函数,比如叫GetSvrForPosSoap

2、该pas内切记,在initialization后面加上

  InvRegistry.RegisterInvokeOptions(TypeInfo(SvrForPosSoap), ioDocument);//这行要手工加,否则传入参数会为空

3、


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SOAPHTTPClient, StdCtrls, InvokeRegistry, Rio, ActiveX;

uses
   SvrForPos,XSBuiltIns;

procedure TForm1.Button1Click(Sender: TObject);
var
  HelloWorld,sMsg:widestring;
  HTTPRIO:THTTPRIO;
begin
  try
    begin
      HTTPRIO := THTTPRIO.Create(Application);
      HTTPRIO.HTTPWebNode.UseUTF8InHeader:=true;
      HelloWorld := GetSvrForPosSoap(True,'', HTTPRIO).HelloWorld('Test My Brain,脑子!我要脑子!');
      Edit1.Text:=HelloWorld;
    end
  Except
  On E:Exception do
    begin
      sMsg:=E.Message;
      sMsg:='意外失败:'+sMsg;
      showmessage(sMsg);
    end;
  end;
end;

4、稍注意: coinitialize( nil )和CoUninitialize;



============================================================

例子1:

http://www.cnblogs.com/jxsoft/archive/2011/07/21/2113012.html

 

 

例子2:

 

Webservice技术的出现将各种开发技术和语言完全的融合了,下面就这种融合在C#和delphi之间的交互做一次全面的体现

1.使用C#创建一个Webservice服务。
使用vs2005的模板创建C#的webservice非常容易。原文件如下:
[WebService(Namespace = "http://localhost/webserver/")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]

public>
    >         {
            >     }
}
2.使用delphi创建一个dll(非com的dll),该dll调用上面的webserivce服务。
   使用delphi调用C#的webservice过程也很容易,但是对于新手可能比较麻烦(我就是这么过来的)
   第一步:创建一个dll单元: //http://www.newasp.net/tech/57522.html
{$R *.res}
function GetNum(a,b:integer):integer>   result:=ireturn;
end;
exports
   GetNum>   defURL   = ’http://localhost/webserver/Service.asmx’;
  >   defPrt   = ’ServiceSoap’;
var
   RIO: THTTPRIO;
begin
   Result :=>   begin
    >     else
       Addr :=>     RIO := THTTPRIO.Create(nil)
  >   try
     //RIO.HTTPWebNode.UseUTF8InHeader:=True; //在此添加一句,修改编码方案。
     Result := (RIO>       RIO.Service := defSvc;

    RIO.Port := defPrt;
    >   finally
    >       RIO.Free;
  >   2.InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument);
     如果传入的参数不能被webservice识别时,多半是因为你没有加上这一句。 

不加就报这个错误:


  
3.使用delphi调用上面的dll
就一个函数,没有什么好说的:
procedure TForm1.Button1Click(Sender: TObject);
type
   GetNumTotal=function(a,b:integer):integer;stdcall;
var
   Th:Thandle;
   Tf:GetNumTotal;
   Tp:TFarProc;
begin
Th:=LoadLibrary(’mywebservice.dll’); {装载DLL}
  >   if Tp<>nil
  >     Edit1.Text:=IntToStr(Tf(1,3)); {调用GetNumTotal函数}
  >//如果是delphi调用该dll必须使用下面的代码。C#调用则不需要了(C#还是要牛一些,呵呵) 
initialization 
   coinitialize(nil);  //关于这儿查看http://www.cnblogs.com/IceKernel/articles/2563721.html  

                       //关于这儿也查看http://blog.csdn.net/tercel99/article/details/2125164 

finalization 
   counInitialize; 


  //uses ActiveX, // 确认加入这个单元 // 老版本的Delphi用 OLE2 代替 Windows;

 use上面这个ActiveX,才能使用initialization 和finalization 


4.使用C#调用上面的dll

[DllImport("mywebservice.dll", EntryPoint = "GetNum")]
public static extern int GetNum(int a, int b);
private void button1_Click(object sender, EventArgs e)
{
      int a,b,i;
      a=10;
      b =20;
      i=GetNum(a,b);   //第一次比较慢(webserivce的唯一弊端!!!!)
      textBox1.Text = i.ToString();  
   }

以下个人经验

在delphi调用 .net webservice时,中文传递过去就会变成????

问题原因:是因为传递时没用使用UTF8方式进行传递。

解决方式:在生成的pas文件中,找到Get*Soap的方法,在中间加入橙色字体那部分。就能够传递中文了

RIO := THTTPRIO.Create(nil);
try
    >      RIO.Service := defSvc;
      RIO.Port :=>    end else
   >      RIO.HTTPWebNode.UseUTF8InHeader := True;//中文
    end;

    Result := (RIO as VioAccessWebServiceSoap);
finally
   >      RIO.Free;
end;


一些其它注意事项:

http://icelander.iteye.com/blog/214586


部署webservice:

http://hi.baidu.com/bmlvy2006/item/d6541f8c34a7d956e73d195c

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在上一篇教程中,我们讲解了如何创建一个C#WebService,并且通过SOAP协议来调用它。这篇教程中,我们将会介绍如何通过Delphi调用这个WebService。 首先,我们需要在Delphi中创建一个新项目。在菜单栏中选择“文件” → “新建” → “VCL Forms 应用程序”。接着,在“工具箱”中选择“SOAP 连接”,将其拖拽到窗体上。 现在,在窗体上双击SOAP连接,打开“SOAP 连接编辑器”。在“WSDL URL”中输入我们上一篇教程中创建的WebService的URL地址,然后点击“导入”按钮。Delphi将会自动解析WebService并生成相应的代码。 接下来,我们需要创建一个按钮并为其添加一个OnClick事件。在事件处理程序中,我们可以调用WebService的方法并获取返回值。以下是示例代码: ```delphi procedure TForm1.Button1Click(Sender: TObject); var service: Service1Soap; str: string; begin service := GetService1Soap(); str := service.HelloWorld(); ShowMessage(str); end; ``` 在这个示例中,我们首先创建了一个Service1Soap类型的变量service,然后通过GetService1Soap函数获取WebService的实例。接着,我们调用WebService中的HelloWorld方法,并将返回值赋值给了str变量。最后,我们通过ShowMessage函数显示了返回值。 现在,我们可以运行程序并点击按钮来测试我们的WebService是否能够正常工作了。 总结: 通过Delphi调用C#WebService非常简单。我们只需要使用Delphi自带的SOAP连接组件,并通过Get函数获取WebService的实例就可以了。如果你还没有尝试过这个功能,那么我建议你花费一些时间来学习它。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值