Trivialproblem beim Öffnen eines TClientSocket

[Nimral]

Zitat von Uwe Raabe:

Steht das ClientType -Property des TClientSocket auf ctBlocking ?

Hi Uwe,

Code:

  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 768
    Top = 312
  end

Also nonblocking. Sollte ich mal blocking probieren? Möchte den Port allerdings nonblocking fahren!

Fällt mir grad auf ... was auch noch fehlt ist der Code des OnConnect Handlers, vielleicht ist ja der der Bösewicht?

Code:

procedure TClientMainForm.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  begin
  DisplayMessage('Connect: ' + ConstructPrefix(Socket));
  end;

DisplayMessage schreibt einen Text in die Statuszeile des Forms, in der Form z.B. "Connect: 127.0.0.1:8888", zur Kontrolle. Sollte eigentlich nicht weh tun, oder?

Gruss Armin.