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;
function IPV4ToString(IPAddr: Integer): string;@+
var
SockAddrIn : TSockAddrIn;
begin
Result := '';
SockAddrIn.sin_addr.s_addr := IPAddr;
Result := inet_ntoa(SockAddrIn.sin_addr);
end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionfunction 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;
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;