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:
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?