Форум программистов [Powered by Invision Power Board]

Код

procedure TMainDevice.MainProc;

  function CreateQeury: TADOQuery;
  begin
    Result := TADOQuery.Create(nil);
    Result.AutoCalcFields := False;
    Result.Connection := FADOConnection;
    Result.CommandTimeout := 300;
    Result.CursorType := ctOpenForwardOnly;
    Result.LockType := ltReadOnly;
    Result.SQL.Text := MainSql;
    Result.ExecuteOptions := [eoAsyncExecute, eoAsyncFetchNonBlocking];
    Result.OnFetchComplete := QueryFetchComplete;
    FQueryComplete := False;
  end;  

var
  DataSet: TADOQuery;
  RecSet: _Recordset;
begin  
  while not Terminated do
  begin
  //////////////////////////////////////////////////////////////////////////////
  try
    // открывем
    DataSet := CreateQeury;
    DataSet.Open;
    try

      // ждем пока выполнится запрос
      while not FQueryComplete do
      begin
        if Terminated then
        begin
          DataSet.Recordset.Cancel;
          Break;
        end;
        Sleep(50);
      end;

      if FQueryComplete and not Terminated then
      begin
        RecSet := DataSet.Recordset;
        RecSet.MoveFirst;
        while not RecSet.EOF do
          RecSet.MoveNext;
      end;

    finally
      if DataSet.Active then
        DataSet.Recordset.Close;
      DataSet.Free;
    end;

    Sleep(3000);
  except
    //
  end;
  //////////////////////////////////////////////////////////////////////////////
  end;
end;