Zitat von
Chimaira:
Zitat von
Gerrit89:
Ok ich hab schnell ne Form genommen und n client hingepflanzt der verbindet.
Passiert aber nichts ...
ich halte den Server so am Leben, vllt liegts daran ja:
Delphi-Quellcode:
while True do
begin //Endlosschleife die den Server am Leben hällt
if Proceed = False then
Exit;
end;
Es liegt (u.a.) sicher daran. Denn soweit ich das sehe hat das Programm nirgends die Möglichkeit, die Variable 'Proceed' upzudaten, womit das eine ewige Endlosschleife wird
Wozu du diese Schleife brauchst verstehe ich nicht, denn afaik bleibt dir der Server auch so am Leben, bis du ihm sagst, dass er sich und seine Verbindungen umbringen soll
Ich glaub das Programm hat keine Form. Ohne die Schleife würde es dann zum Ende laufen und Beenden.
Wenn ich richtig liege, bau dein Server-Programm doch auf ner Form auf. Kannst sie ja mit TForm.Hide unsichbar machen. Dann brauchst du nich diese merkwürdige Schleife...