I'm trying to use progress callback procedure while loading a picture.
Here is the code (modified example from GflSDK\Delphi\Demo\Source\):
The picture loads successfully, but procedure ProgressCallback is never called. What am I doing wrong?
Code: Select all
procedure ProgressCallback(percent: GFL_INT32; user_params: Pointer); stdcall; begin Application.MessageBox('Procedure is called', 'OK', MB_OK + MB_ICONINFORMATION); end; procedure LoadPicture(FileName: string); ... begin ... lp.Callbacks.Progress := ProgressCallback; e := gflLoadBitmap(PChar(FileName), gfl_bmp, lp, finfo); ... end;
Maybe, something must be assigned to TGFL_LOAD_PARAMS.Callbacks.ProgressParams, but I haven't found any description of this parameter or code that uses it.
Thank you in advance.