mehrere Datenbankzugriffe gleichzeitig

[OlafSt]

E/A Fehler 32 sieht nach "File already opened" aus. Sieh zu, das die Threads nicht alle in das gleiche Logfile schreiben Oder bastel eine Klasse, die in das Logfile schreibt, aber von den Threads mit entsprechenden Daten gefüttert wird.

[cult6]

Danke, das hat mir sehr geholfen, aber nun zum nächsten Problem...

Ich habe zb 3 Threads erstellt und lasse sie hintereinander ablaufen:

thread1 := TThreadClient.Create(false);
thread2 := TThreadClient.Create(false);
thread3 := TThreadClient.Create(false);

das funktioniert auch ohne Probleme, die Threads laufen, ABER...

ich habe auf meiner Form1 eine Variable Counter, welche beim FormCreate mit 0 initialiesiert wird.
Beim TThreadClient.Execute() wird diese Variable jeweils um 1 hochgezählt. Soweit so gut...

Jetzt sollte ja eigentlich thread1 Nr1 beinhalten, thread2 Nr2 usw. aber alle 3 Threads haben Nr3.
Jemand ne Idee wie ich dem entgegenwirken kann?

[Jumpy]

Die Variable muss doch "im Thread" lokal gespeichert sein. Wenn alle auf die selbe Variable zugreifen, die in Form1 steht, muss die ja bei allen 3 sein.

Du kannst also schon so eine counter variable verwenden und bei jedem neuen Thread hochzählen. Der dann aktuelle Wert muss aber dann auch "im Thread" gespeichert werden.

[Olli73]

Zitat von cult6:

ich habe auf meiner Form1 eine Variable Counter, welche beim FormCreate mit 0 initialiesiert wird.
Beim TThreadClient.Execute() wird diese Variable jeweils um 1 hochgezählt. Soweit so gut...

Wenn du es so umgesetzt hast, wie es sich anhört, ist es aber gar nicht gut.
Du darfst aus dem Thread auf die Variable Counter im Form nur über Synchronize oder eine critical section zugreifen.

[Blup]

Der Constructor des Threads wird noch im Hauptthread ausgeführt, da darf man auch auf diese Variable zugreifen.
Besser wäre allerdings eine Klassenvariable in der Thread-Klasse geeignet.

Delphi-Quellcode:

type
  TMyThread = class(TThread)
  protected
    class var FLastNum: Integer;
    FMyNum: Integer;
  public
    constructor Create(ASuspended: Boolean); override;
    class property LastNum: Integer read FLastNum;
  end;

constructor TMyThread.Create(ASuspended: Boolean);
begin
  inherited;
  Inc(FLastNum);
  FMyNum := FLastNum;
end;