Delphi通过主机名获取IP

很简单的一个例子,用delphi2010编写的,网上有的例子会出现网上的教程是Pchar(IPAddress)这样会提示Incompatible types: 'Char' and 'AnsiChar'处理解决办法1:参数格式不变,使用的时候麻烦一点。先把WideString转换成AnsiString,然后再转换成PAnsiChar。直接使用PAnsiChar(mystring)可以编译通过,但运行不正确。思路的代码如下: var mysting:string;用PAnsiChar(AnsiString(mysting))代替pchar(mysting)这种方法在接口上与高版本更统一,但内部修改较多。解决办法2:传入参数的时候就使用AnsiString,一切如同在Delphi2007下使用一样。只是这时候参数不再使用String,而是必须显式地使用AnsiString。函数里使用参数的时候,仍要注意pchar都要改成pansichar,代码修改量更小,且与旧版本更兼容。
zip
IP.zip 预估大小:18个文件
folder
通过主机名获取IP 文件夹
file
MainFrm.dfm 2KB
folder
__history 文件夹
file
MainFrm.pas.~4~ 834B
file
MainFrm.dfm.~3~ 1KB
file
MainFrm.pas.~5~ 2KB
file
MainFrm.pas.~3~ 617B
file
MainFrm.dfm.~1~ 329B
file
MainFrm.pas.~1~ 312B
file
MainFrm.dfm.~2~ 1KB
file
MainFrm.pas.~2~ 568B
file
MainFrm.dfm.~4~ 2KB
file
MainFrm.pas 2KB
file
Getip.exe 839KB
file
YULAN.png 12KB
file
Getip.dproj.local 983B
file
Getip.dproj 5KB
file
MainFrm.dcu 6KB
file
Getip.res 5KB
file
Getip.dpr 231B
zip 文件大小:403.08KB