在Delphi中如何调用C语言的DLL?

解决方案 »

  1.   

    如VC下开发的
    函数
    int DES(int op, char *key, char *inblock, char *outblock, int len)
    打包check.dll
    则在delphi中声明如下:
    function DES(op:integer; key, inblock: pchar;outblock:pchar;
                 len : integer): integer ;stdcall;external 'check.dll' ;
      

  2.   

    Unit Unit1;interface..............    function DES(op:integer; key, inblock: pchar;outblock:pchar;
                 len : integer): Integer; stdcall;
    implementation
        function DES(op:integer; key, inblock: pchar;outblock:pchar;
                 len : integer):Integer; external 'check.dll';end;或;
    LoadLibrary; GetProcAddress;