blockierende Verbindungen

[darkstone]

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.