TThread und Sleep

[henryhux]

Hey, ich glaube mein erster Post hier EDIT : Nicht ganz
Und zwar wollte ich mal nachfragen, ob es normal ist, dass sleep() in einem Thread ausgeführt das ganze Programm freezed?
Dachte immer das würde nicht passieren.
Naja hier ein kleines Beispiel:

Delphi-Quellcode:

  TThread1 = class(TThread)
    procedure execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TThread1.execute;
begin
  Sleep(5000);
end;

procedure TForm1.btn1Click(Sender: TObject);
var T : TThread1;
begin
  T := TThread1.Create;
  T.Execute;
end;

Was könnte ich als Alternative benutzen?

Lg

[Matze]

Hallo,

meine Antwort bezieht sich nicht speziell auf Threads, da ich nicht weiß, wie sich das dort verhält. In einer "normalen" Anwendung kannst du anstelle von Sleep die Funktion Delay verwenden. Diese verhindert ein Einfrieren während der Wartezeit.

[henryhux]

Danke, benutze ich üblicherweise außerhalb von Threads auch.
Nur dachte ich Application.Processmessages sollte in Threads vermieden werden?

Lg

[Bummi]

die Zeile
  T.Execute; gehört da nicht rein.
Der Thread selbst läuft ins Execute, wenn Du es aus der Haupanwendung aufrufst steht diese....

Beispiel:

Delphi-Quellcode:

procedure TThread1.execute;
begin
  Showmessage('vor Sleep');
  Sleep(15000);
  Showmessage('nach Sleep');
end;

procedure TForm1.button1Click(Sender: TObject);
var T : TThread1;
begin
  T := TThread1.Create(false);

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Showmessage('Hallo')
end;

[Thom]

Ok. Zu spät...

Aber ist es weise, ShowMessage aus dem Thread-Kontext heraus aufzurufen!?
Wäre da nicht ein Synchronize-Aufruf angebrachter?

[henryhux]

Ok, das Beispiel klappt, danke.
Doch was für ein Parameter hast du der create Methode mitgegeben?

Lg

[Luckie]

Zitat von Bummi:

Beispiel:
[delphi]
procedure TThread1.execute;
begin
Showmessage('vor Sleep');
Sleep(15000);
Showmessage('nach Sleep');
end;

Autsch. Die VCL ist nicht threadsafe. Das ShowMessage sollte also eine Exception auslösen. Wenn dann bitte eine MessageBox.

[Luckie]

Zitat von henryhux:

Doch was für ein Parameter hast du der create Methode mitgegeben?

Einfach mal mutig F1 drücken.

[Bummi]

Zitat:

Autsch. Die VCL ist nicht threadsafe. Das ShowMessage sollte also eine Exception auslösen. Wenn dann bitte eine MessageBox.

ich weiß.... ich wollte Ihm nur schnell zeigen dass das Execute ausgeführt wird ....

[henryhux]

Ok, danke.
Der Fehler war dann wohl, das Execute nochmal auszuführen.

Vielen Danke =)

Lg