Discussion :

[adelant]

Bonjour,

J’essaie d'écrire un petit programme avec accès WiFi. Pour cela j'ai copié un programme dont voici un élément :

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.WSocket1DataAvailable(Sender: TObject; ErrCode: Word);
var
    Buffer : array [0..1023] of Ansichar;
    Len    : Integer;
    Src    : sockaddr_in;
    SrcLen : Integer;
    Lbuffer : Integer;
    temp   : string;
 
begin
    SrcLen := SizeOf(TSockAddrIn);
 
Len := WSocket1.ReceiveFrom(@Buffer,SizeOf(Buffer) , Src , SrcLen);
    if Len >= 0 then begin ...

Et j'obtiens les erreurs suivantes :

[Erreur] FOCUSS.pas(96): Les types des paramètres VAR originaux et formels doivent être identiques
[Erreur fatale] FOCUSSP.dpr(5): Impossible de compiler l'unité utilisée 'FOCUSS.pas'

Si je met des parenthèses à Src : Len := WSocket1.ReceiveFrom(@Buffer,SizeOf(Buffer) , (Src) , SrcLen);
J'ai en plus le message suivant :
[Avertissement] FOCUSS.pas(96): Transtypage non protégé de 'sockaddr_in' en 'sockaddr_in'
qui me parait assez surprenant !
Avez-vous des explications ?
Merci d'avance.
Adelant

[Paul TOTH]

"mettre des parenthèse" c'est juste pour faire joli ou il y a un but derrière ?

il est probable que la déclaration de la fonction a évolué entre l'exemple que tu as trouvé et ta version de Delphi (ou l'inverse)

donc première chose à faire, regarder les paramètres attendus par ReceiveFrom(), soit en control-cliquant dessus, soit avec le Hint de Ctrl+Espace après la parenthèse ouvrante

ensuite il faut lui donner ce qu'il attends.

je pari sur SrcLen qui est possiblement un Cardinal

[adelant]

"mettre des parenthèse" c'est juste pour faire joli ou il y a un but derrière ?

il est probable que la déclaration de la fonction a évolué entre l'exemple que tu as trouvé et ta version de Delphi (ou l'inverse)

donc première chose à faire, regarder les paramètres attendus par ReceiveFrom(), soit en control-cliquant dessus, soit avec le Hint de Ctrl+Espace après la parenthèse ouvrante

ensuite il faut lui donner ce qu'il attends.

je pari sur SrcLen qui est possiblement un Cardinal

Merci pour ta réponse.
Les parenthèses ont l’intérêt (découvert par hasard) de faire apparaitre un message surprenant puisqu'il semble que le compilateur veut transtyper 'sockaddr_in' en 'sockaddr_in' !
Je ne pense pas que ce bout de programme soit en cause car j'ai vu de nombreux utilisateurs l'emprunter.
J'ai peut-être résolu le PB en ajoutant dans les "uses" : OverbyteIcsWinSock qui n'est pourtant pas dans les exemples que j'ai pillé et qui aurait, de toutes les façons, dû se rajouter tout seul comme les autres. (Il y avait déjà OverbyteIcsWndControl et OverbyteIcsWSocket).
J'ai passé l'étape de la compilation, je vais maintenant tester l'exécution avec un ESP8266 qui est déjà prêt.

[Paul TOTH]

ah je pense tout simplement que sockaddr_in est déclaré dans OverbyteIcsWinSock alors qu'il existe déjà dans Winapi.Winsock...du coup il est déclaré deux fois, tu devais avoir Winsock dans les uses, et le composant attendait la version de OverbytIcsWinsock

[ShaiLeTroll]

Src ne devrait-il pas être un SOCKADDR et non SOCKADDR_IN
Heursement compatible puisque l'idée est de gérer via PSockAddr aussi bien SOCKADDR_IN et SOCKADDR_IN6_LH/SOCKADDR_IN6_W2KSP1

Suffit de lire la documentation TWSocket.ReceiveFrom

Code :

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

function ReceiveFrom(Buffer:Pointer; BufferSize:integer; var from:TSockAddr; var fromSize:integer):integer;

TSockAddr n'est pas TSockAddr_in (ou ce type sans T nommé sockaddr_in) mais on peut le lui faire croire

Code :

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

Len    := WSocket.ReceiveFrom(@Buffer, SizeOf(Buffer), PSockAddr(@Src)^, SrcLen);

[adelant]

Src ne devrait-il pas être un SOCKADDR et non SOCKADDR_IN
Heursement compatible puisque l'idée est de gérer via PSockAddr aussi bien SOCKADDR_IN et SOCKADDR_IN6_LH/SOCKADDR_IN6_W2KSP1

Suffit de lire la documentation TWSocket.ReceiveFrom

Code :

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

function ReceiveFrom(Buffer:Pointer; BufferSize:integer; var from:TSockAddr; var fromSize:integer):integer;

TSockAddr n'est pas TSockAddr_in (ou ce type sans T nommé sockaddr_in) mais on peut le lui faire croire

Code :

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

Len    := WSocket.ReceiveFrom(@Buffer, SizeOf(Buffer), PSockAddr(@Src)^, SrcLen);

J'avais tout essayé : SOCKADDR_IN, PSockAddr(@Src)^, TSockAddr, ... Ce qui a débloqué la situation c'est l'ajout du uses.

Ça a l'air de fonctionner. Il me reste à en faire un programme .exe que je puisse appeler du bureau Windows (?)

Tout cela va me servir à faire la mise au point, depuis mon salon, d'un télescope qui sera bien au froid dans le jardin ...

Merci pour vos soutiens.
Adelant

[adelant]

ah je pense tout simplement que sockaddr_in est déclaré dans OverbyteIcsWinSock alors qu'il existe déjà dans Winapi.Winsock...du coup il est déclaré deux fois, tu devais avoir Winsock dans les uses, et le composant attendait la version de OverbytIcsWinsock

Ça a l'air de fonctionner. Il me reste à en faire un programme .exe que je puisse appeler du bureau Windows (?)

Tout cela va me servir à faire la mise au point, depuis mon salon, d'un télescope qui sera bien au froid dans le jardin ...

Merci pour les explications
Adelant