Naja sagen wir ich habs zur hälfte raus
Ich kann zwar jetzt dem Server Nachrichten senden aber der Server nicht dem Clienten.
Außer halt direkt bei OnExecute. Aber das bringt mir bei einem Chat nichts. Da sollen ja Nachrichten geschickt werden wenn der Benutzer es will.
Der Server kann nun so Nachrichten empfangen :
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
with AThread.Connection
do
begin
WriteLn('
Hello from Basic Indy Server server.');
Form1.Caption := ReadLn;
end;
end;
Der Client kann einfach so
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
IDTCPClient1.WriteLn('HALLO SERVER');
end;
dem Server eine Nachricht schicken, die auch ankommt.
Aber gibt es keine Möglichkeit vom Server dem Clienten eine Nachricht zu schicken auf ButtonClick ?