用Delphi开发WebService供C#调用的一点经验 - 技术板块灌水区 -
CnPack Forum
- Powered by Discuz!
Digest Posts
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered Location China
Status Offline
用Delphi开发WebService供C#调用的一点经验
最近在项目中用Delphi2010做了个独立运行的的WebService应用。
开发过程中遇到两个问题，网上能找到的资料比较少，后来花了点力气自己解决了，记录如下：
一、第一个问题是Delphi提供的WebService向导无法直接在独立的EXE中使用WebService。
解决的办法：
1、先用WebService向导创建一个新工程，其中有一个包含：CODE:HTTPSoapDispatcher1: THTTPSoapD
HTTPSoapPascalInvoker1: THTTPSoapPascalI
WSDLHTMLPublish1: TWSDLHTMLP这三个组件的 TWebModule 模块，手动将这个模块添加到现有的或新建的VCL应用程序中。
2、使用Indy提供的IdHTTPWebBrokerBridge作为WebService的HTTP服务器。
IdHTTPWebBrokerBridge从D7开始就不再随Delphi发布，我是从网上单独下载的，并针对D2010做了一些兼容性修改，改过的文件见附件。
PS：WebService接口方法被调用时，默认是在独立的线程中进行的。我在修改IdHTTPWebBrokerBridge时顺便加了一个同步到主线程中执行调用的功能，由SyncRun属性进行控制。
3、在第一步生成的WebModule中添加两个函数，完整的代码如下：CODE:unit SCWebM
&&SysUtils, Classes, HTTPApp, InvokeRegistry, WSDLIntf, TypInfo, WebServExp,
&&WSDLBind, XMLSchema, WSDLPub, SOAPPasInv, SOAPHTTPPasInv, SOAPHTTPDisp,
&&WebBrokerSOAP, IdHTTPWebBrokerB
&&TSCWebModule = class(TWebModule)
& & HTTPSoapDispatcher1: THTTPSoapD
& & HTTPSoapPascalInvoker1: THTTPSoapPascalI
& & WSDLHTMLPublish1: TWSDLHTMLP
& & procedure SCWebModuleDefaultHandlerAction(Sender: TO
& && &Request: TWebR Response: TWebR var Handled: Boolean);
& & { Private declarations }
& & { Public declarations }
// 启动WebService，在主窗体中调用
procedure SCStartWebService(Port: Integer = 6060);
// 停止WebService，程序关闭时会自动调用
procedure SCStopWebS
implementation
{$R *.dfm}
&&FBridge: TIdHTTPWebBrokerB
procedure SCStartWebService(Port: Integer = 6060);
&&if FBridge && nil then
&&FBridge := TIdHTTPWebBrokerBridge.Create(nil);
&&FBridge.DefaultPort := P
&&FBridge.Active := T
&&FBridge.SyncRun := T
&&FBridge.RegisterWebModuleClass(TSCWebModule);
procedure SCStopWebS
&&if FBridge && nil then
& & FreeAndNil(FBridge);
procedure TSCWebModule.SCWebModuleDefaultHandlerAction(Sender: TO
&&Request: TWebR Response: TWebR var Handled: Boolean);
&&WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled);
initialization
&&WebRequestHandler.WebModuleClass := TSCWebM
finalization
&&SCStopWebS
end.4、要发布的WebService接口按传统的方式编写，并用 InvRegistry.RegisterInterface 注册即可。
二、第二个问题是使用Delphi编写的WebService，如果一个带返回值的函数中使用了out/var型的参数，则C#无法正确调用。
问题分析：
我在C#中调用的方法是，使用VS 2005自带的命令行工具wsdl.exe生成一个C#的封装cs文件，再加入到C#工程中调用。
问题出现在Delphi生成的wsdl描述中，如果函数带有返回值和返回型参数，则会将返回值的说明：
&part name=&return& type=&xs:boolean&/&
放在其它返回型参数的后面。
而wsdl.exe生成的cs文件中，并没有将return识别为返回值，而是将第一个返回型参数当作函数返回值，导致生成的接口声明与Delphi中的不一致。
如果在C#中按照生成的接口来调用，运行时C#程序会挂掉。
经抓包分析，发现Delphi程序在soap调用时，返回的数据中return是排在其它返回型参数前面的，与wsdl中描述的正好相反。
解决办法：
在网上查了很多资料，都没找到合适的办法，只好自己动手了。
打开Delphi自带的 WebServExp.pas 文件，XE2中叫 Soap.WebServExp.pas，查找 TWebServExp.AddMessages 方法，将里面的这段代码：CODE:& & { Add Out parts }
& & { Note: We always have a Message for the response - irrespective of return|out }
& & NewMessage := AddMessage(Messages, GetMessageName(MethodExtName, Methods, mtOutput));
& & Parts := NewMessage.P
& & for Params := 0 to NoOfParams-2 do&&{ Skip Self/this }
& && &{ pfOut or pfVar implies [out] parameter }
& && &if ( (pfOut in ParamArray[Params].Flags) or (pfVar in ParamArray[Params].Flags) ) then
& && &begin
& && &&&ParamType := GetXMLSchemaType(ParamArray[Params].Info);
& && &&&ParamExtName := InvRegistry., MethodExtName, ParamArray[Params].Name);
& && &&&Parts.Add(ParamExtName,'',ParamType);
& & { For Functions create a response }
& & if IntfMD.MDA[Methods].ResultInfo && nil then
& && &ParamType := GetXMLSchemaType(IntfMD.MDA[Methods].ResultInfo);
& && &Parts.Add(SReturn, '', ParamType);
& &前后两段调一下，变成：CODE:& & { Add Out parts }
& & { Note: We always have a Message for the response - irrespective of return|out }
& & NewMessage := AddMessage(Messages, GetMessageName(MethodExtName, Methods, mtOutput));
& & Parts := NewMessage.P
& & { For Functions create a response }
& & if IntfMD.MDA[Methods].ResultInfo && nil then
& && &ParamType := GetXMLSchemaType(IntfMD.MDA[Methods].ResultInfo);
& && &Parts.Add(SReturn, '', ParamType);
& & for Params := 0 to NoOfParams-2 do&&{ Skip Self/this }
& && &{ pfOut or pfVar implies [out] parameter }
& && &if ( (pfOut in ParamArray[Params].Flags) or (pfVar in ParamArray[Params].Flags) ) then
& && &begin
& && &&&ParamType := GetXMLSchemaType(ParamArray[Params].Info);
& && &&&ParamExtName := InvRegistry., MethodExtName, ParamArray[Params].Name);
& && &&&Parts.Add(ParamExtName,'',ParamType);
& &再把这个修改后的单元另存一份，加入到自己的工程中编译。
重新运行后，会发现wsdl描述中，return的声明已经放到最前面，接下来在C#直接调用就可以了。
( 16:54, 13.45 K)
Download count 139
Zhou JingYu
CnPack Administrator
Digest Posts
Reading Access 10
Registered
Status Offline
请问附件如何下载？
UID 347830
Digest Posts
Reading Access 10
Registered
Status Offline
Delphi开发WebService后
用Delphi开发WebService后，老大发现没有，多个客户端调用时，会出现死锁现象。
我的QQ是,希望得到老大的帮助，谢谢！
All times are GMT++8, the time now is
Powered by
Processed in 0.024248 second(s), 8 queries
, Gzip enabledc#中的delegate（委托）和event（事件） - 每天进步一点点！ - ITeye技术网站
博客分类：
一、delegate到底是什么东西
孩子，C语言总学过吧，如果你学得不像我那么差的话，函数指针总用过吧，就算没用过总听说过吧，嗯，大胆的告诉你，你完全可以把delegate理 解成C中的函数指针，它允许你传递一个类A的方法m给另一个类B的对象，使得类B的对象能够调用这个方法m，说白了就是可以把方法当作参数传递。不过 delegate和函数指针还是有点区别的，delegate有许多函数指针不具备的优点。首先，函数指针只能指向静态函数，而delegate既可以引 用静态函数，又可以引用非静态成员函数。在引 用非静态成员函数时，delegate不但保存了对此函数入口指针的引用，而且还保存了调用此函数的类实例的引用。其次，与函数指针相 比，delegate是面向对象、类型安全、可靠的受控（managed）对象。也就是说，runtime能够保证delegate指向一个有效的方法， 你无须担心delegate会指向无效地址或者越界地址。
有什么能比举个例子更能说明问题呢，代码才是硬道理，来吧，看几个例子吧：
第一个例子：
public class DelegateTest
// 声明delegate对象
public delegate void CompareDelegate(int a,int b);
// 欲传递的方法，它与CompareDelegate具有相同的参数和返回值类型
public static void Compare(int a,int b)
Console.WriteLine((a&b).ToString());
public static void Main()
// 创建delegate对象
CompareDelegate cd = new pare);
// 调用delegate
再来一个例子：
public delegate void MyTestDelegate(int i);
public class Program
public static void Main()
//创建delegate
ReceiveDelegateArgsFunc(new MyTestDelegate(DelegateFunction));
//这个方法接收一个delegate类型的参数，也就是接收一个函数作为参数
public static void ReceiveDelegateArgsFunc(MyTestDelegate func)
//欲传递的方法
public static void DelegateFunction(int i)
System.Console.WriteLine("传过来的参数为: {0}.", i);
以你的智商应该明白了delegate委托是怎么回事了，还不明白的自己左手打右手2下，下面就再来讲讲event事件吧。
三、事件，让你明白傻瓜式的OnClick是怎么来的
好吧，我承认咱们.NET程序员很傻瓜，拖控件，然后OnClick一下完事，也只能怪微软做得太好了，才让那些嫉妒而又羡慕的JAVA程序员鄙视 我们.NET程序员。其实我想说，我们的OnClick其实是不容易的，如果我们能真正了解其背后的机制，那我们.NET程序员就能更理直气壮地面对鄙视 我们的JAVA程序员，今天我就来出出气，揭开OnClick背后的故事。
说起OnClick，就不得不说.net中的event事件了。
C#中的事件处理实际上是一种具有特殊签名的delegate，象下面这个样子：
public delegate void MyEventHandler(object sender, MyEventArgs e);
其中的两个参数，sender代表事件发送者，e是事件参数类。MyEventArgs类用来包含与事件相关的数据，所有的事件参数类都必须从 System.EventArgs类派生。当然，如果你的事件不含参数，那么可以直接用System.EventArgs类作为参数。
好了，咱们就以OnClick为例说说事件的实现吧。
//这里自定义一个EventArgs，因为我想知道Clicker
public class ButtonClickArgs : EventArgs
public string C
public class MyButton
//定义一个delegate委托
public delegate void ClickHandler(object sender, ButtonClickArgs e);
//定义事件，类型为上面定义的ClickHandler委托
public event ClickHandler OnC
public void Click()
//...触发之前可能做了n多操作
//这时触发Click事件，并传入参数Clicker为本博主ivy
OnClick(this, new ButtonClickArgs() { Clicker = "ivy" });
public class Program
public static void Main()
MyButton btn = new MyButton();
//注册事件，把btn_OnClick方法压入事件队列，
//可以+=多个，这里简单点就压入一个吧。
btn.OnClick += new MyButton.ClickHandler(btn_OnClick);
//怎么看到这个函数很熟悉吧，就是你原来双击button自动产生的代码
public static void btn_OnClick(object sender, ButtonClickArgs e)
Console.WriteLine("真贱，我居然被ivy点击了！");
好了，我想这个例子各位看官看了应该能懂event了，不懂得现在右手打左手2下，不管你懂不懂，我反正是懂了。
二、在基于Windows平台的程序设计中，事件（event）是一个很重要的概念。因为在几乎所有的Windows应用程序中，都会涉及大量的异步调 用，比如响应点击按钮、处理Windows系统消息等，这些异步调用都需要通过事件的方式来完成。即使在下一代开发平台——.NET中也不例外。那 么什么是事件呢？所谓事件，就是由某个对象发出的消息，这个消息标志着某个特定的行为发生了，或者某个特定的条件成立了。比如用户点击了鼠标、 socket上有数据到达等。那个触发（raise）事件的对象称为事件的发送者（event sender），捕获并响应事件的对象称为事件的接收者（event receiver）。在这里，我们将要讨论的是，在.NET的主流开发语言C#中如何使用自定义的事件来实现我们自己的异步调用。在C#中，事件的实现依赖于delegate，因此我们有必要先了解一下delegate的概念。
delegate是C#中的一种类型，它实际上是一个能够持有对某个方法的引用的类。与其它的类不同，delegate类能够拥有一个签名 （signature），并且它只能持有与它的签名相匹配的方法的引用。它所实现的功能与C/C++中的函数指针十分相似。它允许你传递一个类A的方法m 给另一个类B的对象，使得类B的对象能够调用这个方法m。但与函数指针相比，delegate有许多函数指针不具备的优点。首先，函数指针只能指向静态函 数，而delegate既可以引用静态函数，又可以引用非静态成员函数。在引用非静态成员函数时，delegate不但保存了对此函数入口指针的引用，而 且还保存了调用此函数的类实例的引用。其次，与函数指针相比，delegate是面向对象、类型安全、可靠的受控（managed）对象。也就是 说，runtime能够保证delegate指向一个有效的方法，你无须担心delegate会指向无效地址或者越界地址。实现一个delegate是很简单的，通过以下3个步骤即可实现一个delegate：
声明一个delegate对象，它应当与你想要传递的方法具有相同的参数和返回值类型。2．
创建delegate对象，并将你想要传递的函数作为参数传入。3．
在要实现异步调用的地方，通过上一步创建的对象来调用方法。
下面是一个简单的例子：
public class MyDelegateTest
// 步骤1，声明delegate对象
public delegate void MyDelegate(string name);
// 这是我们欲传递的方法，它与MyDelegate具有相同的参数和返回值类型
public static void MyDelegateFunc(string name)
Console.WriteLine("Hello, {0}", name);
public static void Main()
// 步骤2，创建delegate对象
MyDelegate md = new MyDelegate(MyDelegateTest.MyDelegateFunc);
// 步骤3，调用delegate
md("sam1111");
输出结果是：Hello, sam1111
了解了delegate，下面我们来看看，在C#中对事件是如何处理的。在C#中处理事件C#中的事件处理实际上是一种具有特殊签名的delegate，象下面这个样子：public delegate void MyEventHandler(object sender, MyEventArgs e);其 中的两个参数，sender代表事件发送者，e是事件参数类。MyEventArgs类用来包含与事件相关的数据，所有的事件参数类都必须从 System.EventArgs类派生。当然，如果你的事件不含参数，那么可以直接用System.EventArgs类作为参数。就是这么简单，结合delegate的实现，我们可以将自定义事件的实现归结为以下几步：
定义delegate对象类型，它有两个参数，第一个参数是事件发送者对象，第二个参数是事件参数类对象。2．
定义事件参数类，此类应当从System.EventArgs类派生。如果事件不带参数，这一步可以省略。3．
定义事件处理方法，它应当与delegate对象具有相同的参数和返回值类型。4．
用event关键字定义事件对象，它同时也是一个delegate对象。5．
用+=操作符添加事件到事件队列中（-=操作符能够将事件从队列中删除）。6．
在需要触发事件的地方用调用delegate的方式写事件触发方法。一般来说，此方法应为protected访问限制，既不能以public方式调用，但可以被子类继承。名字是OnEventName。7．
在适当的地方调用事件触发方法触发事件。
下面是一个简单的例子：
public class EventTest
// 步骤1，定义delegate对象
public delegate void MyEventHandler(object sender, System.EventArgs e);
// 步骤2省略
public class MyEventCls
// 步骤3，定义事件处理方法，它与delegate对象具有相同的参数和返回值类// 型
public void MyEventFunc(object sender, System.EventArgs e)
Console.WriteLine("My event is ok!");
// 步骤4，用event关键字定义事件对象
private event MyEventH
private MyEventC
public EventTest()
myecls = new MyEventCls();
// 步骤5，用+=操作符将事件添加到队列中
this.myevent += new MyEventHandler(myecls.MyEventFunc);
// 步骤6，以调用delegate的方式写事件触发函数
protected void OnMyEvent(System.EventArgs e)
if(myevent != null)
myevent(this, e);
public void RaiseEvent()
EventArgs e = new EventArgs();
// 步骤7，触发事件
OnMyEvent(e);
public static void Main()
EventTest et = new EventTest();
Console.Write("Please input 'a':");
string s = Console.ReadLine();
if(s == "a")
et.RaiseEvent();
Console.WriteLine("Error");
输出结果如下，黑体为用户的输入：
Please input ‘a’: aMy event is ok!
小结通过上面的讨论，我们大体上明白了delegate和event的概念，以及如何在C#中使用它们。我个人认为，delegate在 C#中是一个相当重要的概念，合理运用的话，可以使一些相当复杂的问题变得很简单。有时我甚至觉得，delegate甚至能够有指针的效果，除了不能直接 访问物理地址。而且事件也是完全基于delegate来实现的。由于能力有限，本文只是对delegate和event的应用作了一个浅显的讨论，并不深 入，我希望本文能够起到抛砖引玉的作用。真正想要对这两个概念有更深入的了解的话，还是推荐大家看MSDN。
浏览 13608
浏览: 2728819 次
来自: 一片神奇的土地
&div class=&quote_title ...
https://developer.mozilla.org/z ...
看这篇文章，讲的很明白啦
StartHere2012 写道shadowred 写道&qu ...