XnView Software

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

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


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

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:
for I := 0 to 500 do begin
e := gflSaveBitmapIntoMemory(Mem, @Size, gfl_bmp, sp);
FS.Write(Mem^,Size);
gflMemoryFree(Pointer(Mem ...

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 ...