Einzelnen Beitrag anzeigen

la.reunion

Registriert seit: 30. Apr 2006
152 Beiträge
 
#6

Re: String erkennen und aufteilen!

  Alt 30. Apr 2006, 23:28
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;
  Mit Zitat antworten Zitat