Ergebnis der Suchanfrage

• Forum: Netzwerke
    Delphi
    by iaby, 15. Feb 2003
  rec:=Socket.ReceiveText;
  if copy(rec,1,5)= '/nick' then
  listbox1.add(copy(rec,6,length(rec)-6)
  else
  begin
  for i := 0 to ss.Socket.ActiveConnections -1 do
  begin
  ss.socket.Connections.SendText(rec);
  end;
  end;
• Forum: Netzwerke
    Delphi
    by iaby, 15. Feb 2003
  client:
  cs.Socket.SendText('/nick' + nick.text+' '+':'+' '+text.text);
  
  auslesen dann so:
  server:
  
  if copy(rec,1,5)= '/nick' then
  begin
  listbox1.add(copy(rec,6,length(rec)-6)
  end;