Message beim ThreadEnde

[TheMiller]

Schönen, guten Abend...

kurze Frage: Kann man eine Nachricht abfangen, die ein Thread sendet, wenn er beendet wird? Ich erstelle den Thread per BeginThread. Nur möchte ich, dass sich mein Programm erst nach ThreadEnde fortsetzt, aber trotzdem während des Threads noch benutzbar ist.

Danke

[Bernhard Geyer]

z.B. indem du eine Windows-Message mit eigener ID an ein Fenster schickst.

[TheMiller]

Kannst du mir das evtl. nochmal näher erklären. Hab sowas noch nie gemacht und auch kein Tutorial dazu gefunden.

Gute Nacht

[Dani]

Ich hab hier noch ein kleines Programm rumliegen, wo ich Windows Messages zur Thread-MainWindow-Komminikation verwendet habe... vielleicht bringt es dir ja was.

Delphi-Quellcode:

//Die eigene Windows-Botschaft. WM_APP + x ist für die Intra-Prozess-Kommunikation gedacht.
const
  WM_THREADUPDATE = WM_APP + 2404;

...
//Das Objekt, das mit lParam übergeben wird.
type
  TThreadMessage = class(TObject)
  private
    FErrorCode: Integer;
    FMessageStr: String;
  public
    constructor Create(ErrCode: Integer; Msg: String);
  published
    property ErrorCode: Integer read FErrorCode write FErrorCode;
    property MessageStr: String read FMessageStr write FMessageStr;
  end;

...
//Versenden der Nachricht aus TThread.Execute
    try
      Response := HTTP.Post(POSTUrl, Formdata);
      PostMessage(MainWindowHandle, WM_THREADUPDATE, 0,
          Integer(TThreadMessage.Create(ERR_OK, Response)));
    except
      on E: Exception do begin
        PostMessage(MainWindowHandle, WM_THREADUPDATE, 0,
            Integer(TThreadMessage.Create(ERR_POST, E.Message)));
       end;
    end;

Delphi-Quellcode:

//Verarbeiten der Nachricht des Threads im Hauptfenster.
  TfrmMain = class(TForm)
    ...
  private
    procedure UpdateView(var Msg: TMessage); message WM_THREADUPDATE;
    ...
  end;

  ...

procedure TfrmMain.UpdateView(var Msg: TMessage);
var
  ThreadMsg: TThreadMessage;
begin
  ThreadMsg := TThreadMessage(Msg.LParam);

  case ThreadMsg.ErrorCode of
    ERR_OK: ...

    ERR_POST: ...
  end;

  ThreadMsg.Free; <-- wichtig
end;

Gruß,
Dani

[TheMiller]

Hi,

danke für den Code. Bin grad dabei, da ein bissl durchzusteigen. Kannst du mir das kleine Programm mal anhängen, oder ist das nicht os.
Würde auch gerne mal wissen, ob der obere Code eine eigene Unit ist...

Danke

[Dani]

Hab noch ein bischen drin rumgepfuscht, damit auch was angezeigt wird und man kein Indy/SSL braucht, um es zu compilieren.
Gruß

[TheMiller]

Ich danke Dir für Deine Mühe. Ich schau grad mal rein.