Einzelnen Beitrag anzeigen

htxmlx

Registriert seit: 23. Aug 2008
124 Beiträge
 
Delphi 7 Enterprise
 
#16

Re: Listbox Inhalt von Server zum clienten schicken???

  Alt 11. Sep 2008, 20:04
Ok in die Listbox bekommen tu ichs, nur das stehen dann immer noch die 3 vorzeichen vor dem namen kann man die mit irgendeinem befehlt wegmachen?

nach langem rumprobieren bin ich an einem zweiten problem verzweifelt wenn der client dann disconnected dann soll der nickname ja auch aus der online lite gelöscht werden ich habs so versucht...
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
i: Integer;
Text: String;
begin
Text:=Socket.ReceiveText;
i := Clients.Items.IndexOfObject(Text);
if (Length(Text) > 2) and (Copy(Text,1,3) = '#99') then
Clients.Items.Delete(i);
end;
Also bei disconnecten sendet man noch einmal die nickname nachricht mit #99 davor und wenn die dann bei disconnecten halt ankommt soll das item halt gelöscht werden. mien problem nur man kann den index of object leider net von text definieren sondern nur von TObjecten, also wie soll ich da umsetzen...

Gruß, htxmlx
  Mit Zitat antworten Zitat