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