Entwickler-Ecke
Sonstiges (Delphi) - HILFE: Probleme mit Beispielprogramm-Geht das nur mir so???
gunman - Do 17.10.02 14:30
Titel: HILFE: Probleme mit Beispielprogramm-Geht das nur mir so???
Bin gerade dabei einen Delphi Thread in einer Anwendung zu steuern, soll heissen ich will Ihn mit thrdobject.Free terminieren. Starten und Ausführen vom Thread Code hat bis dahin funktioniert. Das Formular lässt sich noch verschieben thread führt munter einen Testzähler aus der per Synchronize in ein Memofeld geschrieben wird. Nach dem Aufruf von Free oder allen anderen Methoden die mit dem Beenden des Threads zu tun haben hängt sich das Programm jedoch auf! Strg+F2 einzige Möglichkeit zu Beenden!!! :cry:
Das gleiche passiert auch mit dem mitgeliefertem Threaddemo aus Delphi6\Help\examples\prgrsbar\pg1.dpr.
Diese Anwendung bleibt schon beim Button CreateThread stehen.
:evil:
Was mach ich falsch? Sind irgendwelche Compileranweisungen falsch gesetzt?
besten Dank schon mal für Euere Hilfe :!: :!: :!:
Gun
gunman - Do 17.10.02 15:30
Titel: der Beispielcode für das Problem:
i ist global deklariert;
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure TForm1.FormCreate(Sender: TObject);
begin
testThrd:= TSpeedThread.Create( FALSE );
// InitThread( );
end;
procedure TForm1.AddEntry( );
begin
Form1.Memo2.Lines.Add( IntToStr( i ) );
Form1.Caption:= IntToStr( i );
end;
procedure TSpeedThread.Execute( );
begin
i:= 0;
while TRUE do
begin
Sleep(10);
inc(i);
Synchronize( Form1.AddEntry );
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
testThrd.Free;
end; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!