Discussion :

[luchoadvance]

Bonjour a tous,

Je suis un debutant en Delphi , donc ma question ne doit pas être trop compliqué à resoudre , enfin je seche un peu lol .
J'essai de créer un Server et un client en winsock. Les deux se connectent bien entre eux et j'arrive a envoyer des string (avec sendtext ) du server (TServerSocket) vers le client (TClientSocket). Mais impossible de faire l'inverse : c'est a dire du client vers le server. J'essais de le faire avec un Buffer avec les instruction si dessous pour le client :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ComputerName:='ordi a pierre';
ClientSocket1.Socket.SendBuf(ComputerName,Length(ComputerName));

Et les instructions dans la partie serveur (ServerSocket1ClientRead) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
taille:=Socket.ReceiveLength;
Socket.ReceiveBuf(Buffer,taille);
List_info.Items.Add(buffer);

Le programme compile bien , mais des que j'essais de recevoir des données de la part du client vers le serveur j'ai un beau message d'erreur :
Access Violation at adress ...


Je n'ai peut etre pas compris comment fonctionne les buffers mais j'ai tout essayé et je en comprend pas , pouvez vous m'eclairez svp ?

Merci d'avance

Cordialement,
Lucho

[Jipété]

Access Violation at adress ...

Dans la partie client ou dans la partie serveur ?
--
jp

[luchoadvance]

c'est mon server qui plante , celui avec le TServerSocket
si besoin je peut faire une capture d'ecran du message d'erreur du debugger

merci de ta réponse

[Jipété]

si besoin je peut faire une capture d'ecran...

Pas nécessaire, par contre un bout de code de la partie concernée (un peu plus que ce que t'as mis), qu'on voie comment tu déclares et initialises tes variables...

On n'est pas devin,
--
jp

[macumba]

A tout hasard comme tu débutes, je suppose que List_Infos est une TList, tu n'aurais pas tout simplement oublier de la créer avant de faire le Add :
List_Infos := TList.Create;

[luchoadvance]

Bonsoir macumba,

c'est vrai que les 3 lignes de code que je vous founis n'est pas trop explicite lol , le
List_Infos est en faite un TlistView , que j'ai deja initialisé , j'ai d'ailleur deja ajouté des element dans celui-ci avant l'appel a la fonction. Donc je ne pense pas que cela viens de la ...

j'ai beau cherché je n'arrive a rien , es-ce que un expert (lol) en Winsock peut il me dire si ma syntaxe d'envoie et juste ? parcque je ne sais pas trop si celle-ci est correct.


Merci d'avance

[Jipété]

List_Infos est en faite un TlistView

Essaye donc avec un TMemo, histoire de lever le doute.
--
jp

[ShaiLeTroll]

J'aurais tendance à écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Socket.ReceiveBuf(@Buffer[1], taille);

ou plus simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Buffer := Socket.ReceiveText;

si tu ne prévois de n'envoyer que des chaines pascal, car j'utilise des strings, qui me sert de buffer pour des binaires recopiés dans des record (ça contient des #0 ...)

[luchoadvance]

Pour le Tmemo , je vien de tester cela fait exactement la meme erreur donc je ne pense pas que cela vienne de la ,

j'ai fait des recherche et je pense que cela vien peut etre du faite que j'ai mal definie mon buffer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
Buffer:string;
taille :Integer;
 
begin
  taille:=Socket.ReceiveLength;    // taille du buffer reçue ( en octets )
  Socket.ReceiveBuf(Buffer,taille);    // reception des données
  List_info.Items.Add(buffer);

j'ai definie le buffer comme un string , et on ma dit l'on devait alloué un espace au buffer , etc , je n'ai aps trop compris , peut etre que mon erreur , de plus je vais essayé de voir avec la syntaxe que m'a apssé ShaiLeTroll pour voir si ça marche , mais a mon avi mone rreur vien du faite que je definie mal mon buffer ....


merchi d'avance

[Graffito]

Bonjour,

Il faut en réception definir Buffer comme un tableau de caractère de longueur fixe, recevoir dedans, puis transférer le contenu du buffer vers une string.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Var Buffer : array[0..1000] of char ;
     dest : string ;
...
dest:='' ;
for i:=0 to taille_recue-1 do dest:=dest+buffer[i] ;

[luchoadvance]

que dire de plus a part un grand merci !!!!!

cela marche parfaitement !


Merci encore Graffito pour ta réponse qui merche parfaitement

et merci a tous ceux qui m'ont aidé