Discussion :

[nosse]

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 :

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
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

[ShaiLeTroll]

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

[nosse]

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!

[ShaiLeTroll]

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 et à naviguer de liens en liens à partir de la page ScktComp

[nosse]

Je ne trouve pas le composant TServerWinSocket dans embarcadero

[ShaiLeTroll]

Je ne trouve pas le composant TServerWinSocket dans embarcadero

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 !