Thread, Socket - Synchronize wird nicht aufgerufen

**C.Schoch**

Hi,
Was ist das denn für ein Konstrukt?

Delphi-Quellcode:

			procedure TTCPThread.Execute;

begin

  inherited; // kann/muss weg!

  repeat

    Synchronize(DoConnect); // Bis hierhin und nicht weiter ..

    Sleep(1000);

  until (Terminated) or (Client.Active);

end;

var //was soll das sein? Compilerverwirrung?

  Msg: TMsg;

  TCP: TTCPObject;

begin

  TCP := TTCPObject.Create;

  TCP.StartConnecting;

  while GetMessage(Msg, 0, 0, 0) do

  begin

    TranslateMessage(Msg);

    DispatchMessage(Msg);

  end;

end.

Bin mir auch nicht sicher ob Synchronize in einer Klasse funktioniert, da sich das Handle des Hauptthread möglicherweise nicht ermitteln lässt

Thread, Socket - Synchronize wird nicht aufgerufen

Re: Thread, Socket - Synchronize wird nicht aufgerufen

Forumregeln