大家都知道C# Webservice技術(shù)的出現(xiàn)將各種開發(fā)技術(shù)和語(yǔ)言完全的融合了，下面就這種融合在C#和delphi之間的交互做一次全面的體現(xiàn)，前者是目前***的開發(fā)平臺(tái)，后者依然是小型c/s系統(tǒng)的***選擇.

1.使用C#創(chuàng)建一個(gè)Webservice服務(wù)。

使用vs2005的模板創(chuàng)建C# Webservice非常容易。原文件如下:

[WebService(Namespace = \"http:  
//localhost/webserver/\")]   
[WebServiceBinding(ConformsTo =   
WsiProfiles.BasicProfile1_1)]   
    
public class Service :   
System.Web.Services.WebService   
{   
public Service () {   
//如果使用設(shè)計(jì)的組件，請(qǐng)取消注釋以下行    
InitializeComponent();   
}   
   
#region  Component  Designer    
generated  code   
private void InitializeComponent()   
{   
    
}   
//Web  服務(wù)設(shè)計(jì)器所必需的    
private IContainer components = null;   
 
protected override void Dispose  
(bool disposing)   
{   
if (disposing && components != null)   
{   
components.Dispose();   
}   
base.Dispose(disposing);   
}   
#endregion   
//這個(gè)是自動(dòng)生成的一個(gè)webservice函數(shù)，  
可以不要。   
[WebMethod]   
public string HelloWorld() {   
return \"Hello World\";   
}   
//這個(gè)才是我們自己創(chuàng)建的，   
[WebMethod]     
public int addnumber(int a, int b)   
{   
return = a + b;   
}   
} 

2.使用delphi創(chuàng)建一個(gè)dll(非com的dll)，該dll調(diào)用上面的webserivce服務(wù)。

 使用delphi調(diào)用C#的webservice過程也很容易，但是對(duì)于新手可能比較麻煩(我就是這么過來的)

***步:創(chuàng)建一個(gè)dll單元：

{$R *.res}   
function GetNum(a,b:integer):  
integer stdcall; [Page]  
var   
ireturn :Integer;   
begin   
ireturn:=GetServiceSoap().addnumber(a,b);   
//這個(gè)GetServiceSoap是什么，看后面...   
result:=ireturn;   
end;  
exports   
GetNum name ’GetNum’;   
begin   
end.   
//如果是delphi調(diào)用該dll必須使用下面的代碼。  
C#調(diào)用則不需要了(C#還是要牛一些，呵呵)   
initialization   
coinitialize(nil);   
finalization   
counInitializ   
第二步:將webserivce的WSDL導(dǎo)入到該dll工程中，  
如何導(dǎo)，方法至少有兩種，我說簡(jiǎn)單的一種:   
file->new->other->WebService->WSDL Importer，  
(將C#的WSDL輸入)然后delphi會(huì)自動(dòng)給你生成了一個(gè)pas文件，   
function GetServiceSoap(UseWSDL: Boolean;   
Addr: string; HTTPRIO: THTTPRIO): ServiceSoap;   
const   
defWSDL = ’http://localhost/webserver/  
Service.asmx?WSDL’;   
defURL= ’http://localhost/webserver/  
Service.asmx’;   
defSvc= ’Service’;   
defPrt= ’ServiceSoap’;   
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;   
try   
//RIO.HTTPWebNode.UseUTF8InHeader:=  
True; //在此添加一句，修改編碼方案。   
Result := (RIO as ServiceSoap);   
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(ServiceSoap), ’  
http://localhost/webserver/’, ’  
utf-8’); [Page]  
InvRegistry.RegisterDefaultSOAPAction  
(TypeInfo(ServiceSoap), ’  
http://localhost/webserver/%operationName%’);   
//對(duì)于無法識(shí)別傳入的參數(shù)的問題，需要手工加上這一句>......   
InvRegistry.RegisterInvokeOptions(TypeInfo  
(ServiceSoap), ioDocument);   
   
這段代碼基本上你不用關(guān)心，但是，有兩個(gè)地方需要特別注意:   
1.RIO.HTTPWebNode.UseUTF8InHeader:=True;  
對(duì)于中文參數(shù)必須加上   
2.InvRegistry.RegisterInvokeOptions  
(TypeInfo(ServiceSoap), ioDocument);  

如果傳入的參數(shù)不能被webservice識(shí)別時(shí)，多半是因?yàn)槟銢]有加上這一句。

3.使用delphi調(diào)用上面的dll 就一個(gè)函數(shù),沒有什么好說的:

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 Th〉0 then   
try   
Tp:=GetProcAddress(Th,PChar(’GetNum’));   
if Tp〈 〉nil   
then begin   
Tf:=GetNumTotal(Tp);   
Edit1.Text:=IntToStr(Tf(1,3)); {調(diào)用GetNumTotal函數(shù)}   
end   
else   
ShowMessage(’GetNumTotal函數(shù)沒有找到’);   
finally   
FreeLibrary(Th); {釋放DLL}   
end   
else   
ShowMessage(’mywebservice.dll沒有找到’);   
end;   

4.使用C#調(diào)用上面的dll

[DllImport(\"mywebservice.dll\",  
EntryPoint=\"GetNum\")]  
publicstaticexternintGetNum  
(inta,intb);  
privatevoidbutton1_Click  
(objectsender,EventArgse)  
{  
inta,b,i;  
a=10;  
b=20;  
i=GetNum(a,b);//***次比較慢  
(webserivce的唯一弊端?。。?！)  
textBox1.Text=i.ToString();  
}  

【編輯推薦】

1. C# WebService發(fā)布與調(diào)用淺析
2. 簡(jiǎn)明教程 C# Webservice實(shí)例
3. C#中定義裝箱和拆箱詳解
4. 淺談C#類型系統(tǒng)
5. 三種不同的C#異常類型