Discussion :

[colorid]

Bonjour,

J'utilise une fonction DLL que je ne peux pas modifier telle que

Code :

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

deviceAddress := device.GetIpAddress();

qui me retourne sous Vista et uniquement sous Vista une valeur hexadecimale en lieu et place de l'adresse IP

Quelqu'un peut il m'écrire le code du type

Code :

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

1
2
deviceAddress := device.GetIpAddress();
If IsHexa(deviceAddress)then deviceAddress := IPFormat(deviceAddress);

Soit donc la fonction booléenne IsHexa(N: Integer) et la fonction IPFormat(N: Integer) qui retourne une adresse IP

Merci d'avance c'est très précieux

[Paul TOTH]

la première est facile à écrire

Code :

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

1
2
3
4
5
 
function IsHexa(N: Integer): Boolean;
begin
  Result := False;
end;

de rien !

[Rayek]

On est pas la pour faire ton boulot

De plus avec le peu d'info je doute qu'on puisse te donner une réponse.

deviceaddress est un Integer, mais il fonctionne comment ?
il faudrait sa valeur en entier et à quoi elle correspond en IP

[colorid]

Comment transformer un entier en adresse IP ?

[Rayek]

Si on ne connait pas le système (ou calcul) qui génère l'entier depuis une adresse IP, c'est impossible à savoir

[Paul TOTH]

Comment transformer un entier en adresse IP ?

avec la fonction inet_ntoa() de l'unité Winsock

[ShaiLeTroll]

Paul Toth

inet_ntoa fonctionne parfaitement pour l'IP V4, tu as la réciproque Chaine vers Entier : inet_addr

J'utilise inet_addr pour contrôler la saisie d'un utilisateur d'une IP (pourquoi chercher un algo compliqué qui compte les . comme on voit parfois) et surtout ensuite refait un coup de inet_ntoa pour stocker une IP nettoyée, genre "192.168.000.001" devient "192.168.0.1"

Je rejoins Rayek, il y a un truc qui clocle avec deviceaddress, ne serait-ce pas plutôt une chaine soit contient "192.168.0.1" ou contient "C0 A8 00 01"
Dire qu'un Integer est Hexa ou pas, cela n'as pas de sens ! un Integer est une valeur qui l'on peut afficher en Binaire, Octal, Décimal ou Hexa ...

Il te faut utiliser tout simplement StrToInt ou HexToBin comme dans le sujet Conversion hexa avec nombre de byte variables

Si ton Hexa contient "C0 A8 00 01"

Code :

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

1
2
3
4
5
var
  IPV4Value: TInAddr;
begin
  IPV4Value.S_addr := StrToInt ('$' + StringReplace(Hexa, ' ', '', [rfReplaceAll]));
  AddressIP = inet_ntoa(IPV4Value);

[Rayek]

un grand a vous deux je ne connaissais pas ces deux fonctions

[ShaiLeTroll]

C'est même dans la FAQ : Comment connaître son adresse IP ?

[colorid]

Ce n'est pas tout à fait un integer, je suis entré plus avant dans le source il s'agit d'un handle !

Mais le problème est résolu il ne venait pas de l'adresse IP

Merci à tous