function GetIP(Name:string) : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe :PHostEnt;
pptr : PaPInAddr;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
phe :=GetHostByName(pchar(Name));
pptr := PaPInAddr(Phe^.h_addr_list);
result:=StrPas(inet_ntoa(pptr^[0]^));
WSACleanup;
end;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe :PHostEnt;
pptr : PaPInAddr;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
phe :=GetHostByName(pchar(Name));
pptr := PaPInAddr(Phe^.h_addr_list);
result:=StrPas(inet_ntoa(pptr^[0]^));
WSACleanup;
end;
解决方案 »
- 请教问题:查询到结果后,然后按“打印”,则打印查询的结果。说详细点。谢谢!!!
- 紧急请教一个奇怪问题?
- 哪位有Exceptional Magic!
- 急,急,请问在win2003中配置DCOM,同在win2000下面有什么区别,请各位指点?
- [脚本/接口/Delphi] 谁能提供在Delphi中使用脚本或脚本组件所需要的接口?
- 关于stringgrid的问题
- 我做的一个纯DHTM的游戏,htm格式的,大家来看原代码!!
- 怎样给一个db以某个字段排序?
- 寻购《Delphi 7完美经典》江义华著 这本书
- Intercepor的问题,现在改了demo中的程序,加了加密程序,但是不成功,请赐教,100分
- 哪儿可以下到Install shield For Delphi6??
- treeview和菜单的关联!
function GetDomainName(Ip:string):string;
var
pH:PHostent;
data:twsadata;
ii:dword;
begin
WSAStartup($101, Data);
ii:=inet_addr(pchar(ip));
pH:=gethostbyaddr(@ii,sizeof(ii),PF_INET);
if (ph<>nil) then
result:=pH.h_name
else
result:='';
WSACleanup();
end;