Warum es funktioniert kann ich nicht sagen. Meine Vermutung: FreeOnTerminate ist eine Variable aus TThread und deswegen schon erreichbar.

Hier meine aktuelle, lauffähige Version des Threads, falls jemand etwas ähnliches braucht:

zusammenfalten · markieren

Delphi-Quellcode:

interface

type
  TQThread = class(TThread)
  private
    FQuery: TADOQuery;
    FDataSource: TDataSource;
    FRightsPk: Integer;
    FRecordCount: Integer;
    FIsRunning: Boolean;
    FQueryName: string;
  protected
    procedure Execute; override;

  public
    constructor Create(DataSource: TDataSource);
    destructor Destroy; override;

    property RightsPk: Integer read FRightsPk write FRightsPk;
    property RecordCount: Integer read FRecordCount write FRecordCount;
    property IsRunning: Boolean read FIsRunning write FIsRunning;
    property QueryName: string read FQueryName write FQueryName;
  end;

implementation

constructor TQThread.Create(DataSource: TDataSource);
begin
  inherited Create(True);

  FDataSource := DataSource;
  FreeOnTerminate := True;
end;

destructor TQThread.Destroy;
begin
  inherited;
end;

procedure TQThread.Execute;
begin
  inherited;

  CoInitialize(nil);

  try
    try
      FQuery := TADOQuery(FDataSource.DataSet);

      RightsPk := FDataSource.Tag;
      IsRunning := True;
      RecordCount := 0;
      QueryName := FQuery.Name;

      FQuery.Close;
      FQuery.Open;

      RecordCount := FQuery.RecordCount;
      IsRunning := False;
    except
      on Ex: Exception do
      begin
        dxMessageDlg('Fehler beim Ausführen des Query-Thead! (' + FQuery.Name + ', ' + Self.QualifiedClassName + ')' + #13#10#13#10 + 'Fehlermeldung: ' + Ex.Message + #13#10 + Ex.StackTrace + #13#10 + 'SQL: ' + FQuery.SQL.Text, mtError, [mbOK], 0);
      end;
    end;
  finally

    CoUninitialize();
  end;
end;

Um die Ergebnisse abzufragen, nutze ich das Event OnTerminate:

markieren

Delphi-Quellcode:

procedure TForm1.TerminateThread(Sender: TObject);
var
  RightsPk: Integer;
  RecordCount: Integer;
begin
  RightsPk := TQThread(Sender).RightsPk;
  RecordCount := TQThread(Sender).RecordCount;

  // Verarbeitung der Variablen
end

Ich sehe gerade, IsRunning ist hier sogar völlig überflüssig...

PS: Kann ich den ersten Beitrag nicht bearbeiten, um den Thread als "gelöst" zu markieren?

Hmm...

Zitat:

markieren

Code:

CoInitialize(nil);
  try
    try
      FQuery := TADOQuery(FDataSource.DataSet);

      RightsPk := FDataSource.Tag;
      IsRunning := True;
      RecordCount := 0;
      QueryName := FQuery.Name;

      FQuery.Close;
      FQuery.Open;

      RecordCount := FQuery.RecordCount;

Dir ist bewusst, dass der ADOQuery 'außerhalb' des Thread erzeugt wird und du somit innerhalb Execute auf die Komponente 'außerhalb' deines Threads zugreifst und das alle (eventuellen) Messages der ADOQuery im Hauptthread stattfinden?
Ich vermute, dass du eine ADOConnection mit diesem Query verwendest, welche auch außerhalb des Threads genutzt wird?
Also diese außerhalb deines Threads ist!

So weit ich weiß sollte jeder Thread seine eigende ADOQuery/ADOConnection selber erstellen, nur so ist sichergestellt, dass diese auch im Kontext des Threads läuft!

Also den Connectionstring, sowie den SQL-String an den Thread geben und nicht das ADOQuery selber!.

Irgendwo habe ich nen Sourcecode gesehen, welcher dann das Record-Set Thread Save aus dem Thread an den MainThread zurück gibt, weiß aber nicht mehr wo....

Nein, bewusst war mir das nicht. Hab nach dem genannten Code gesucht und ihn hier gefunden. Hab ihn noch etwas angepasst, da ich die Threads irgendwie in OnTerminate identifizieren muss.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TFieldInfoRecord = Record
    DataType: TFieldType;
    Name: String;
    Size: Integer;
    Value: Variant;
    Attributes: TParameterAttributes;
  End;

  TDBThread = class(TThread)
    constructor Create(Const AConnectionString, ASql: string; FDArray: TFieldInfoArray; ARightsPk: Integer);
  private
    FConnectionString, FSql: string;
    FRecordSet: _RecordSet;
    FRightsPk: Integer;
    FFDArray: TFieldInfoArray;
  protected
    procedure Execute; override;
  public
    property RecordSet: _RecordSet read FRecordSet;
    property RightsPk: Integer read FRightsPk write FRightsPk;
  end;

implementation

constructor TDBThread.Create(Const AConnectionString, ASql: string; FDArray: TFieldInfoArray; ARightsPk: Integer);
var
  i: Integer;
begin
  inherited Create(False);

  FConnectionString := AConnectionString;
  FSql := ASql;
  SetLength(FFDArray, Length(FDArray));
  for i := 0 to High(FDArray) do
  begin
    FFDArray[i].DataType := FDArray[i].DataType;
    FFDArray[i].Size := FDArray[i].Size;
    FFDArray[i].Name := FDArray[i].Name;
    FFDArray[i].Value := FDArray[i].Value;
    FFDArray[i].Attributes := FDArray[i].Attributes;
  end;
  FRightsPk := ARightsPk;
end;

procedure TDBThread.Execute;
var
  i: Integer;
begin
  inherited;

  CoInitialize(nil);
  try
    With TADODataSet.Create(nil) do
      try
        try
          CommandTimeOut := 600;
          ConnectionString := FConnectionString;
          Commandtext := FSql;
          Parameters.ParseSQL(FSql, True); // extract parameters
          for i := Low(FFDArray) to High(FFDArray) do // set parametervalues
          begin
            Parameters.ParamByName(FFDArray[i].Name).DataType := FFDArray[i].DataType;
            Parameters.ParamByName(FFDArray[i].Name).Size := FFDArray[i].Size;
            Parameters.ParamByName(FFDArray[i].Name).Value := FFDArray[i].Value;
            Parameters.ParamByName(FFDArray[i].Name).Attributes := FFDArray[i].Attributes;
          end;
          Open;
          FRecordSet := RecordSet; // keep recordset
        except
          on Ex: Exception do
            MessageDlg('Error in Thread: ' + Ex.Message + sLineBreak + 'SQL: ' + FSql, mtError, [mbOK], 0);
        end;
      finally
        Free;
      end;
  finally
    CoUninitialize;
  end;
end;