TCP Chat Rückmeldungen

[Tobiax]

Hallo ich hab einen TCP Client und einen TCP Server Programmiert aber wenn ich mit einen Client auf dem Server Connecte kann zwar was an den server Schreiben aber die anderen Clients sehen das nicht nur der serer deshalb brauch ich eine Rückmeldung das der Server die empfangene Nachricht wieder an die Clienten zurück sendet!! Bitte helft mir dringent



mfg.Tobiax

[Aenogym]

hi,

ganz einfach: der server muss eben so auf eine ankommende nachricht reagieren, dass er die nachricht an alle anderen verbundenen clients sendet.
wo ist dein problem genau? weißt du, wie man eine nachricht vom server zum client sendet?

aeno

[Tobiax]

Hi Aenogym genau das weis ich nicht kannst du mir einen code geben


danke für deine Hilfe


mfg.Tobiax

[Tobiax]

MMM Aenogym wüstest du dei Anwort sehr wichtig für mich :stupid:


mfg.Tobiax

[Aenogym]

(pushen ist erst nach 24 stunden hier erlaubt - also das schrieben von zwei beiträgen hintereinander ;)
und: ich bin auch arbeit, weshalb ich nicht permanent ins foru schaue ;))

aber nun zum code:

Delphi-Quellcode:

ClientSocket.Sendln('Nachricht');

wobei ClientSocket vom Typ TCustomIpClient ist.

ablaufen kann das ganze so:
dein client verbindet sich mit dem server. beim server wird das Ereignis OnAccept ausgelöst. darin wird dir im parameter ClientSocket ein objekt übergeben, mit dem du den client ansprechen kannst. dieses objekt musst du dir für spätere verwendung speichern (zB. in einem array ablegen).
der client besitzt das Ereignis OnReceive, das jedes mla ausgeführt wird, wenn er daten zum server sendet. sobald dieses ereignis ausgelöst wird, nimmst du dir die darin übergebene nachricht und schickst sie per .Sendln() an alle anderen clients, die du dir zuvor gespeichert hast.

aeno

[Tobiax]

Danke erst mal aber ich hab keinen TCustomIpClient ???

was is das gibt es auch ein Möglichtkeit das TCP machen oder so?



mfg.Tobiax

[Aenogym]

Zitat:

Zitat von Tobiax

Danke erst mal aber ich hab keinen TCustomIpClient ???

was is das gibt es auch ein Möglichtkeit das TCP machen oder so?



mfg.Tobiax

Du nutzt doch die fertigen Komponenten TTcpServer und TTcpClient, oder nicht?
TCustomIpClient ist quasi ein teil davon. und den bekommst du in verschiedenen ereignissen der komponenten übergeben.

aeno

[Tobiax]

Ok aber wie soll ich den code dann einfügen bis jetzt hab ich das hier:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls, IdTCPConnection,
  IdTCPClient;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Server: TIdTCPServer;
    Button2: TButton;
    Client: TIdTCPClient;
    procedure ServerExecute(AThread: TIdPeerThread);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button2Click(Sender: TObject);
begin
Server.Active:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with Server do
DefaultPort:=strtoint(edit1.text);
Server.Active:=true;
begin
Client.Host:=(''+Edit1.text);
Client.Connect();
Client.WriteLn(Edit1.Text);
 end;
 end;
procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var
  ms: string;
begin
  ms:=athread.Connection.ReadLn('',10);
 Memo1.Lines.Add(ms);
end;

end.

Es wäre net wenn du das mir näher beschreiben könntest ich noch Anfänger!

danke

mfg.Tobiax

[Tobiax]

Is das Thema schon eingeschlafen???


bitte helft mir!!

mfg.Tobiax