Hallo zusammen,
ich versuche momentan mithilfe der Delphi 7
PE einen kleinen Chat zu schreiben. Ich arbeite momentan daran doppelte Namen zu unterbinden. Deshalb soll der Client beim Verbinden seinen Namen in eine Variable schreiben und an den Server schicken, wo der Name in einem Array gespeichert wird.
Mein Problem ist folgendes:
Delphi-Quellcode:
procedure TForm1.ChatServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i:Integer;
msg:String;
begin
msg := Socket.ReceiveText;
memoVerlauf.Lines.add(msg);
for i := 0 to ChatServer.Socket.ActiveConnections-1 do
ChatServer.Socket.Connections[i].SendText(msg);
end;
Würde ich SendText benutzen so würde der Server den Namen wie eine Nachricht weiterverarbeiten. Wie kann ich das verhindern?
LG Rudinii
P.S.: Die TClient- und TServerSocket Komponenten hab ich
so reingekriegt ^^