| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сконвертировать представление ip-адреса в формате IPv4? [D6]
Эрик © (2003-12-11 08:50:00)
Как сконвертировать в Delphi представление ip-адреса в формате IPv4 в нормальную запись.
Например: 1347566084 в 80.82.58.4
Digitman (2003-12-11 09:12:00) [1]
пардон
for i := SizeOf(TIPAddr) - 1 downto 0 do ..
Digitman (2003-12-11 09:10:00) [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;
Rouse_ (2003-12-11 09:04:00) [3]
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;
Желаю успехов
| |
