Hallo zusammen,
ich habe gerade Probleme mit den Threads.
Ich möchte gerne irgendwie warten, bis ein Thread erfolgreich beendet wurde.
Dafür habe ich nun die Methode "WaitFor" gefunden.
Nur verstehe ich die Funktionsweise nicht.

Hier der Aufbau meiner Anwendung:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.ExtCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    importList: TStringList;
  public
    { Public-Deklarationen }
  end;

  TThread1 = class(TThread)
    protected
      procedure Execute; override;
    private
      IdHTTP1: TIdHTTP;
      page: String;
      response: String;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TThread1.Execute;
begin
  IdHTTP1 := TIdHTTP.Create();
  self.response := IdHTTP1.Get(self.page);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Thread1: TThread1;
begin
    Thread1 := TThread1.Create(True);
    Thread1.FreeOnTerminate := True;
    Thread1.response := 'Foo';
    Thread1.page := 'http://google.de';
    Thread1.Start;

    showmessage(Thread1.response);
end;
end.

Es ist klar, dass ich jetzt nur eine Meldung mit "Foo" bekomme, da der Thread ja noch nicht beendet wurde.
Wie kann ich nun warten, bis der Thread beendet wurde um dann die Meldung auszugeben?

Zitat von SyntaxXx:

Wie kann ich nun warten, bis der Thread beendet wurde um dann die Meldung auszugeben?

Na eben mit TThread.WaitFor ... allerdings ist es doof, wenn du den Thread automatisch beim Beenden ins Nirwana schickst. Von wem willst du dann noch was holen?

Und wenn du auf den Thread wartest, dann ist deine UI blockiert ... warum dann einen Thread?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Thread1: TThread1;
begin
    Thread1 := TThread1.Create(True);
    try
      // Thread1.FreeOnTerminate := True;
      Thread1.response := 'Foo';
      Thread1.page := 'http://google.de';
      Thread1.Start;
      Thread1.WaitFor;
    
      showmessage(Thread1.response);
    finally
      Thread1.Free;
    end;
end;

Ahhhh ok, das war einfach.
Ok, du hast recht, macht natürlich jetzt keinen Sinn, mit nem Thread zu arbeiten.

Du kannst natürlich OnTerminate etwas zuweisen. Das Ereignis wird ausgelöst, wenn der Thread fertig ist

Und das tolle daran: OnTerminate wird sogar schon im Hauptthread ausgeführt.

Zitat von Der schöne Günther:

Und das tolle daran: OnTerminate wird sogar schon im Hauptthread ausgeführt.

Und das Allerbeste,

Man kann darin sogar auf Exceptions prüfen. Also die, welche im Thread auftrat und wodurch der Thread abgeschossen wurde.
Denn, im Gegensatz um Hauptthread, werden diese Exception zwar ebenfalls abgefangen, aber nicht dem Benutzer "angezeigt".

Der Grund, warum die RTL/VCL das macht: Windows beendet Prozesse, womit sich das ganze Programm verabschieden würde, wenn in irgendeinem Thread eine Exceptions bis zur Wurzel (ins Windows) durch rauscht.

TThread.FatalException