A voir également:
- Problème d'adresse IP
- Php adresse ip locale - Guide
- Comment savoir si une adresse ip est valide - Guide
- Recuperer l'adresse ip du visiteur du site - Codes sources - Visual Basic / VB.NET (ASP)
- Visual Basic / VB.NET : Récupérer l'adresse ip et le nom local de votre pc avec le con - Guide
- Visual Basic / VB.NET : Recuperer toutes les adresses ip de la machine - CodeS SourceS - Guide
8 réponses
Une IPV4 fait 4 octets, un Int32 (ou UInt32) aussi.
Chaque octet de l'entier représente un nombre de l'adresse.
Chaque octet de l'entier représente un nombre de l'adresse.
Salut
Principe
255.255.255.255 correspond à l'entier : 4294967295 soit 255*255*255*255
pour convertir l'entier en x.x.x.x voici une méthode :
convertir l'entier en hexa : $HHHHHHHH
qui peut ensuite se transformer en $HH.$HH.$HH.$HH et chaque $HH peut être converti en entier (0 à 255)
Il n'y a plus qu'a coder !
Principe
255.255.255.255 correspond à l'entier : 4294967295 soit 255*255*255*255
pour convertir l'entier en x.x.x.x voici une méthode :
convertir l'entier en hexa : $HHHHHHHH
qui peut ensuite se transformer en $HH.$HH.$HH.$HH et chaque $HH peut être converti en entier (0 à 255)
Il n'y a plus qu'a coder !
Salut
je suis dans un bon jour !
voila une function qui devrait marcher :
je suis dans un bon jour !
voila une function qui devrait marcher :
function CONVERT(V:longword):string;
var Z:string;
procedure conv(X:longword);
var n:integer;
begin
if X>V then
begin
Z := Z + '0.';
exit;
end;
n := V div X;
V := V - (n * X);
Z := Z + inttostr(n) + '.';
end;
begin
Z := '';
Conv(256*256*256);
Conv(256*256);
Conv(256);
result := Z + inttostr(V);
end;
Bonjour
inet_ntoa est là pour ça...une fonction pour l'exemple
inet_ntoa est là pour ça...une fonction pour l'exemple
function IPV4ToString(IPAddr: Integer): string;@+
var
SockAddrIn : TSockAddrIn;
begin
Result := '';
SockAddrIn.sin_addr.s_addr := IPAddr;
Result := inet_ntoa(SockAddrIn.sin_addr);
end;
Salut,
Je note que si l'on se réfère à l'API de socket Win, l'ordre de lecture se fait alors de droite à gauche (octet de poids faible vers octet de poids fort).
La méthode de Dubois77 reste valable, mais il faut donc inverser l'ordre des instructions.
Voici la mienne, qui n'ajoute pas grand chose au propos, mais qui n'enlève rien non plus :
Et si le sens n'est pas le bon, il faut juste inverser l'ordre de lecture du tableau de Bytes dans la dernière ligne...
Je note que si l'on se réfère à l'API de socket Win, l'ordre de lecture se fait alors de droite à gauche (octet de poids faible vers octet de poids fort).
La méthode de Dubois77 reste valable, mais il faut donc inverser l'ordre des instructions.
Voici la mienne, qui n'ajoute pas grand chose au propos, mais qui n'enlève rien non plus :
function IPV4IntToStr(Value: Longword): string;
var
arrValues: array [0..3] of Byte;
i: Integer;
begin
for i := 3 downto 0 do
begin
arrValues[i] := Value div Trunc(IntPower(256, i));
Value := Value mod Trunc(IntPower(256, i));
end;
Result := Format('%d.%d.%d.%d', [arrValues[0], arrValues[1], arrValues[2], arrValues[3]]);
end;
Et si le sens n'est pas le bon, il faut juste inverser l'ordre de lecture du tableau de Bytes dans la dernière ligne...
Re,
bah je pense qu'on peut simplifier les choses si on veut pas passer par Inet_ntoa en reprenant le code de korgis...
bah je pense qu'on peut simplifier les choses si on veut pas passer par Inet_ntoa en reprenant le code de korgis...
function IPV4IntToStr(Value: Integer): string;@+
begin
Result := Format('%d.%d.%d.%d', [Value and $FF,(Value shr 8)and $FF,(Value shr 16)and $FF,(Value shr 24)and $FF]);
end;