Ok danke erstmal für deine Antwort, also bisher arbeite ich mit ClientSocket und ServerSocket, die beiden die man sich da erst wiederhohlen muss in den Reiter Internet...
So wird etwas zum Server verschickt...
Delphi-Quellcode:
if (ClientSocket1.Active=true) and (Edit1.Text<>'') then ClientSocket1.Socket.SendText(NickName+': '+Edit1.Text);
Edit1.Text:='';
Edit1.SetFocus;
Und so wird der Text der von Server gesendet wird im Clienten eingelesen..
Memo1.Lines.Add(Socket.ReceiveText);
So empfängt bzw. sendet der server den text...
Delphi-Quellcode:
Text:=Socket.ReceiveText;
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;
Gruß, htxmlx