zoukankan      html  css  js  c++  java
  • Delphi版IP地址与整型互转

    Delphi版IP地址与整型互转

    unit Unit11;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      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;
    
    var
      Form11: TForm11;
    
    implementation
    
    {$R *.dfm}
    
    function TForm11.int2Ip(intIP : Int64) : string;
    var
      n : int64;
    begin
      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);
    end;
    
    function TForm11.ip2Int(const strIP : string): Int64;
    var
      lst : TStringList;
      i : integer;
    begin
      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;
    end;
    
    procedure TForm11.btn1Click(Sender: TObject);
    begin
      edt2.Text := IntToStr(ip2Int(edt1.Text));
    end;
    
    procedure TForm11.btn2Click(Sender: TObject);
    begin
      edt1.Text := int2Ip(StrToInt64(edt2.Text));
    end;
    
    procedure TForm11.FormCreate(Sender: TObject);
    begin
      edt1.Text := '192.168.1.1';
      btn1.Click;
    end;
    
    end.
  • 相关阅读:
    Active Url 激活URL
    Specified argument was out of the range of valid values.
    EnumHelp
    历史对像(版本对像)
    dom4j API 简介
    即时通讯软件openfire+spark+smack
    openfire插件入门学习
    Openfire本地化配置
    JSONObject与JSONArray的使用
    Android端服务器推送技术原理分析及XMPP的使用
  • 原文地址:https://www.cnblogs.com/LittleTiger/p/5768263.html
Copyright © 2011-2022 走看看