编写dll时的内存分配策略

前一篇文章介绍了为何要共用内存管理器，有人要问可不可以在编写dll时更通用一些，可以兼顾其它编译器(如果是其它编译器的话，Delphi写的dll不能与其它语言共用内存管理器)，采用一定的策略来避免在dll内创建RTL自动管理的数据类型做参数或返回值，这样其它非Delphi的开发语言也可以用了！

完全可以！

一般的策略如下：

1.在主调函数中申请一块空间

2.把这个空间的地址传送给dll

3.dll内部进行逻辑运算，得到结果后把值添到主调函数传递过来的空间上

4.主调函数获取值，根据业务规则对空间进行处理(释放等操作)

在整个工作周期中，申请的内存一直掌握在主调函数的手中，没有给dll任何管理对象的机会！

看一下下面的主调函数申请内存的模板！

在这里需要强调几点：
//1.不用共用内存管理器的话，数据类型需要使用Windows标准类型，如PChar!另外在dll中返回结构体时，最好结构体内的成员为基本数据类型，不要成员又是指针，一不小心就会出错！
//2.PChar是一个指针，一般在主调函数中申请空间时先申请255，并把地址传入dll,dll进行逻辑处理，处理完毕后进行返回，返回时，长度可能远远小于255，所以在返回时通过一个变参告诉主调，实际只用了N个长度，这时主调在主动清理实际使用的长度！
//3.一般在程序中string与PChar都是结合使用，即返回PChar后直接给一个string,这样更方便！但string类型的特殊性(与Java的string类似)，直接赋值会出现问题，故需要用Move或CopyMemory进行内存复制工作，对于为什么出现问题，我想单独写一个文章来解释！
type
  TGetStr=function(Src: PChar;srcLen: Integer;Buffer: PChar;var Size: Integer):boolean;stdcall;

function GetDllStr: string;
var
  DllHnd: THandle;
  GetStr: TGetStr;
  Str,Buf: PChar;
  size:integer;
begin
  size:=255;
  DllHnd := LoadLibrary(PChar('project1.dll'));
  try
    if (DllHnd <> 0) then
    begin
      @GetStr :=GetProcAddress(DllHnd, 'TestFunc');
      if (@GetStr<>nil) then
      begin
        GetMem(Str, size);{分配}
        StrPCopy(Str,'asdf');
        GetMem(Buf,Size);
        try
          GetStr(Str,size,buf,size);
          result := StrPas(buf);{返回}
        finally
          FreeMem(Str);{释放}
          FreeMem(Buf,Size);
        end;
      end
      else
      begin
        application.MessageBox(PChar('DLL加载出错，DLL可能不存在！'), PChar('错误'),
          MB_ICONWARNING or MB_OK);
      end;
    end;
  finally
    FreeLibrary(DllHnd);
  end;
end;

//dll实现
function AddStr(Src:PChar):string;
begin
  result:=Src+'/Liangpei hello!';
end;
function TestFunc(Src: PChar;srcLen: Integer;Buffer: PChar;var Size: Integer):boolean;stdcall;//函数调用协议
var
  LocalString:string;
begin
  result:=false;
  LocalString:=AddStr(Src);//一般字符串传入dll后，均要根据某些业务做一些加工或处理,AddStr就为处理函数
  if (Buffer = Nil) or (Size < srcLen) then begin 
    SetLastError(Byte(Buffer <> Nil) * 234 (*ERROR_MORE_DATA, need more buffer size*) ); 
    Size := srcLen; 
    Exit; 
  end; 
  CopyMemory(Buffer,PChar(LocalString),Min(Size,Length(LocalString)));
  Size := srcLen;
  Result := true; 

end;


exports
    TestFunc;