Einzelnen Beitrag anzeigen

Chris1986

Registriert seit: 17. Jul 2003
Ort: Aachen
350 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: idTCPServer in Konsole: Konsole soll nicht schließen

  Alt 29. Apr 2004, 19:16
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
Es gibt nur 10 Typen von Menschen auf der Welt:
Die, die Binärcode verstehen und die, die es nicht tun . . .
  Mit Zitat antworten Zitat