dim. 05 janvier 2025, 17h30
Francis Faure
France
atoutfox.public.association
Re: VFPWINSOCK ne fonctionne plus
Bonsoir coppensg
a) ce jour j'ai installé un pc windows 11 dernière version : 24H2
b) j'ai installé un VFP9 SP3 + hotfix : ok
c) j'ai chargé vfpwinsock v1.25
j'ai pu répliquer cette erreur : la dll "htons" retourne un integer au lieu d'un "u_short"... (unsigned short)
d) j'ai cherché sur le net la fonction htons et ce qui qui pouvait être lié à déclaration VFP
voici 2 liens:
https://learn.microsoft.com/fr-fr/windows/win32/api/winsock/nf-winsock-htonset
https://stackoverflow.com/questions/47475862/wsock32-dll-htons-functione) j'ai rapidement modifié sur cette machine la déclaration de la dll "htons" dans vfpwinsock
ligne : 2353
comme ceci
Case m.lsFunction == Upper("htons")
*Declare Integer htons In ws2_32 Integer hostshort
DECLARE SHORT htons IN "wsock32.dll" INTEGER
ET CELA FONCTIONNE
cette partie de code est basée sur les travaux de William GC Steinford et de Anatoliy Mogylevets
comme indiqué sur la page d'accueil
http://www.vfpwinsock.com/f) maintenant que j'ai la déclaration qui semble fonctionner : il va me falloir modifier et tester sur les différentes versions de windows pour rester compatible "ascendant"
et publier une version 1.26 de vfpwinsock
mais pour cela il me faut du temps libre que je n'ai pas actuellement....
en attendant tu as la solution pour ton cas
en espérant t'avoir répondu et dépanné ton cas
PS : si tu as du temps pour tester correctif sur différentes version windows je suis preneur ;)
Cordialement
Francis
Le ven. 03 janvier 2025, 13h06 coppensg a écrit :
> Le dll utilisé est la version 6.2.26100.1882 de ws2_32.dll (382 kB)
> Il n'y a pas d'erreur avec la version 10.0.22621.1 (380 kB).
>
> La traduction de SMTP-Port 25 par la fonction htons donne une valeur négatieve (-59136) qui donne une erreur dans la fonction:
>
> Function num2word(lnValue)
> Return Chr(Mod(m.lnValue,256)) + Chr(Int(m.lnValue/256))
> Endfunc
>
> L'erreur est: Function argument value, type, or count is invalid
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000020242