调用DLL函数例子

最新推荐文章于 2018-01-19 14:07:00 发布

nextop88

最新推荐文章于 2018-01-19 14:07:00 发布

阅读量1.2k

点赞数

分类专栏： DELPHI开发

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

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;