【文件属性】：
文件名称：Delphi通过主机名获取IP
文件大小：403KB
文件格式：ZIP
更新时间：2016-11-29 08:43:33
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，代码修改量更小，且与旧版本更兼容。
【文件预览】：
通过主机名获取IP
----MainFrm.dfm(2KB)
----__history()
--------MainFrm.pas.~4~(834B)
--------MainFrm.dfm.~3~(1KB)
--------MainFrm.pas.~5~(2KB)
--------MainFrm.pas.~3~(617B)
--------MainFrm.dfm.~1~(329B)
--------MainFrm.pas.~1~(312B)
--------MainFrm.dfm.~2~(1KB)
--------MainFrm.pas.~2~(568B)
--------MainFrm.dfm.~4~(2KB)
----MainFrm.pas(2KB)
----Getip.exe(839KB)
----YULAN.png(12KB)
----Getip.dproj.local(983B)
----Getip.dproj(5KB)
----MainFrm.dcu(6KB)
----Getip.res(5KB)
----Getip.dpr(231B)