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

来源：互联网发布：finale2011汉化软件编辑：程序博客网时间：2024/05/21 15:56

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识别时，多半是因为你没有加上这一句。
编译。。。

procedure TForm2.Button1Click(Sender: TObject);
type

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;