Fórum Thread com TIBDataSet #345048

procedure TCalcThread.Execute;
var
//  Qry : TADOQuery;
  Qry : TIbDataSet;
  i : integer;
//  Ctc : TMultiReadExclusiveWriteSynchronizer;
begin
  inherited;
//  Ctc := TMultiReadExclusiveWriteSynchronizer.Create(Nil);

  ticks := GetTickCount();
  CoInitialize(nil); //CoInitialize was not called
//  Qry := TADOQuery.Create(nil);
  Qry := TIbDataSet.Create(nil);
  try
//    Qry.Connection := Form1.ADOConnection1;     MUST USE OWN CONNECTION
{    Qry.ConnectionString := ConnStr;
    Qry.CursorLocation := clUseServer;
    Qry.LockType := ltReadOnly;
    Qry.CursorType := ctOpenForwardOnly;
    Qry.SQL.Text := SQLString;
}


//   Qry.Database := ConnBD;
   Qry.Database := Dm.IbCon;
   Qry.SelectSQL.Text := SQLString;
   

    ListBox.Clear;
    Qry.Open;
      while NOT Qry.Eof and NOT Terminated do
      begin
        ListBox.Items.Insert(0, Format(´¬s - ¬d´, [Qry.Fields[0].asString,Qry.Fields[1].AsInteger]));

        //Canvas Does NOT Allow Drawing if not called through Synhronize
        Synchronize(RefreshCount);

        Qry.Next;
      end; //while

//      if Terminated then break;

  finally
    Qry.Free;
  end;
  CoUninitialize();
  ticks := GetTickCount - ticks;
  TicksLabel.Caption := ´Ticks: ´ + IntToStr(ticks);
end; //TCalcThread.Execute;