AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ADO Queries per Thread aktualisieren

Ein Thema von Schwarzesshaaf666 · begonnen am 24. Jan 2025 · letzter Beitrag vom 30. Jan 2025
Antwort Antwort
Benutzerbild von Olli73
Olli73

Registriert seit: 25. Apr 2008
Ort: Neunkirchen
793 Beiträge
 
#1

AW: ADO Queries per Thread aktualisieren

  Alt 25. Jan 2025, 10:48
Wo / wie / was machst du denn mit dem recordcount?
  Mit Zitat antworten Zitat
Schwarzesshaaf666

Registriert seit: 14. Apr 2006
Ort: Herford
13 Beiträge
 
#2

AW: ADO Queries per Thread aktualisieren

  Alt 25. Jan 2025, 13:52
Im Execute direkt nach dem FQuery.Open. Die richtige Zahl wird auch definitiv eingetragen (hab's debuggt).
_________________
FREI STATT BAYERN
  Mit Zitat antworten Zitat
Benutzerbild von TRomano
TRomano

Registriert seit: 24. Nov 2004
Ort: Düsseldorf
196 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: ADO Queries per Thread aktualisieren

  Alt 25. Jan 2025, 14:02
Ich denke, dass Du einfach für jeden Thread, der Queries o.ä. behandelt, eine eigene Connection benötigst.
Thomas Forget
  Mit Zitat antworten Zitat
Benutzerbild von Olli73
Olli73

Registriert seit: 25. Apr 2008
Ort: Neunkirchen
793 Beiträge
 
#4

AW: ADO Queries per Thread aktualisieren

  Alt 26. Jan 2025, 07:39
Im Execute direkt nach dem FQuery.Open. Die richtige Zahl wird auch definitiv eingetragen (hab's debuggt).
Aber wo ist dann dein Problem?
  Mit Zitat antworten Zitat
Schwarzesshaaf666

Registriert seit: 14. Apr 2006
Ort: Herford
13 Beiträge
 
#5

AW: ADO Queries per Thread aktualisieren

  Alt 26. Jan 2025, 20:48
Wie oben erwähnt: Wenn ich von außen auf RecordCount aus dem Thread zugreife steht da immer eine 0 und im IsRunning immer True. Ich bekomme nicht die richtigen Werte, obwohl diese im Thread selbst richtig gesetzt werden.
_________________
FREI STATT BAYERN
  Mit Zitat antworten Zitat
Benutzerbild von Olli73
Olli73

Registriert seit: 25. Apr 2008
Ort: Neunkirchen
793 Beiträge
 
#6

AW: ADO Queries per Thread aktualisieren

  Alt 26. Jan 2025, 21:12
Also wenn du den Zustand von außen Pollen willst, dann macht es wenig Sinn, FreeOnTerminate auf true zu setzen, da das Objekt dann ggf. zu früh freigegeben wird. Aber den Zustand pollen macht sowieso keinen Sinn, entweder du benutzt das Ereignis OnTerminate oder du übergibst eine call-back-prozedur und rufst diese dann am Ende des Threads mit synchronize auf und machst dann dort mit Recordcount was immer du machen willst.
  Mit Zitat antworten Zitat
Schwarzesshaaf666

Registriert seit: 14. Apr 2006
Ort: Herford
13 Beiträge
 
#7

AW: ADO Queries per Thread aktualisieren

  Alt 27. Jan 2025, 07:48
Oha, das mit dem OnTerminate ist ein guter Tipp. Hab das völlig übersehen. Statt mit dem Timer zu pollen, melde ich den RecordCount nun im OnTerminate. Danke!

Edit: Am Ende hat sich rausgestellt, dass im Thread eigentlich nur CoInitialize(nil) und CoUninitialize() gefehlt haben.
_________________
FREI STATT BAYERN
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.458 Beiträge
 
Delphi 12 Athens
 
#8

AW: ADO Queries per Thread aktualisieren

  Alt 27. Jan 2025, 08:34
Hallöle...

Delphi-Quellcode:
constructor TQThread.Create(DataSource: TDataSource);
begin
  FDataSource := DataSource;
  FQuery := TADOQuery(FDataSource.DataSet);
  FreeOnTerminate := True; // <--

  inherited Create(True);
end;
Persönlich würde immer das inherited immer im Konstruktor an erste Stelle setzen. In deinem Falle greiftst auf eine Variable des TThread zu, die noch nicht existent sein sollte, weil das Create des TThread noch nicht durchlaufen ist. Warum das bei dir funktioniert, weis ich nicht... Klärt mich auf.

besser:
Delphi-Quellcode:
constructor TQThread.Create(DataSource: TDataSource);
begin
  inherited Create(True);

  FDataSource := DataSource;
  FQuery := TADOQuery(FDataSource.DataSet);
  FreeOnTerminate := True;
end;
  Mit Zitat antworten Zitat
Schwarzesshaaf666

Registriert seit: 14. Apr 2006
Ort: Herford
13 Beiträge
 
#9

AW: ADO Queries per Thread aktualisieren

  Alt 27. Jan 2025, 14:37
Warum es funktioniert kann ich nicht sagen. Meine Vermutung: FreeOnTerminate ist eine Variable aus TThread und deswegen schon erreichbar.
_________________
FREI STATT BAYERN
  Mit Zitat antworten Zitat
Schwarzesshaaf666

Registriert seit: 14. Apr 2006
Ort: Herford
13 Beiträge
 
#10

AW: ADO Queries per Thread aktualisieren

  Alt 27. Jan 2025, 14:44
Hier meine aktuelle, lauffähige Version des Threads, falls jemand etwas ähnliches braucht:

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:
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?
_________________
FREI STATT BAYERN

Geändert von Schwarzesshaaf666 (27. Jan 2025 um 14:47 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz