Hallo,
da hängt's mal wieder.
in einem Thread soll auf Nachrichten von einem TCP-Server gewartet werden.

zusammenfalten · markieren

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

zusammenfalten · markieren

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

markieren

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

Hallo AlBo55.

Dies ist leider nicht seriös zu beantworten, wenn man den Source nicht vollständig hat!
Interessant wäre da das Zusammenspiel mit dem von dir verwendeten VCL-Synchronisations Objekten?
Auch ist nicht klar was das Programm überhaupt machen soll (ausser irgendwas an irgendwen zu schicken?)
Handelt es sich nur um Request Response, oder besteht die Verbindung permanent usw.??

Kannst ja folgendes versuchen

1. Erstelle den Thread suspended
2. Mache im Constructor die Client.Connect;
3. Wenn Connected, dann Thread aufwecken

Ansonsten, verwende PostMessage, SendMessage, EventObjekte, Threadinternen EventBuffer etc.

lg. Astat

Hallo AlBo55.

• AlBo55 hat geschrieben:

markieren

Delphi-Quellcode:

   
   ...
    // kommt nie im HP an
    Threadgestartet:=true;
   ...

Wie Auch, du blockierst dich ja selber, Synchronize initiiert hier einen Deadlock!

markieren

Delphi-Quellcode:

while not(Threadgestartet) do
  sleep(10000);
..... // wird nie erreicht

Tipp:
Verwende Sleep niemals um etwas zu synchronisieren oder zu steuern,
dafür gibt es ja Synchgronisationsobjekte!

Kürz den Source so dass er lauffähig ist, und du ihn uns zeigen kannst, dann können wir dir schneller weiterhelfen.

lg. Astat

TIdTelnet in Indy\Lib\Protocols\TIdTelnet.pas ist ein gutes Beispiel - es erzeugt einen Thread, in dem der Client auf die Servernachrichten wartet. Sobald eine eintrifft, wird sie an die Aussenwelt (ausserhalb des Threads) weitergegeben. Dies läuft in einer Schleife, die von der Klasse TIdThread allgemein bereitgestellt wird - so kann man die Logik gut von der Threadsteuerung trennen.

Viele Grüße,

Danke an alle.

mit postMessage funktioniert es bestens.

MfG

Albrecht