Soweit ich weiss wird der Thread nicht automatisch erstellt. Es müsste bei der TServerSocket Komponente ein Event namens OnGetThread geben, die als var-Parameter den erstellten Thread erwartet:
Code:
type
TMySocThread = class( TServerClientThread )
// Abgeleiteter Thread
protected
procedure ClientExecute; override;
end;
...
procedure TMySocThread.ClientExecute;
begin
while not Terminated do begin
// Lesen
// bearbeiten
end;
end;
procedure ServerSocket1.OnGetThread( var Thread: TServerClientThread )
begin
Thread := TMySocThread.Create( True );
Thread.Resume;
end;
Der Code ist nicht getestet - hab ihn noch ungefähr von früheren Projekten in Erinnerung.