PB pour envoyer une ListView1 avec serveur socket

Salut donc
voila j'ai pensé a ça

ServerSocket1.Socket.Sendtext(ListView1.items);

Mias il me dit [Erreur] Unit1.pas(515): Types incompatibles : 'String' et 'TListItems'
ps: si vous savez faire avec indy je prend aussi lol
bon si vous trouvez une sollution sa serait sympa
@++

Essaye comme ça :
ServerSocket1.Socket.Sendtext(ListView1.Items.Text);

@+
Bonne Prog'
Nico

---

Merci
c'est une idée seulement sa ne marche pas car il n'autorise pas le .text avec la listview
je cherche toujours sur le net

Désolé, je n'avais pas fait attention à ListView...

@+
Bonne Prog'
Nico

---

Salut,
Tu peux essayer ceci:

---

procedure MaProc;
var
  Txt: string;
  i: Integer;
begin
  Txt:='';
{ On récupère les caption de tousles éléments du ListView. }
  for i:=0 to ListLiew1.Items.Count do
    Txt:=Txt + ListLiew1.Items.Item[i].Caption;
{ Et on envoie le tout. }
  ServerSocket.Socket.SendText(Txt);
  Txt:='';
end;

---

@ ++
Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

oui, mais faudrait penser à mettre un séparateur... sinon à la réception, c'est pa très lisible...
par exemple :

procedure MaProc;
var
  Txt: string;
  i: Integer;
begin
  Txt:= '';
{ On récupère les caption de tousles éléments du ListView. }
  for i:= 0 to ListLiew1.Items.Count do
    Txt:=Txt + ListLiew1.Items.Item[i].Caption+'|';
  Txt := Copy(Txt,1,Length(Line)-1); // On enlève le dernier séparateur
{ Et on envoie le tout. }
  ServerSocket.Socket.SendText(Txt);
  Txt:='';
end;

@+
Bonne Prog'
Nico

---

Désolé, il pourrait y avoir confusion : le caractère séparateur que j'ai mis ici n'est pas un L ni un 1, mais la barre verticale que l'on peut trouver sur la touche [6] en haut du clavier...

@+
Bonne Prog'
Nico

---

Encore désolé, je m'en étais pas rendu compte, mais il y a une erreur sur la ligne
  Txt := Copy(Txt,1,Length(Line)-1);
Il faut la remplacer par :
  Txt := Copy(Txt,1,Length(Txt)-1);

@+
Bonne Prog'
Nico

---

ok merci je vais essayer sa ce soir
@++

Je conseille aussi de jeter un coup d'oeil aux procédures ObjectBinaryToText, ObjectTextToBinary ainsi qu'aux exemples fournis dans l'aide en ligne pour l'utilisation de ces fonctions.
Delphi utilise lui même ces mécanismes pour enregistrer vos fiches en format texte et pour les relire. C'est dire si c'est puissant

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<