Скачать: CL | DM;

Как сконвертировать представление 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;

---

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

пардон

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c