Ich versuche eine Procedure in einen Thread zustarten. Dazu verwende ich diesen Code:

zusammenfalten · markieren

Delphi-Quellcode:

var
  COUNTER: Integer = 0;

////////////////////////////////////////////////////////////////////////////////
procedure StarteThread;
var
  I: Integer;
begin
  I :=0;
  for I := 0 to 100 do begin
    Form1.ListBox1.Items.Add('Thread: '+IntToStr(COUNTER)+' Schleifendurchlauf: '+IntToStr(I));
    SendMessage(Form1.ListBox1.Handle,WM_VSCROLL,SB_BOTTOM,0);
    Sleep(100);
    end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
  TID: cardinal;
begin
  Inc(COUNTER, 1);
  CreateThread(0,0,@StarteThread,0,0,TID);
end;
////////////////////////////////////////////////////////////////////////////////

Wenn ich jetzt mehrfach Button1 drücke, werden mehrere Threads gestartet, die auch abgearbeit werden. Ich möchte jetzt aber auch noch in der Listbox sehen, welcher "Schleifendurchlauf" zu welchem (gestarten) Thread gehört. So wie das Programm derzeit aufgebaut ist wird mir der "COUNTER" nicht richtig angezeigt.

nach dem der neue Thread angelaufen ist, must Du dort in einer lokalen Variable den Zählerstand zum Zeitpunkt des Thread-Startes zwischenspeichern....
ansonsten gilt der Wert der globalen Variable für jeden Thread und jeden Schleifendurchgang...

zusammenfalten · markieren

Delphi-Quellcode:

var
  COUNTER: Integer = 0;

////////////////////////////////////////////////////////////////////////////////
// procedure StarteThread;
// Korrekte Signatur ist:
Function StarteThread(Parameter : Pointer) : LongWord; StdCall;
var
  ID,
  I: Integer;
begin
  ID := InterlockedIncrement(COUNTER);
  // Zähler atomar (unteilbar, serialisiert) inkrementieren, und Resultat zwischenspeichern

  for I := 0 to 100 do begin
    Form1.ListBox1.Items.Add('Thread: '+IntToStr(ID)+' Schleifendurchlauf: '+IntToStr(I));
    // dies ist unschön, da VCL nicht thread-safe... Quelle für lästige Bugs...
    // bei produktiven Anwendungen mittels Synchronize() auskoppeln, oder ganz auf Messages umstellen

    SendMessage(Form1.ListBox1.Handle,WM_VSCROLL,SB_BOTTOM,0);
    Sleep(100);
  end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
  TID: cardinal;
begin
  CreateThread(0,0,@StarteThread,0,0,TID);
end;
////////////////////////////////////////////////////////////////////////////////

Danke für Deine Mühen. Geht einwandfrei!

Hi,
man sollte aber BeginTread und nicht CreatThread benutzen.

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadID: Cardinal;
  ThreadHandle: HWND;
begin
  ThreadHandle := BeginThread(nil, 0, TFNThreadStartRoutine(@StarteThread), nil, 0, ThreadID);
  if ThreadHandle <> 0 then CloseHandle(ThreadHandle);
end;

Mfg ReDoX

Guten Morgen,
wie muß ich das denn machen, bzw welches sollte die besser Methode sein, um der Thread-Funktion einen String zu übergeben? Ich habe bei Modifikationen immer nur Fehlermeldungen erhalten....

Guck dir mein Thread Tutorial an: http://tutorials.luckie-online.de , wird gezeigt, wie man Parameter an einen Thread übergibt.

hi Luckie...

Dein Tut habe ich doch schon.... vor meinem Posting gehabt. Die ganzen Zusatzinformationen sind einfach schon wieder zuviel des Guten. Aber ich werde solange darein schauen bis ich es verstanden habe.

//Edit: 2 Stunden später: *g