Delphi 调用C dll

【C函数声明】：

        C dll 导出函数定义，dll名称为TestLink.dll：

extern "C" int __stdcall TestLinkData(const char* pData,  char* pOut, int nLen);

【Delphi 调用代码】：

 

function TestLinkData(pIn:pChar; pOut:pChar; nLen:Integer):Integer; stdcall; External 'TestLink.dll';

    procedure TForm1.Button1Click(Sender: TObject);
    var
    pIn:pChar;
    pOut:pChar;
    nLen:Integer;
    begin
        pIn:=pChar('"440300999999082&10111602900110000001&2.00&00110&000&0"');
        pOut := StrAlloc(1024);
        nLen := 1024;
        TestLinkData(pIn, pOut, nLen);

        MessageDlg('调用结果：'+pOut, mtInformation,[mbOk], 0);
    end;