请问如何将加密狗里面的用vc编成的obj封装成delphi编译的dll动态连接库,请大家帮帮忙啊,只有这么多分,山穷水尽了,无尽痛苦之中!

Question

我的代码如下,但里面有很多错误,请大家给我指点迷津
library Prodll;uses
  SysUtils,
  Classes;
var
   NetDogAddr: integer;
   NetDogBytes: integer;
   NetDogPassword: longint;
   NetDogResult: longint;
   NetDogData: ^byte;
   NetDogHandle: ^longint;
   doghandle: longint;
  {$L nhdelphi.obj}
  {$R *.res}
  function NetDogLogin: longint; external;
  function NetDogConvert: longint; external;
  function NetDogRead: longint; external;
  function NetDogLogout: longint; external;Function DogLogin :Longint;stdcall;
var
 I:Longint;
Begin
  NetDogHandle := @doghandle;
  NetDogPassword := 0;
  I:=Netdoglogin();
  Result:=0;
End;
Function DogLogOut:Longint;StdCall;
Begin
 Result:=NetDogLogout;
End;
Function DogRead:longint;stdcall;
var
 I,LongData:longint;
Begin
 longData := 0;
 NetDogData := @ longData;
 NetDogBytes := 4;
 NetDogAddr := 10;
 Result:= NetDogRead();
End;
Function DogConvert(ConvertData:string):longint;stdcall;
var
dwRetCode:longint;
Begin
   NetDogBytes := 6;
   NetDogData := @ ConvertData[1];
   dwRetCode := NetDogConvert();
   Result:=NetDogResult;
End;
exports
DogLogin;
DogLogOut;
DogRead;
DogConvert;begin
end.