Thema: Delphi nick senden

Einzelnen Beitrag anzeigen

iaby

Registriert seit: 30. Nov 2002
Ort: BW
258 Beiträge
 
#5
  Alt 15. Feb 2003, 20:13
Code:
 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[i].SendText(rec);
    end;
  end;
probiers mal so!

wenns nicht klappt, dann mach mal ein "showmessage(rec)" ganz am anfang, nachdem rec eingelesen wurde. dann siehts du was wirklich ankommt!
musst mal etwas rumexperiementieren!
  Mit Zitat antworten Zitat