为什么解析不了域名?

buddyer 2004-04-29 06:20:31
var
server:TSockaddrin;
sClient:TSocket;
hostent:PHostEnt;
WSADATA:TWSADATA;
begin
{socket}

WSAStartup(makeword(2,2),WSADATA);
sClient:=socket(PF_INET,SOCK_STREAM,IPPROTO_TCP);
if sClient = INVALID_SOCKET then
begin
showmessage(inttostr(WSAGetLastError));
exit;
end;

loginip:=ip;
loginport:=port;
ZeroMemory(@server,sizeof(server));
server.sin_family:=PF_INET;
server.sin_addr.S_addr:=inet_addr(pchar(loginip));

{ TODO -o徐沙 : 4/16 登录窗口的域名解析 }
if server.sin_addr.S_addr=INADDR_NONE then
begin
hostent:=gethostbyname(pchar(ip));
if hostent=nil then
begin
application.MessageBox(pchar(inttostr(GetLastError)),
'连接失败',MB_OK+MB_ICONERROR);
closesocket(sclient);
WSACleanup;
exit;
end;
// CopyMemory(@(server.sin_addr),hostent.h_addr,hostent.h_length);
server.sin_addr:=in_addr((hostent.h_addr)^);
end;
server.sin_port:=htons(strtoint(loginport));

if connect(sClient,server,sizeof(server))=socket_error then
begin
application.MessageBox('建立连接失败!','连接错误',MB_OK+MB_ICONERROR);
closesocket(sClient);
WSACleanup;
exit;
end;
为什么解析不了域名,填写的域名解析是个错的,但是ping是可以解析域名的。
不知道哪儿出问题了 ,帮我看看吧
...全文
20 1 点赞 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yueshujiang 2004-04-30
www.delphi.com
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4967

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-04-29 06:20
社区公告
暂无公告