Netzwerk Chat

Arbengie · Beiträge: 66

Hi, ich versuche gerade einen kl. Chat zu machen, doch ich habe folgendes Problem:
Wenn der Client eine Nachricht an den Server schickt, wird diese nur im Server angezeigt, aber nicht im Clienten.

Server:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TfrmMain.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  i: Integer;
begin
  Memo.Lines.Add(Socket.ReceiveText);
  for i := 0 to server.Socket.ActiveConnections - 1 do
    server.Socket.Connections[i].SendText(Socket.ReceiveText);
end;

Client:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TfrmMain.ClientOnRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo.Lines.Add(Socket.ReceiveText);
end;

Kann wer helfen?

Nersgatt · Verfasst: Do 14.04.11 14:37

Du solltest beim Server vermutlich ReceiveText nur einmal aufrufen und in einer Variablen Zwischenspeichern. Dann kannst Du den Inhalt der Variablen ins Memo einfügen und an die Clients ausschicken.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

Narses · Verfasst: Do 14.04.11 14:39

Moin!

Nersgatt hat folgendes geschrieben :

Du solltest beim Server vermutlich ReceiveText nur einmal aufrufen und in einer Variablen Zwischenspeichern. Dann kannst Du den Inhalt der Variablen ins Memo einfügen und an die Clients ausschicken.

Jup, der Tipp ist gut. :zustimm:

Und hier gibt´s noch ein paar mehr davon. :les:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Arbengie · Beiträge: 66

Ich hab jetzt ein Problem, das vorher nie auftritt, nämlich ich bekomme zum Server keine Verbindung mehr aufgebaut, obwohl Server und Client auf dem selben PC sind.
Port ist bei Client und Server gleich.

markieren

Delphi-Quelltext

1:
2:
3:
4:

client.Host := 127.0.0.1;
client.Port := 7777;
client.Active := true;
client.Open;

Und als Fehler wird immer 10049 ausgegeben.

FrEaKY · Beiträge: 235 D7

Arbengie hat folgendes geschrieben :

Ich hab jetzt ein Problem, das vorher nie auftritt, nämlich ich bekomme zum Server keine Verbindung mehr aufgebaut, obwohl Server und Client auf dem selben PC sind.
Port ist bei Client und Server gleich.

markieren

Delphi-Quelltext

1:
2:
3:
4:

client.Host := 127.0.0.1;
client.Port := 7777;
client.Active := true;
client.Open;

Und als Fehler wird immer 10049 ausgegeben.

Auf den ersten Blick: Host sollte ein String sein. Schlägt da der Compiler bei dir nicht Alarm?
Der Error Code bestätigt dies:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

WSAEADDRNOTAVAIL

(10049)

Cannot assign requested address. 

The requested address is not valid in its context. Normally results from an attempt to bind to an address that is not valid for the local machine, or connect/sendto an address or port that is not valid for a remote machine (e.g. port 0).

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme