delphi调用dll动态库

声明调用动态库方法

function HelloWorld(strIn, strOut: PChar): smallint; stdcall;
far external 'YXMDll.dll' name 'HelloWorld';

具体调用

strin := PChar(tmp);

GetMem(strout,2048);
HelloWorld(strin,strout);

showmessage(strout)