Sockets Problem: Programm hängt sich auf???

**romber**

Hallo!

Ich habe TServerSocket, ServerType := stThreadBlocking. Bei der Verbindung wird in OnGetThread ganz normal einen neuen Thread erstellt. Das Programm hängst sich aber sofort auf, wenn Client die Verbindung schliesst. Woran kann das liegen?

Code für den Server:

zusammenfalten · markieren

Delphi-Quellcode:

			...

type

  TClientThread = class(TServerClientThread)

  protected

    procedure ClientExecute; override;

end;

procedure TForm1.ServerSocket1GetThread(Sender: TObject; ClientSocket: TServerClientWinSocket;

  var SocketThread: TServerClientThread);

begin

 SocketThread := TClientThread.Create(false, ClientSocket);

end;

procedure TClientThread.ClientExecute;

var

s: string;

begin

  repeat

    s := ClientSocket.ReciveText;

    if Length(s) > 0 then

    begin

      ...

      ...

    end;

  until not ClientSocket.Connected

end;

...

Der Client macht erstmal gar nichts.

Wo liegt das Problem?

Sockets Problem: Programm hängt sich auf???

Sockets Problem: Programm hängt sich auf???

Forumregeln