Hallo,

ich habe ein Problem mit BeginThread(), vielleicht kannt mir jemand helfen.

Nun, ich starte ein Thread mit BeginThread(), zu veranschaulichung ein stückchen Code:

zusammenfalten · markieren

Delphi-Quellcode:

TParamRecord = record
    Nr : Integer;
  end;

//[.....]
procedure TForm1.Button1Click(Sender: TObject);
var
  id : LongWord;
  Params: TParamRecord;
begin
 for I := 1 to 50 do begin
  Params.Nr = I;
  BeginThread(nil,
              0,
              Addr(StarThread),
              Addr(Params),
              0,
              id);
  end;
end;

Die Funktion für die Threads sieht folgendermaßen aus:

markieren

Delphi-Quellcode:

function StarThread(Paramter: Pointer): Integer;
var
  Params : ^TParamRecord;
begin
 Params := Paramter;
 Form1.Memo1.Lines.add('Angekommen mit '+IntToStr(Params.Nr));
end;

Nun gut, dass Problem ist, dass der Wert Params.Nr in dem Thread immer eine ganz komische Zahl ist.
Wenn ich die Threads nacheinander starte, dann kommen die Parameter richtig an.
Eine Beispiel Ausgabe in dem Memo wäre:

Zitat:

Angekommen mit 2010210153

An was könnte das liegen? Danke für jede Hilfe.

Gruss,
MArc

Hallo!

1. Es ist zwar nicht der Fehler, aber Du solltest ohne Synchronize nicht auf VCL Komponenten zugreifen
2. Warum leitest Du nicht von TThread ab?

Lösung:

zusammenfalten · markieren

Delphi-Quellcode:

type
  PParamRecord = ^TParamRecord;
  TParamRecord = packed record
    Nr : Integer;
  end;

var Params:PParamRecord; // Siehe Begründung von Basilikum

function StarThread(Paramter: Pointer): Integer;
begin
  Params:=@Paramter^;
  Case Params.Nr of
    1..50: Juchu!
    else Schluchz
  end;
end;

Edit: Mal ne dumme Frage: Für was braucht man 50 Threads?

@Sunlight7: hä ? wo ist jetzt der entscheidende Unterschied ?

das Problem ist, dass der Record auf dem Stack der Thread-startenden Funktion liegt... je nach Laune des Schedulers kann es nun sein, dass der Thread erst anläuft, wenn die Funktion bereits wieder verlassen wurde (sprich: der Stack wieder abgeräumt ist)...
Lösung: Record im Heap deponieren...

zusammenfalten · markieren

Delphi-Quellcode:

PParamRecord = ^TParamRecord;
TParamRecord = record
    Nr : Integer;
  end;

//[.....]
procedure TForm1.Button1Click(Sender: TObject);
var
  id : LongWord;
  Params: PParamRecord; //***
begin
for I := 1 to 50 do begin
  new(Params);//***
  Params^.Nr = I;
  BeginThread(nil,
              0,
              Addr(StarThread),
              Params,//***
              0,
              id);
  end;
end;

markieren

Delphi-Quellcode:

function StarThread(Paramter: Pointer): Integer;
var
  Params : TParamRecord;
begin
  Params := PParamRecord(Paramter)^; //***
  Dispose(PParamRecord(Paramter)); //***

  Form1.Memo1.Lines.add('Angekommen mit '+IntToStr(Params.Nr));
end;

Zitat von Basilikum:

@Sunlight7: hä ? wo ist jetzt der entscheidende Unterschied ?

So oft ich es probiert habe waren die Zahlen zwischen 1 und 50.

Edit: Ich lasse mich eines besseren belehren, man kann ja net immer recht haben
Edit2: Stimmt, ich hatte die Variable lokal in der Unit

Hi,

Vielen Dank!
Ich habe es zum laufen bekommen.

Merci.
Gruss,
MArc