怎么调用vc写的动态库，解决即结贴

Question

在vc 的.h文件里有两个函数如下声明：（这些已用dll文件封装）
void DEScrypt(unsigned char far *subkey,unsigned char far *dest, unsigned char far *sour);
unsigned pascal SingleDES(char DESType,unsigned char * SingleDESKey,int SourDataLen,unsigned char *SourData,unsigned char *DestData);我要在 Delphi里调用这两个函数，请问怎么声明怎么调用？
拜托，详细一点！
解决即结贴。

Answer 1

申明：
procedure DEScrypt(subkey, dest, sour: PChar); stdcall;function SingleDES(DESType: Char; SingleDESKey: PChar; SourDataLen: Integer; SourData, DestData: PChar):Integer;stacall;实现：
procedure DEScrypt(subkey, dest, sour: PChar); external 'DllName.dll' name 'DEScrypt';function SingleDES(DESType: Char; SingleDESKey: PChar; SourDataLen: Integer; SourData, DestData: PChar); external 'DllName.dll' name 'SingleDES';调用：
调用就不用说了吧。

Answer 2

你可以用VC++的方法实现呀！
var 
  hDllName:handle
  fDllFunc:FARPROC;
//--------------------------------------------
  hDllName:=LoadLibrary("yourdllname.dll")
  GetProcAddress(hDllName,fDllFunc);
  
  fDllFunc(...);
//--------------------------------------------
ok?