怎么把把IP地址转换成十六进制（DWORD）类型？？

[pcwak]

例如，192.168.0.1可以转换成$C0A80001，那我用下面的代码怎么不能转换？
var
strTemp:TStringList;
dw:DWORD;
ip :string;
begin
ip:='192.168.0.1';
strTemp := TStringList.Create;
ExtractStrings(['.'], [], PChar(ip), strTemp);
dw:=strtoint64(IntToHex(strtoint(strTemp[0]) ,2)+
IntToHex(strtoint(strTemp[1]) ,2)+
IntToHex(strtoint(strTemp[2]) ,2)+
IntToHex(strtoint(strTemp[3]) ,2));
end;

[pcwak]

UP

[lovend]

幫你頂

[qi7]

dw:=strtoint64('$'+IntToHex(strtoint(strTemp[0]) ,2)+
IntToHex(strtoint(strTemp[1]) ,2)+
IntToHex(strtoint(strTemp[2]) ,2)+
IntToHex(strtoint(strTemp[3]) ,2));

[何鲁青]

qi7(追逐)正解...

[僵哥]

dw:=strtoint(strTemp[0]) * 256 * 256 *256{shl 24} +
strtoint(strTemp[1]) * 256 * 256 {shl 16} +
strtoint(strTemp[2]) * 256 {shl 8} +
strtoint(strTemp[3]);