Hi,
durch einen anderen Beitrag (Daten sicher übertragen) wurde ich hingewiesen meine Anwendung bzw. dessen Kommunikation übers Internet mit
Indy zu lösen, da diese schön SSL können.
Jetzt habe ich mal ein wenig geschaut.
verstehe ich das jetzt so richtig.
Das ist der Demo Server. Sobald sich ein Client anmeldet und einen Text sendet wird dieser wieder zurück gesendet.
Delphi-Quellcode:
procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
var
msg : string;
begin
msg := AThread.Connection.ReadLn;
with AThread.Connection do
begin
WriteLn(msg+Inttostr(Random(100)));
end;
end;
Bei den Clients erstellen ich die Komp direkt beim Starten der Anwendung und verbinde mit dem Server.
Das Senden sieht so aus.
Delphi-Quellcode:
TCPClient.WriteLn('Hallo. ');
ListBox1.Items.Add(TCPClient.ReadLn);
Ist das so richtig, das ich beim Server immer mit ReadLn warte bis was von irgend einem Client kommt?
So könnte ich dann auch größere Anwendungen erstellen, was noch fehlt ist ein Protokoll und eine überprüfung ob die Verbindung noch "lebt"
Gruß Thomas