【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;