Einfacher thread der nur ein MessageDlg anzeigt erzeugen

[quendolineDD]

Erstmal ist MessageBox im Gegensatz zu ShowMessage eine Funktion und keine Prozedur.
Das MessageBox in TApplication ist nur ein Wrapper für die WinAPI Funktion MessageBox.

Das bei MessageBox gewartet wird, bis der Benutzer eine Eingabe macht, resultiert wohl daraus, das erst nach dem Klicken auf eine der Schaltflächen (bei dir mbOK - was auch Standard ist und somit gar nicht übergeben werden müsste) die Funktion zum Programm zurückkehrt. Im Gegensatz dazu ist ShowMessage ein einfaches Anzeigefenster.

[jfheins]

Zitat:

Zitat von Kostas

Delphi-Quellcode:

      ThreadMB := TMessageBoxThread.Create(true);
      ThreadMB.Priority := tpLower;
      ThreadMB.Resume;

      ThreadMB := TMessageBoxThread.Create(true);
      ThreadMB.Priority := tpLower;
      ThreadMB.Resume;

Delphi-Quellcode:

unit MessageBoxThread;

interface

uses
  Classes, Dialogs, Forms, Sysutils, Windows;

type
  TMessageBoxThread = class(TThread)
  private
    { Private-Deklarationen }
  protected
    text: string;
    procedure Execute; override;
    procedure StarteThread; virtual; //abstract;
  public
    constructor Create(msg:string);
  end;


implementation

{ TMessageBoxThread }

constructor TMessageBoxThread.Create(msg:String);
begin
  inherited Create(false);
  text := msg;
end;


procedure TMessageBoxThread.Execute;
begin
  {Windows.}MessageBox(nil, 'Hallo Welt', 'Schöner Text', MB_OK);
end;

end.

Mit MessageBox brauchst du das nicht mehr synchronisieren, da es ja Threadsafe ist ;)

Aber wirklich die Windows-API-Funktion verwenden und nicht die VCL-Version Application.Messagebox()

Du brauchst übrigens keine Variable im Konstruktor des Threads, du kannst einfach true reinschreiben ;)

[Kostas]

Zitat:

Zitat von jfheins

...
Du brauchst übrigens keine Variable im Konstruktor des Threads, du kannst einfach true reinschreiben ;)

Hallo Julius,

was könntest Du damit meinen?
Dem Constructor übergebe ich nur den Text welcher angezeit werden soll.
Aber vermutlich meinst Du etwas anderes.

Gruß Kostas

[jfheins]

Delphi-Quellcode:

      ThreadMB := TMessageBoxThread.Create(true);

Das da meine ich - ist aber nicht so wichtig ;)

[Kostas]

Zitat:

Zitat von jfheins

Delphi-Quellcode:

      ThreadMB := TMessageBoxThread.Create(true);

Das da meine ich - ist aber nicht so wichtig ;)

Ah, ich verstehe. Das war eigentlich Absicht um den Text der angezeigt werden soll
zu übergeben. Du meinst, es währe besser eine public property zu erzeugen und nach dem Create
über das property den Text zuweisen?

[edit]

ach jetzt sehe ich das gerade.
Ich mache das eigentlich so:

Delphi-Quellcode:

ThreadMB := TMessageBoxThread.Create(s); 
      ThreadMB.Priority := tpLower; 
      ThreadMB.Resume; 

      ThreadMB := TMessageBoxThread.Create(s); 
      ThreadMB.Priority := tpLower; 
      ThreadMB.Resume;

und nicht so:
Wie das Create umgestellt wurde ist mir ein Rätsel.

Delphi-Quellcode:

ThreadMB := TMessageBoxThread.Create(true); 
      ThreadMB.Priority := tpLower; 
      ThreadMB.Resume; 

      ThreadMB := TMessageBoxThread.Create(true); 
      ThreadMB.Priority := tpLower; 
      ThreadMB.Resume;

Gruß Kostas

[jfheins]

Ok, hab mich vertan :oops:

Ich hatte nicht gesehen, dass du den Konstruktor überschrieben hast ...

Aber wenn ich mich recht errinere, ist der Orginal-Parameter CreateSuspended - d.h. insb. dass du den Thread sofort nach dem Kontruktor startest weil du ja false übergibst - danach darfst du eigenlich keine Propertys mehr ändern, weil der Thread schon beendet sein könnte !

Da du ja sowiso am Ende ein Resume machst, kannst du also auch true übergeben.

Generell solltest du dich für einen Weg entscheiden: Alles im Konstruktor mitgeben und sofort loslegen oder den Thread schlafend erstellen und dann Properties belegen ;)

[Kostas]

Zitat:

Zitat von jfheins

Ok, hab mich vertan :oops:

..
Generell solltest du dich für einen Weg entscheiden: Alles im Konstruktor mitgeben und sofort loslegen oder den Thread schlafend erstellen und dann Properties belegen ;)

Wie müsste ich bitte den Tread umbauen so das er sofort nach dem erzeugen startet?
Ich würde gerne dem Constructor den Text übergeben und danach kann er auch sofort losgehen.

Und noch eine Kleinigkeit wenn ich darf: Den Buffer habe ich großzügig mit 500 byte angelegt.
Eigentlich würde ich gerne der Buffer zur Laufzeit ermitteln und setzen.
So geht es leider nicht, hast Du eine Idee?

Buffer: array of char;
SetLength(Buffer, Length(s));

Delphi-Quellcode:

procedure TMessageBoxThread.Execute;
const MAX_BUFFER = 500;
var Buffer: array [0..MAX_BUFFER] of char;
begin
  StrLCopy(Buffer, PChar(text), MAX_BUFFER);
  windows.MessageBox(handle, Buffer, 'Fingerabdruck gefunden', MB_OK);
end;

Gruß Kostas

[jfheins]

Das tut er doch bereits :gruebel:

Delphi-Quellcode:

constructor TMessageBoxThread.Create(msg:String);
begin
  inherited Create(false);
  text := msg;
  Priority := tpLower;
end;

Nur darfst du dann keine Properties mehr setzten nachdem du den kOnstruktor aufgerufen hast ...

Zu dem Char-Array-Pronblem: Schonmal versucht, den String einfach nach PChar zu casten?

[Kostas]

Zitat:

Zitat von jfheins

Das tut er doch bereits :gruebel:

Delphi-Quellcode:

constructor TMessageBoxThread.Create(msg:String);
begin
  inherited Create(false);
  text := msg;
  Priority := tpLower;
end;

Nur darfst du dann keine Properties mehr setzten nachdem du den kOnstruktor aufgerufen hast ...

Zu dem Char-Array-Pronblem: Schonmal versucht, den String einfach nach PChar zu casten?

oh je, natürlich funkt es, ich dachte ich muss Resume immer aufrufen.
Das mit PChar war das erste was ich probiert hatte. Zu dem Zeitpunkt hat es jedoch
Fehlermeldungen geregnet, allerding nicht wegen cast auf PChar wie ich soeben gemerkt
habe. Auch das geht also. So gefehlt mir das.

Tausend Dank Julius Du warst mir eine große Hilfe.

Gruß Kostas

Delphi-Quellcode:

unit MessageBoxThread;

interface

uses
  Classes, Dialogs, Forms, Sysutils, Windows;

type
  TMessageBoxThread = class(TThread)
  private
    { Private-Deklarationen }
  protected
    text: string;
    procedure Execute; override;
  public
    constructor Create(msg:string);
  end;


implementation

{ TMessageBoxThread }

constructor TMessageBoxThread.Create(msg:String);
begin
  inherited Create(false);
  text := msg;
  Priority := tpLower;
end;


procedure TMessageBoxThread.Execute;
begin
  windows.MessageBox(handle, Pchar(text), 'Fingerabdruck gefunden!', MB_OK);
end;


end.

Aus dem Aufruf ist jetzt nur noch das übrichgeblieben. :-)

Delphi-Quellcode:

ThreadMB := TMessageBoxThread.Create(s);