Hello:

I'm trying to show the user that something is happening while a DELETE
is occurring.

Recently, I posted my problems with using OnCallBack from a IB_Datapump
to drive a progress bar. Although it worked fine in IB_SQL's datapump
and I tried to mimic that code in my application, all it would do is
catch the first 100 of about 700 records to process then stop all
progress bar update. (Thanks, Set for your cleanup of my DELETE)

My next attempt has been to use a TAnimate of the standard File Delete
AVI. This is supposed to be asynchronous. I start it before the DELETE,
but once the ExecSQL starts, it stops dead.

Does anyone know how to correct any of these issues or know of another
way to let the user know that something is going on while I DELETE items
in a large file?

Thank you for your help,

Chuck Belanger


Below is my most recent code for the TAnimate (actually TJvAnimate) with
the DELETE:

with aniFDBDelete do
begin
//Nothing seems to work to make this avi become async, running while
DELETE
Visible := true;
Open := true;
Active := true;

//application.ProcessMessages;
//Showmessage('Start File Cleanup.');
update;
//application.ProcessMessages;
end;

with ModData.dsql_AnyUse do
begin
// BeginBusy(true);
SQL.Clear;
SQL.Add('DELETE FROM Custom_View ');
SQL.Add('Where NOT EXISTS (SELECT ml_id FROM MasterLibrary ');
SQL.Add('Where MasterLibrary.ml_id = Custom_View.ml_id)') ;
ExecSQL;
ModData.IB_Transaction1.Commit;
// EndBusy;
end;