How to use gflSaveBitmapIntoMemory in Delphi

[ioio]

Hi,
i have some issues with using gflSaveBitmapIntoMemory in Delphi, better say with freeing memory after that.

....
var Size:integer;
Mem:PGFL_UINT8;
sp: TGFL_SAVE_PARAMS;
e: GFL_ERROR;
FS:TFileStream;
.....
gflGetDefaultSaveParams(sp);
sp.FormatIndex := tiff;
sp.Compression := GFL_LZW;

e := gflSaveBitmapIntoMemory(Mem, @Size, gfl_bmp, sp);
FS.Write(Mem^,Size);
gflMemoryFree(Pointer(Mem));

Is it right ? Probably not, because on gflMemoryFree(Pointer(Mem)); i get exception "Invalid address specified ... " How to free memory after save ?

Thanks.

[xnview]

I'm not expert in Delphi , but in C here is the code:

Code: Select all

GFL_UINT8* data; 
GFL_UINT32 length; 
gflSaveBitmapIntoMemory( &data, &length, pBitmap, &save_params ); 
gflMemoryFree( data ); 

[ioio]

So what's the different? Thats exception is catched bay gflMemoryFree, so I see it only in debug mode, but no memory is freed.
When I make a loop ... for example:

Code: Select all

for I := 0 to 500 do begin
   e := gflSaveBitmapIntoMemory(Mem, @Size, gfl_bmp, sp);
   FS.Write(Mem^,Size);
   gflMemoryFree(Pointer(Mem));
end;

used memory still growing. So what's wrong?

[ioio]

I have found the bug. It's in the LibGfl.pas

Wrong:

Code: Select all

function gflMemoryRealloc(var Ptr: Pointer; size: GFL_UINT32): Pointer; stdcall;
procedure gflMemoryFree(var Ptr: Pointer); stdcall;

Right:

Code: Select all

function gflMemoryRealloc(Ptr: Pointer; size: GFL_UINT32): Pointer; stdcall;
procedure gflMemoryFree(Ptr: Pointer); stdcall;

[xnview]

Ok, i fix the .pas