idTCPServer in Konsole: Konsole soll nicht schließen

[Chris1986]

Hallo,
ich versuche gerade einen simplen Chat-Server in einer Konsolen-Anwendung aufzubauen. Wie ich alle Komponenten erstelle und auch mit Ereignissen verbinden, weiß ich. Allerdings beendet sich das Programm sofort, nachdem es alle Befehle ausgeführt hat. Was muss ich tun, damit das Konsolenfenster geöffnet bleibt, der idTCPServer weiter läuft und ich zwischen durch noch mit writln Texte ausgeben kann (z.B. im Onconnect-Ereignis)?

Danke für eure Hilfe

MfG
Christian

[shmia]

Zitat von Chris1986:

Was muss ich tun, damit das Konsolenfenster geöffnet bleibt, der idTCPServer weiter läuft und ich zwischen durch noch mit writln Texte ausgeben kann (z.B. im Onconnect-Ereignis)?

Du musst die Konsolenanwendung in einer Schleife aufhalten.

Delphi-Quellcode:

var
   ShutDownServer : boolean;  // Globale Variable
begin
   ShutDownServer := False;

   // ...
   while not (ShutDownServer or Eof(Input)) do Sleep(50);
   // ...
end;
end.

Wenn du Strg-C drückst oder die Variable ShutDownServer auf True setzt,
endet die Konsolenanwendung.

[Chris1986]

ahh, danke

[Chris1986]

Noch ne Frage:
bei writeln('Hallo DP . . .') schließt sich die Konsole nicht. Wenn ich Console.TCPServer.active := true aufrufe, wird die Konsole sofort geschlossen. Woran liegt das?

EDIT: Der Quelltext:

Delphi-Quellcode:

type 
  TConsole = class(TObject)
    TCPServer: TIdTCPServer;
   constructor create;
  private
    procedure ServerConnect(AThread: TidPeerThread);
  public
  end;

constructor TConsole.Create;
begin
inherited Create;
  TCPserver := TIdTCPServer.Create(TCPServer);
  with TCPServer do
  begin
    OnConnect := ServerConnect;
  end;
end;

var
  Console: TConsole;
  ShutDownServer: boolean;

//Server Events-----------------------------------------------------------------
procedure TConsole.ServerConnect(AThread: TidPeerThread);
begin
   with AThread as TIdPeerThread do
   begin
      // hier kannst du z.B. den Namen und checked abfragen...
      writeln(AThread.Connection.LocalName);
   end;
end;
//Ende: Server Events-----------------------------------------------------------

begin
  writeln('Herzlich Willkommen.');
  Console.TCPServer.DefaultPort := 300;
  Console.TCPServer.active := true;// <= Konsolenfenster schließt sich im Anschluss
  while not (ShutDownServer{ or Eof(Input)}) do Sleep(50);
end.

Danke für eure Hilfe

Gruß
Christian

[Chris1986]

Zitat von Chris1986:

Noch ne Frage:
bei writeln('Herzlich Willkommen') schließt sich die Konsole nicht. Wenn ich Console.TCPServer.active := true aufrufe, wird die Konsole sofort geschlossen. Woran liegt das?

EDIT: Der Quelltext:

Delphi-Quellcode:

type 
  TConsole = class(TObject)
    TCPServer: TIdTCPServer;
   constructor create;
  private
    procedure ServerConnect(AThread: TidPeerThread);
  public
  end;

constructor TConsole.Create;
begin
inherited Create;
  TCPserver := TIdTCPServer.Create(TCPServer);
  with TCPServer do
  begin
    OnConnect := ServerConnect;
  end;
end;

var
  Console: TConsole;
  ShutDownServer: boolean;

//Server Events-----------------------------------------------------------------
procedure TConsole.ServerConnect(AThread: TidPeerThread);
begin
   with AThread as TIdPeerThread do
   begin
      // hier kannst du z.B. den Namen und checked abfragen...
      writeln(AThread.Connection.LocalName);
   end;
end;
//Ende: Server Events-----------------------------------------------------------

begin
  ShutdownServer := false;
  writeln('Herzlich Willkommen.');
  Console.TCPServer.DefaultPort := 300;
  Console.TCPServer.active := true;// <= Konsolenfenster schließt sich im Anschluss
  while not ShutDownServer do Sleep(50);
end.

Danke für eure Hilfe

Gruß
Christian