Преобразование IP в строку

Печать
Статьи

Как преобразовать IP (и число и точки) в строку?

Берем адрес IP или маску в числовом формате и преобразовываем его в стандартную строку.


function IPtoStr(IP: LongWord): String;
begin
  Result := Format('%d.%d.%d.%d',     [
           (IP and $ff000000) shr 24,
    (IP and $00ff0000) shr 16,
         (IP and $0000ff00) shr 8,
       (IP and $000000ff) shr 0   ]);
end;

Пример:


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= IPtoStr1($C0A80101{192.168.1.1});
end;