Discussion :

[luchoadvance]

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

[Sub0]

Tu devrais t'inspirer de cet article :
http://nono40.developpez.com/sources/source0015/

Dans un programme de transfert de données par réseau, il est très important de gérer les éventuelles erreurs de communication... Je reconnais que c'est plus compliqué que ton code, mais cette gestion des erreurs est essentielle.