Delphi indy 10

Bonsoir
Je cherche à développer un server communiquant avec une carte électronique constitué d'un module Xport du constructeur Lantronix (interface ethernet TCP/liaison série RS232).
Pour l'instant j'arrive à recevoir des données du module Xport en utilisant le module Tserversoket comme le montre les lignes suivantes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var data: array[0..26] of byte; size: byte; begin Memo1.Lines.Add('Lecture des informations effectuées'); Size:= Socket.ReceiveLength; Memo1.Lines.Add('taille='+inttostr(size)); Socket.ReceiveBuf(data,size); MSB_NUM_IN.text:=inttohex(ord(data[0]),1); LSB_NUM_IN.text:=inttohex(ord(data[1]),1); MSB_PRO_IN.text:=inttohex(ord(data[2]),1); LSB_PRO_IN.text:=inttohex(ord(data[3]),1); MSB_LG_IN.text:=inttohex(ord(data[4]),1); LSB_LG_IN.text:=inttohex(ord(data[5]),1); ADRESSE_IN.text:=inttohex(ord(data[6]),1); CODE_IN.text:= inttohex(ord(data[7]),1); DATE.text:='le '+inttostr(data[11])+'/'+inttostr(data[12])+' à '+inttostr(data[8])+'h '+inttostr(data[9])+'min '+inttostr(data[10])+'s'; freq_in.Text:=floattostr(ord(data[13])/2); U_in.text:=floattostr((256*data[14]+data[15])/2); I_in.text:=floattostr((256*data[16]+data[17])/10); P_in.text:=floattostr((256*data[19]+data[20])*10); gauge1.Progress:=round((256*data[19]+data[20])/15); end;

---

Par contre, je souhaiterais envoyer des données du serveur vers le module Xport mais je ne trouve pas de fonction du genre socketwrite!
Quelqu'un a-t-il un exemple de programme?
Merci

TServerSocket n'est pas du Indy 10 mais un bien vieux composants VCL !

TServerWinSocket.ActiveConnections ...
un serveur gère une collections Connections[], dans ce tableau tu trouveras ta cible et les méthodes SendText ou SendBuf

Exemple de communication socket pour la réalisation d'un petit chat

lit ce sujet Problème sur SocketHandle conflit d'identifiant qui explique justement comment trouver un destinataire parmis plusieurs

Bonjour merci de m'avoir répondu.
Je vais regarder de près ce que tu m'as envoyé mais dans les exemples que j'ai pu trouver , les données envoyées sont des chaînes de caractères, je veux transmettre un tableau de 29 octets entre le serveur et le client dans les deux sens!

Citation:

---

Envoyé par nosse

les données envoyées sont des chaînes de caractères, je veux transmettre un tableau de 29 octets entre le serveur et le client dans les deux sens!

---

Pour du binaire : SendBuf et mieux SendStream

Pense à la touche :f1: et à naviguer de liens en liens à partir de la page ScktComp

Je ne trouve pas le composant TServerWinSocket dans embarcadero

Citation:

---

Envoyé par nosse

Je ne trouve pas le composant TServerWinSocket dans embarcadero

---

:koi: TServerWinSocket c'est de le type de la propriété Socket du TServerSocket

Là faudrait faire un peu plus d'effort de lecture de l'aide !

Ok je regarde cela ce soir ou au plus tard demain apres midi.
Merci, je te tiens au courant.

Excuse moi mais je ne vois pas comment résoudre mon problème. bon j'avoue je suis débutant et je m'inspire beaucoup de programmes existants.

Pour la lecture, j'ai fait un clic dans l’événement onclientread de Tserversocket ce qui à fait apparaitre la fonction:

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);....   Maintenant je voudrais transmettre au client des octets avec un clic sur un bouton ce qui produit la fonction: procedure TForm1.Button3Click(Sender: TObject); begin TForm1.ServerSocket1ClientWrite(); end;

---

appelant la fonction, que j'ai créée en clickant sur onclientwrite:

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject; Socket: TCustomWinSocket); var data: array[0..2] of byte; begin data[0]:=48; data[1]:=49; data[2]:=50; //SendStream(data); end;

---

mais cela ne fonctionne pas il y a des erreurs.
Peux tu m'aider en me donnant qq lignes de programmes je suis perdu?
Merci

Bonjour,
Balises de code S.V.P. http://club.developpez.com/regles/#L3.5
Changez également votre titre http://club.developpez.com/regles/#L3.4 puisque cela ne correspond pas a du Indy10 mais a du Socket

Je n'ai jamais utilise OnClientWrite

le code est simplement

Code:

---

ServerSocket1.Socket.Connections[?].SendBuf(..., ...);

---

le ? est l'index du destinataire, Tu peux mémoriser le SocketHandle durant le OnClientRead et l'utiliser pour trouver la cible comme dans ce sujet Problème sur SocketHandle conflit d'identifiant

..., ... c'est ta donnée et sa longueur

Pour l'utilisation de ClientWrite

Code:

---

1 2 3 4 5

data[0]:=48; data[1]:=49; data[2]:=50; Socket.SendBuf(data,Length(data));

---

@Linkin, qui invoque OnClientWrite ?
Est-ce après le OnClientRead, lorsque le client utilise un ReadBuf de son côté attendant des données, je ne comprends pas bien cet évènement

Pour commencer, un code simpliste

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button3Click(Sender: TObject); var data: array[0..2] of byte; begin data[0]:=48; data[1]:=49; data[2]:=50; ServerSocket1.Socket.Connections[0].SendBuf(data, 3); end;

---

Merci mais je ne vois pas comment appeler la commande signer.write a partir de mon clic de bouton?

Je voulais écrire client write dans le message précédent.

Il existe une bouton "editer" !

As-tu essayé le code simpliste que j'ai proposé ?
As-tu un retour à faire dessus ?

Tu connectes 1 client sur le serveur, puis tu cliques sur Button3
Difficile de faire plus simple que cela

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button3Click(Sender: TObject); var data: array[0..2] of byte; begin data[0]:=48; data[1]:=49; data[2]:=50; ServerSocket1.Socket.Connections[0].SendBuf(data, 3); end;

---

Ok merci je vais essayer ce soir ou demain.
Merci

Bonsoir à tous

J'ai essayé la fonction la plus simple que vous m'avez indiquer:

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button3Click(Sender: TObject); var data: array[0..2] of byte; begin data[0]:=48; data[1]:=49; data[2]:=50; ServerSocket1.Socket.Connections[0].SendBuf(data, 3); end;

---

Impeccable le code fonctionne. Le serveur émet au client les 3 octets.

Par contre, j'ai tenté de récupérer un identifiant de client de la façon suivante tout conservant la connexion 0 précédente pour que la connexion ai lieu:

Code:

---

1 2 3 4 5 6

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Lines.Add('Connexion acceptée par le socket server'); Idclient := Socket.SocketHandle; Memo1.Lines.Add('Connexion à ' + Inttostr(Idclient)); end;

---

le message m'indique que l'Idclient est 60 aucun lien avec 0 !!!

Code:

---

1 2 3 4 5 6

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Lines.Add('Connexion acceptée par le socket server'); Idclient:=ServerSocket1.Socket.ActiveConnections-1 ; Memo1.Lines.Add('Connexion à ' + Inttostr(Idclient)); end;

---

Le message indique bien 0.

Le programme fonctionnera-t-il avec ce code dans tous les cas?

Code:

---

Idclient:=ServerSocket1.Socket.ActiveConnections-1 ;

---

D'où mon lien avec le sujet Problème sur SocketHandle conflit d'identifiant qui explique justement comment trouver un destinataire parmi plusieurs clients !

ActiveConnections change en fonction des connexions, j'ignore ce que tu cherche à faire mais si tu gère plusieurs clients, cela ne sera pas fiable, SocketHandle est plus fiable et pérenne mais nécessite une résolution d'index

J'avais déjà fourni dans mes liens toutes ces informations :evilred:

Code:

---

1 2 3 4 5 6

... Index := IndexHandle(ServerSocket1, Idclient) ; if Index >= 0 then ServerSocket1.Socket.Connections[Index].SendBuf(data, 3); ....

---

Code:

---

1 2 3 4 5 6 7 8 9

function IndexHandle (AServerSocket: TServerSocket; ASocketHandle: Integer) : Integer ; begin with AServerSocket.Socket do for Result := 0 to ActiveConnections - 1 do if ASocketHandle = Connections[Result].SocketHandle then Exit;   Result := -1 ; end;

---

Bonsoir
Mon serveur fonctionne très bien avec l'application hyperterminal en connexion TCP/IP mais je n'arrive pas à le connecter au module Xport Lantronix utilisé comme interface éthernet entre un microcontroleur et cette application delphi.

J'arrive à effectuer une connexion avec ce module lorsque je créée une application client par le mode de connexion passive (page 29 et 30 de la doc téléchargeable à l'adresse: http://www.lantronix.com/pdf/XPort_UG.pdf)

Par contre je n'arrive pas à le connecter avec mon application serveur en utilisant l'"active connexion" et la host list de la page 26 dans laquelle j'ai inséré l'IP de mon serveur.

Ce type d'interface n'est peut pas destiné à être un client?