ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: VFPWINSOCK ne fonctionne plus   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

dim. 05 janvier 2025, 17h30

Francis Faure
France 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-htons
et
https://stackoverflow.com/questions/47475862/wsock32-dll-htons-function

e) 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
20 151 messages dans le forum • Liste complète des messages

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2025.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3