WebService开发实例2-Delphi调用WS的DLL

c#写的WebService没问题，Delphi通过窗体调用WebService也没问题，现在需要写成DLL来调用WebSerice（因为要给别人用啊！）

DLL代码：

library sLogin;

uses
? SysUtils,ActiveX,
? Classes,
? shulibLogin in 'shulibLogin.pas';

Function shulib_Login(pers_no,password:String):integer;stdcall;
var
? i:integer;
begin
??coinitialize(nil);
?try
??? i:=GetshulibLoginSoap.CheckUserLogin(Trim(pers_no),Trim(password));
? except
??? i:=6;
? end;
? Result := i;
?CoUnInitialize();
end;
{$R *.res}

exports
??? shulib_Login;
begin

end.

GetshulibLoginSoap是WSDL Import自动产生的，另外不需要外加THTTPRIO控件。

自动产生的shulibLogin.pas需要修改两个地方

?try
?? //RIO.HTTPWebNode.UseUTF8InHeader:=True;中文参数
???Result := (RIO as shulibLoginSoap);
??? if UseWSDLthen
??? begin
?????RIO.WSDLLocation := Addr;
?????RIO.Service := defSvc;
?????RIO.Port := defPrt;
??? endelse
?????RIO.URL := Addr;
? finally
??? if (Result =nil) and (HTTPRIO = nil) then
?????RIO.Free;
? end;
end;

initialization
?InvRegistry.RegisterInterface(TypeInfo(shulibLoginSoap),'www.lib.shu.edu.cn','utf-8');
?InvRegistry.RegisterDefaultSOAPAction(TypeInfo(shulibLoginSoap),'www.lib.shu.edu.cn/CheckUserLogin');
?InvRegistry.RegisterInvokeOptions(TypeInfo(shulibLoginSoap),ioDocument);

1.RIO.HTTPWebNode.UseUTF8InHeader:=True;对于中文参数必须加上?
2.InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),?ioDocument);?如果传入的参数不能被webservice识别时，多半是因为你没有加上这一句。
编译。。。

TIntFunc =function(pes_no,password:String):integer;stdcall;
var
? handle:Thandle;
? Tf:TIntFunc;
? Tp:TFarProc;
? i:integer;
begin
? handle := LoadLibrary(PChar('sLogin.dll'));{装载DLL}
? if handle>0 then
? ? ? try
? ? ? ? ? Tp := GetProcAddress(handle,PChar('shulib_Login'));
? ? ? ? ? if Tp<>nil
? ? ? ? ? then
? ? ? ? ? begin
? ? ? ? ? ? ? ? ? Tf := TIntFunc(Tp);
? ? ? ? ? ? ? ? ? i:=Tf(Trim(Edit1.Text),Trim(Edit2.Text)); {调用函数}
? ? ? ? ? ? ? ? ? ShowMessage(IntToStr(i)) ;
? ? ? ? ? end
? ? ? ? ? else
? ? ? ? ? ? ? ? ? ShowMessage('函数没有找到');
? ? ? finally
? ? ? ? ? FreeLibrary(handle); {释放DLL}
? end
else
? ShowMessage('dll没有找到');
end;