Konsolenanwendung: Warteschleife

[spiderb]

Hallo,
ich schreibe im mom einen kleinen Server, der Nachrichten empfangen und weiterleiten soll.
Es handelt sich hierbei um eine konsolenanwendug und der Client kann sich auch connecten und ich bekomme auch keine Fehlermeldung wenn er etwas sendet, also vermute ich das die nachricht auch ankommt. Nur leider geht die Konsole ja aus wenn kein Befehl mehr vorliegt und ich weiß im Moment nicht, wie ich eine Schleife oder ähnliches realisieren kann, die auf eine Nachricht des clients wartet.
Ich benutzte die TServerSocket Komponente.
Wenn ich einfach eine schleife laufen lasse, die nichts macht, dann reagiert er nicht wenn sich ein client connectet...

Delphi-Quellcode:

procedure Tform1.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket) ;
begin
Writeln('client connected');
end;

*Nicht über Tform1 wundern. Ich habe die classe in der unit selber so genannt...*

Es kommt also nicht dazu, dass 'client connected' ausgegeben wird.
Kann mir jmd helfen?

[Apollonius]

Die ScktComp-Komponenten verwenden Windows-Fenster-Nachrichten. Du musst also eine Nachrichtenschleife laufen lassen:

Delphi-Quellcode:

var Msg: TMsg;
while GetMessage(Msg, 0, 0, 0) do
begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
end;

Wenn du das Programm beenden willst, musst du die Funktion PostQuitMessage aufrufen.

[spiderb]

ihr seid genial =)
danke!