Advantage TDataSet Descendant
Clears the progress callback registered using AdsRegisterProgressCallback.
Note This API still functions as before, but is now obsolete. It is suggested that you use AdsRegisterCallbackFunction and AdsClearCallbackFunction instead, as they work better with threads and have more complete functionality.
procedure AdsClearProgressCallback;
AdsClearProgressCallback will make the Advantage Client Engine stop calling the registered callback function. The progress callback is used to indicate progress while an Advantage server is building an index.
function MyCallbackFunc( usPercent: Word ): Longint ; stdcall;
begin
if ( gbCancelRequested ) then
Result := 1
else
Result := 0;
end;
procedure TForm1.RegisterButtonClick(Sender: TObject);
begin
AdsTable1.AdsRegisterProgressCallback( @MyCallbackFunc );
end;
procedure TForm1.ClearButtonClick(Sender: TObject);
begin
AdsTable1.AdsClearProgressCallback;
end;