Bonjour a toutes et a tous,

J'ai encore un probleme a vous soumettre lol ,

J'essais , avec le composant winsocks , d'envoyer et recevoir des données et plus particulierement un tableau de chaine de caracteres ( ou "array of string" ).
Seulement je ne sais pas dutout coment faire ...

Voici m'a demarche :
1/du coté client:
Je met mes informations dans un tableau de type array. Puis je mesure ça taille et j'envoie celui-ci a la manière d'un buffer :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
type
  info_a_send = array [1..500] of string;
 
procedure envoie_donne();
Var
  infos : info_a_send;
  taille : integer;
 
begin
       infos[1]:='info_ordi';
       infos[2]:='coucou';
       infos[3]:='lol';
       taille:=length(infos);
       ClientSocket1.Socket.SendBuf(infos,taille);
end;

2/ Du coté serveur :
Je recois les informations du client et je tente de les gerer :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
Var
  Buffer : array[0..1000] of string ;  
  taille : integer;
 
begin
 
  taille:=Socket.ReceiveLength; 
  Socket.ReceiveBuf(Buffer,taille);
  Edit1.Text:=Buffer[1];
 
end;
Voila ma methode que j'applique , néanmois j'ai une erreur des que le serveur recois le tableau et mon programme plante ... Pouvez vous m'aider ?


Merci d'avance a tous ceux qui liront ce message

Cordialement
Lucho