调用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 ;