Regarde la fonction :
NetNomMachine()

A+

Fil



"sebastien bonilla" <sebastien.bonilla@mutuelledulimousin.fr> a écrit dans
le message de news: 414af21b$1@news.pcsoft.fr...

Le 17/09/2004, sebastien bonilla a supposé :

Bonjour,
C'est une ressource que l'on a sur les wtablettes (site dédié à WebDev)
Donc c'est pour WebDev mais il n'y a aucune raison que cela ne
convienne pas en WD.

http://www.4usinfo.com/perso/wnomclient.htm

--
Eric

Oui

J'ai même le code mais j'ai un petit problème avec.

Tu le veux quand même


Mathieu

Voici le code (attention il y a trois procedures au total séparées par des

//Début du code bouton
hostent est une structure
h_name est un entier
h_addrtype est un entier sur 2 octets
h_length est un entier sur 2 octets
h_addr_list est un entier
FIN
iRetour est un entier
strNom est une chaîne
strAdr est une chaîne = "192.168.1.102"+Caract(0) //Adresse valide du

h_hostent est un hostent
iIdAdresse est un entier
iPointeur est un entier

SI init() ALORS
iIdAdresse = API("Ws2_32","inet_addr",strAdr)
SI iIdAdresse <> -1 ALORS
iPointeur =

SI iPointeur <> 0 ALORS
Transfert(&h_hostent,iPointeur,Dimension(h_hostent))
strNom = ChaîneRécupère(h_hostent:h_name,crAdresseASCIIZ)
SINON
Erreur(ErreurInfo())
FIN
FIN
fininit()
FIN
//fin du code bouton

//début du code de la procédure init()
WSADATA est une structure
wVersion est un entier sur 2 octets //Type C : WORD
wHighVersion est un entier sur 2 octets //Type C : WORD
szDescription est un caractère //Type C : char
szSystemStatus est un caractère //Type C : char
iMaxSockets est un entier //Type unsigned short non retrouvé (entier est

lpVendorInfo est un entier //Type C : pointeur sur char FAR
FIN
bRetour est un booléen
ws est un WSADATA
iRetour est un entier
iRetour = API("Ws2_32","WSAStartup",257,&ws)
SI iRetour = 0 ALORS
bRetour = Vrai
SINON
bRetour = Faux
FIN
RENVOYER bRetour
//fin procédure init()

//début code procédure fininti()
API("Ws2_32","WSACleanup")
//fin procedure fininit()


Le problème que j'ai c'est que la fonction api "gethostbyaddr" retourne un

Mathieu

Salut,

1) Il manque le chargement de la DLL
-> risque de gpf

2) Il manque un appel à "WSAStartup"

3) Voisci un procédure complète que j'ai :


// Description des paramtres d'entre/sortie de 'NetNomMachineSelonIp' :
//Cette fonction retourne le nom d'un machine partir de son adresse IP

//
// Syntaxe :
//[ <Rsultat> = ] NetNomMachineSelonIp (<sParamAdresseIp>[,
<sParamErreurEnRetour>])
//
// Paramtres :
// sParamAdresseIp : Adresse IP de la machine dont on veut le nom
// sParamErreurEnRetour : Message d'erreur en cas de pb
// Valeur de retour :
// chaine : Nom de la machine. Si 2 noms sont trouvs alors il sont
séparés par une tabulation
// Chaine vide si la résolution échoue. Dans ce cas
'sParamErreurEnRetour' sontient le message d'erreur.

// Exemple :
// sNomMachine est une chaine
// sMessageErreur est une chaine
//
// sNomMachine=NetNomMachineSelonIp("192.168.1.1",sMessageErreur)
// //rsultat ?
// SI sNomMachine="" ALORS
// Erreur(sMessageErreur)
// SINON
// Info("Le nom de la machine est : ",sNomMachine)
// FIN

PROCEDURE NetNomMachineSelonIp(sParamAdresseIp,sParamErreurEnRetour="")

sAdresseIp est une chaîne
//Stucture utilis par 'inet_addr'
sockaddr est une structure
eFamille est un entier sur 2 octets
ePort est un entier sur 2 octets sans signe
eAddr est un entier
szInzero est une chaîne fixe sur 8
FIN
//Structure pour Gethostbyname
hostent est une structure
eName est un entier
eAliases est un entier
eAddrtype est un entier sur 2 octets
elength est un entier sur 2 octets
eAddr_list est un entier
FIN
WsaData est une structure
//Version de la DLL WinSock
eVersion est un entier
//Version maximum de la DLL WinSock support
eMaxVersion est un entier
//Texte qui dcrit la version d'implmentation (taille :
WSADESCRIPTION_LEN+1%7)
szDescription est une chaîne fixe sur 257
//Informations sur le statut et la configuration (taille :
WSASYS_STATUS_LEN+19)
szStatus est une chaîne fixe de 129
//Version des fonctionnalités autorise pour compatibilit avec les
anciennes versions de WinSock infrieur 2
ecMAxSockets est un entier sur 2 octets sans signe
//Version des fonctionnalités autorise pour compatibilit avec les
anciennes versions de WinSock infrieur 1.1
ecMaxUdpDg est un entier sur 2 octets sans signe
//Pointeur sur un strcture (ignor partir de WinSock 2)
lpVendorInfo est un entier
FIN
//Nom de la dll WinSok
sNomDllWinSock est une chaîne="WS2_32.DLL"//"WSock32.DLL"
//INstance de la dll charge
eInstanceWinSock est un entier
//Cration d'une variable base sur la structure 'sockaddr'
stSockaddr est un sockaddr
//Cration d'une variable base sur la structure 'hostent'
sthostent est un hostent
//Cration d'une variable base sur la structure 'WsaData'
stWsaData est un WsaData
eVersionRequise est un entier =0x0202 //0x0202 pour version 2.0 (2
en min et en max)
//Constante retourne e cas d'chec de inet_addr
INADDR_NONE est un entier =0xffffffff
//entier qui contiendra le rsultat de la structure pointe par
'gethostbyname'
eptsthostent est un entier
epteAddr est un entier
//rsultat
sNomMachineDistante est une chaîne=""
sNom2MachineDistante est une chaîne=""

//récupération de l'adresse IP pass en paramtre
sAdresseIp=sParamAdresseIp

//Chargement d'une instance de la DLL
eInstanceWinSock = ChargeDLL(sNomDllWinSock)

SI eInstanceWinSock = 0 ALORS
sParamErreurEnRetour="Chargement de WinSok impossible. Vrifier que
TCP/IP est bien install."+RC+ErreurInfo()
RENVOYER ""
FIN

//Initialisation de Winsok
SI AppelDLL32(sNomDllWinSock,"WSAStartup",eVersionRequise,&stWsaData) <>
0 ALORS
sParamErreurEnRetour="Erreur"+RC+ErreurInfo()
SINON
//convertion de l'adresse IP au format attendu par la fonction
'gethostbyaddr'
stSockaddr:eAddr=AppelDLL32(sNomDllWinSock,"inet_addr",sAdresseIp)

// Vérification du rsultat
SI stSockaddr:eAddr = INADDR_NONE ALORS
//Adresse incorrect en numrique
//Addresse Texte ? -> Résolution de l'adresse
eptsthostent = AppelDLL32(sNomDllWinSock, "gethostbyname",
sAdresseIp)
SI eptsthostent = Null ALORS
sParamErreurEnRetour="L'adresse n'a pas pu tre
rsolue."+RC+ErreurInfo()
SINON
// Copie de la structure initialise par gethostbyname
Transfert(&sthostent, eptsthostent, Dimension(sthostent))
//rcupration du nom ICI
sNomMachineDistante=ChaîneRécupère
(sthostent:eName,crAdresseASCIIZ)
sNom2MachineDistante=ChaîneRécupère
(sthostent:eAliases,crAdresseASCIIZ)
//Note : sthostent:eAliases contient un alias du nom (un
deuxième nom)
FIN
SINON
eptsthostent = API(sNomDllWinSock,"gethostbyaddr",
&stSockaddr:eAddr,Dimension(stSockaddr:eAddr),2)
SI eptsthostent=Null ALORS
sNomMachineDistante="L'adresse n'a pas pu tre
rsolue."+RC+ErreurInfo()
SINON
// Copie de la structure initialise par gethostbyaddr
Transfert(&sthostent, eptsthostent, Dimension(sthostent))
//rcupration du nom ICI
sNomMachineDistante=ChaîneRécupère
(sthostent:eName,crAdresseASCIIZ)
sNom2MachineDistante=ChaîneRécupère
(sthostent:eAliases,crAdresseASCIIZ)
//Note : sthostent:eAliases contient un alias du nom (un
deuxième nom)
FIN
FIN
FIN

//décharge Winsock
DéchargeDLL(eInstanceWinSock)

//2 noms ?
SI sNom2MachineDistante<>"" ALORS
//retourne les 2 noms
RENVOYER sNomMachineDistante+TAB+sNom2MachineDistante
SINON
//retourne le nom de la machine s'il a t trouvé
RENVOYER sNomMachineDistante
FIN




--
En esperant t'avoir aidé.
ted