Registriert seit: 17. Jul 2003
Ort: Aachen
350 Beiträge
Delphi 7 Enterprise
|
Re: idTCPServer in Konsole: Konsole soll nicht schließen
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 . . .
|