unit Unit11;

 

 

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

  TForm11 = class(TForm)

    edt1: TEdit;

    btn1: TButton;

    edt2: TEdit;

    btn2: TButton;

    procedure btn1Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    function ip2Int(const strIP: string): Int64;

    function int2Ip(intIP: Int64): string;

    { Private declarations }

  public

    { Public declarations }

  end;

 

  Form11: TForm11;

 

 

 

function TForm11.int2Ip(intIP : Int64) : string;

  n : int64;

  Result := '';

  n := intIP shr 24;

  intIP := intIP xor (n shl 24);

  Result := IntToStr(n) + '.';

 

  n := intIP shr 16;

  intIP := intIP xor (n shl 16);

  Result := Result + IntToStr(n) + '.';

 

  n := intIP shr 8;

  intIP := intIP xor (n shl 8);

  Result := Result + IntToStr(n) + '.';

 

  n := intIP;

  Result := Result + IntToStr(n);

 

function TForm11.ip2Int(const strIP : string): Int64;

  lst : TStringList;

  i : integer;

  result := 0;

  lst := TStringList.Create;

  try

    lst.Delimiter := '.';

    lst.DelimitedText := strIP;

 

    for i := 0 to lst.Count - 1 do

      result := result + StrToInt64(lst[i]) shl (24 - i * 8);

  finally

    lst.Free;

  end;

 

procedure TForm11.btn1Click(Sender: TObject);

  edt2.Text := IntToStr(ip2Int(edt1.Text));

 

procedure TForm11.btn2Click(Sender: TObject);

  edt1.Text := int2Ip(StrToInt64(edt2.Text));

 

procedure TForm11.FormCreate(Sender: TObject);

  edt1.Text := '192.168.1.1';

  btn1.Click;