Hallo, ich habe hier eine Anwendung, in der 12 Threads (muss leider so sein) unsere Hardware überwachen und eventuelle Fehlermeldungen am Hauptbildschirm überwachen. Wie es sich gehört, mache ich die Ausgabe über synchronize. Allerdings meldet mir Madexcept dann manchmal "Application seems to be froozen". Lasse ich synchronize weg passiert nichts. Ich habe das mal auf folgenden kleinen Test zusammengefasst.
Threadcode:
Delphi-Quellcode:
unit Unit9;
interface
uses
Classes,windows,forms,sysutils;
type
TTestThread =
class(TThread)
private
{ Private-Deklarationen }
Myname:
String;
protected
procedure Execute;
override;
procedure addmain;
public
constructor create(
Name:
String);
end;
implementation
uses unit8;
{ Wichtig: Methoden und Eigenschaften von Objekten in visuellen Komponenten dürfen
nur in einer Methode namens Synchronize aufgerufen werden, z.B.
Synchronize(UpdateCaption);
und UpdateCaption könnte folgendermaßen aussehen:
procedure TTestThread.UpdateCaption;
begin
Form1.Caption := 'Aktualisiert in einem Thread';
end; }
{ TTestThread }
procedure TTestThread.addmain;
begin
Form8.addstring(myName+'
'+inttostr(gettickcount));
end;
constructor TTestThread.create(
Name:
String);
begin
Myname:=Name;
inherited create(false);
end;
procedure TTestThread.Execute;
begin
{ Thread-Code hier einfügen }
while not Terminated
do
begin
// Synchronize(addmain); // <==== Führt zum Freeze
addmain;
// <==== Führt nicht zum Freeze
end;
end;
end.
Im Hauptfenster ist folgendes:
Delphi-Quellcode:
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,unit9, StdCtrls;
type
TForm8 =
class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
threads:
Array[1..50]
of TTestThread;
procedure addstring(str:
String);
end;
var
Form8: TForm8;
implementation
{$R *.dfm}
{ TForm8 }
procedure TForm8.addstring(str:
String);
begin
try
memo1.Lines.Add(str);
except
on exception do
begin
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
memo1.Lines.Delete(0);
end;
end;
end;
procedure TForm8.Button1Click(Sender: TObject);
var
n: Integer;
begin
for n := low(threads)
to high(threads)
do
threads[n]:=TTestThread.create(inttostr(n));
end;
end.
Die Frage ist jetzt, was läuft hier falsch ? Warum kommt das "Application seems to be froozen" wenn ich synchronize benutze ?