problème d'adresse IP

Question

Bonjour, 

 je travaille actuellement sur un projet de type VoIP et j'aimerais savoir comment convertir le résultat d'un inet_addr qui est un integer en une adresse IPV4. Je remercie d'avance tous ceux qui se pencherons sur ma requête j'ai vraiment besoin d'aide merci.

NHenry · Answer

Une IPV4 fait 4 octets, un Int32 (ou UInt32) aussi.
Chaque octet de l'entier représente un nombre de l'adresse.

dubois77 · Answer

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 !

dubois77 · Answer

Salut
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;beginZ := '';Conv(256*256*256);Conv(256*256);Conv(256);result := Z + inttostr(V);end;

fogang24 · Answer

bonjour,

et merci a vous pour toute vos interventions mon problème est résolu

dubois77 · Answer

Ce qui serait sympa, c'est que tu nous dises comment tu as résolu ton problème !
cela pourrai aider les suivants

cs_yanb · Answer

Bonjour
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;
@+

korgis · Answer

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 :

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...

cs_yanb · Answer

Re,
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;
@+

Problème d'adresse IP

8 réponses

Votre réponse