Hallo,
da hängt's mal wieder.
in einem Thread soll auf Nachrichten von einem
TCP-Server gewartet werden.
Delphi-Quellcode:
procedure BoTCPClient.Execute;
var
i: Integer;
begin
{ Thread-Code hier einfügen }
Client:=TIdTCPClient.Create(
nil);
Client.Host:=Host;
Client.Port:=Port;
i:=1;
while (
not client.Connected)
and (i<=10)
and (
not terminated)
do
begin
try
Client.Connect;
break;
except
on E:
Exception do
begin
Emsg:=E.
Message;
EKlasse:=E.ClassName+'
Versuch: '+IntToStr(i);
Synchronize(Fehler);
inc(i);
end;
end;
Sleep(60000);
end;
if Client.Connected
then
begi
// in VerbA Threadgestartet auf True gesetzt
Synchronize(VerbA);
Client.IOHandler.
Write(Anmeld+#10);
Synchronize(Anm);
end;
while (
not terminated)
and Client.Connected
do
begin
if cmd=1
then
begin
......
im thread
Delphi-Quellcode:
procedure BoTCPClient.VerbA;
begin
{Anfang der Verbindung}
with TCPForm1 do
begin
// Memo.lines.add funktioniert
Memo1.Lines.Add(DateTimeToStr(now)+': Verbindung zum Server hergestellt');
// kommt nie im HP an
Threadgestartet:=true;
end;
end;
im Hauptprogramm
Delphi-Quellcode:
while not(Threadgestartet) do
sleep(10000);
..... // wird nie erreicht
funktioniert ohne while im HP auch bestens, aber jetzt möchte ich gerne im Hauptprogramm warten bis sicher ist, dass die Verbindung zum Server funktioniert hat. Wenn ich im thread einen Variable des HP auf true setze und im HP darauf warte blockt mich augenscheinlich Synchronize.
Wie kann ich das HP über einen bestimmten Zustand des Threads informieren?
in der
DP wird das thema oft angefasst, aber meist auf thread terminated gewartet.
Wer kann mir da helfen?
Danke schon mal vorweg.
MfG
Albrecht
Zitat
Baum-Darstellung
