mhh das habe ich gemacht mein string ist leider nur danach leer
bzw in memo2 wird immer nur eine leere zeile hinzugefügt
Ist für einen chat das die
IP mitgesendet wird
Server:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
I: integer;
begin
Text:= Socket.ReceiveText;
if Pos('\\',Text) = 1 then
Memo2.Lines.add(Socket.ReceiveText) else
Memo1.Lines.Add(Timetostr(now)+': '+Text);
For i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
begin
with ServerSocket1.Socket.Connections [I] do
if (connected) then SendText(Text);
end;
end;
Client:
Delphi-Quellcode:
Var
IP :
string;
begin
Label3.Caption :=
IP;
if (ClientSocket1.Active=true)
then
ClientSocket1.socket.SendText('
\\'+
IP);
end;