Chat mit TCP Server und Client

[hibbert]

Hi,
ich schaffe es einfach nicht, einen einfachen Text per TCP Komponenten zu verschicken

Ich weiß das ich über den Clienten das mit Client.writeln('test'); machen kann, doch wie lese ich diese anchricht wieder aus und wie kann der server diese dann an alle verbundenen Clienten schicken ??

Sicher die Frage wurde sicherlich schon oft behandelt, doch ich raff es einfach nicht

gibt es da irgendwo ein einfaches tutorial dazu oder kann mir das einer nochmal schnell erklären ??

thx hibbert

[Mitchl55]

Ich denke mit einer Procedure Server.Read('test'); würde aber die Indy Komponenten nutzen

senden:
IdUDPClient1.Send .

empfangen:

Delphi-Quellcode:

procedure TFrmMain.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
  var msg:string;
begin
end;

Jedenfalls wirst Du wenn Du mit Netzwerkadressen arbeitest wahrscheinlich auch das Problem
mit den 2 Netzwerkkarte bekommen.

http://www.delphipraxis.net/internal...21ff9b7398355f
Gruß

Mitchl

[hibbert]

mhh doof, ich hätte vielleicht sagen sollen, dass ich das mit den Indy TCP Kompos versuchen möchte.

mit den udp funzt das schon....

thx hibbert

[Chris1986]

Hi hibbert,
wie du schon sagtest ist es in einem Chat-Programm sinnvoll eine TCP-Verbindung zu benutzen. UDP ist nicht geeignet, weil das Protokoll nicht überprüft, ob die IP-Pakete auch tatsächlich ankommen.

Beispiele für einen Chat mit den Indys gibts schon viele im Forum.
Hier wurde das Thema vor einigen Wochen schon einmal ausführlich behandelt.

Viel Erfolg
Gruß
Christian

[hibbert]

ok, jetzt funktionert das, eigentlich ganz einfach.
doch eine frage bleibt jetzt noch:

wenn der Server die Nachricht bekommen hat, wie kann dieser die dann an alle verb. Clienten schicken ?

thx hibbert