调用DLL函数例子

function funMain(inList:PAnsiChar;OutList:PAnsiChar):integer;stdcall;extern 'XX.dll';

 

var

         inList,OutList:PAnsiChar

         Str_InList,Str_Outlist:string;

begin

       GetMem(inList,2048);

       GetMem(OutList,2048);

      try

           inList:='XXOO';

            zeromemory(inList,strLen(inList));

            zeromemory(outList,strLen(OutList));

            strpcopy(str_inList,inList)

            if funMain(inList,outList)<>0 then

            begin

                    showmessage('返回失败!');

                    exit;

            end;

            str_outlist:=strpas(outlist);

            showmessage(str_outlist);

      finally

             freemem(inList);

             freemem(outList);

      end;

end;