想從其它資料庫中讀取整型IP地址，還原成點分十進制，可有的是負數，不知怎么得來的
其中正直可以通過A*256^3+B*256^2+C*256+D算出來
一開始還以為是32位有符號整型，可算出來的值不對
請指教！
uj5u.com熱心網友回復：
這么算的話，那128.0.0.0和0.0.0.0計算出的十進制都是0；那么大于128.0.0.0的IP都是負數，如128.0.0.1是-1
128.0.0.2是-2
uj5u.com熱心網友回復：
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.
uj5u.com熱心網友回復：
得 無符號32位整數 才行uj5u.com熱心網友回復：
跟資料庫的值還是不一樣uj5u.com熱心網友回復：
那個不叫十進制吧。uj5u.com熱心網友回復：
你是說IP地址嗎？你也可以把它換算成十六進制或二進制
uj5u.com熱心網友回復：
這就是概念問題，弄不清概念問題就會犯錯誤。
uj5u.com熱心網友回復：
int 轉 uint的問題... 是不是負的有什么問題..我只在乎他在記憶體地址里面是什么值.
uj5u.com熱心網友回復：
很簡單，ip第一位大于128就是負數也就是32bit整數最高位是1。后面的數字的補碼就是它的絕對值。
uj5u.com熱心網友回復：
另外你要注意bigendian，那么是第四個位元組。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/143609.html
標籤：VCL組件開發及應用