Как сконвертировать представление ip-адреса в формате IPv4?

← →
Эрик (2003-12-11 08:50) [0]

Как сконвертировать в Delphi представление ip-адреса в формате IPv4 в нормальную запись.
Например: 1347566084 в 80.82.58.4

← →
Rouse_ © (2003-12-11 09:04) [1]

uses ... CommCtrl; procedure TForm1.FormCreate(Sender: TObject); begin Caption := IpToStr(1347566084); end; function TForm1.IpToStr(const Value: Cardinal): String; begin Result := IntToStr(FIRST_IPADDRESS(Value)) + "." + IntToStr(SECOND_IPADDRESS(Value)) + "." + IntToStr(THIRD_IPADDRESS(Value)) + "." + IntToStr(FOURTH_IPADDRESS(Value)); end;

Желаю успехов

← →
Digitman © (2003-12-11 09:10) [2]

type
PIPAddr = ^TIPAddr;
TIPAddr = array[0..3] of byte;

var
MyAddrAsInteger: DWord = 1347566084;
MyAddrAsString: String;
..

for i := 0 to SizeOf(TIPAddr) - 1 do
begin
if MyAddrAsString <> "" then MyAddrAsString := MyAddrAsString + ".";
MyAddrAsString := MyAddrAsString + IntToStr(PIPAddr(@MyAddrAsInteger)[i]);
end;

пардон

for i := SizeOf(TIPAddr) - 1 downto 0 do ..

Как сконвертировать представление ip-адреса в формате IPv4? Найти похожие ветки