Hallo,
Ich möchte für ein kleines Internetcafé ein Programm zur Überwachung der Rechner schreiben (nur Zeit und Preis)
Dazu verwende ich aus der
Indy die IdTCPClient und IdTCPServer
Nun habe ich das Problem, dass der Server nicht kontinuierlich Online ist und Die Clienten auch nicht.
Die Clienten habe ich mit try..except dazu gebracht nur zu senden wenn der Server auch da ist allerdings hängt der Client dann ziemlich heftig.
könnt ihr mir evtl. eine bessere Methode empfehlen?
Client-Timer:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
Begin
try
IdTCPClient1.WriteLn(label1.Caption);
except
end;
end;
Server-OnExecute:
Delphi-Quellcode:
procedure TForm1.IdTCPServer3Execute(AThread: TIdPeerThread);
Begin
Label3.Caption:=AThread.Connection.ReadLn;
end;
Ich habe nun extra zum testen jeglichen überflüssigen Code rausgenommen.