现在在一个局域网中我知道某些机器的机器名,
我能否根据这个机器名得到对方的IP地址??
请高手指教!谢谢!
我能否根据这个机器名得到对方的IP地址??
请高手指教!谢谢!
解决方案 »
- 大家帮忙看看,创建消息事件出错~~~~~
- ~~~~紧急求助!!!~~~HELP!!!~~~救命!!My God!!!!~~~~
- 谁给我详细讲一下ADO 最好有例子,谢谢~
- 代码问题!高手来看看。
- 使用OleContainer1如何打开word?
- Help ME,我已经是穷途暮路了!
- 有谁用过ReadStrings接收数据?
- 请问如何得到服务器的系统日期时间
- 请教关于数据库的问题?
- 问大家一个问题!!!
- 为什么Win2000下好好的Bmp图片到Win98下面目全非?
- 存储过程的参数是VarBinary(SQL SERVER)或者RAW(ORACLE),在AdoStoredProc中调用时参数怎么设?
gethostbynameuses WinSock;function DomainName2IP(Name: string): string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
Result := '';
WSAStartup(2, WSAData);
HostEnt := gethostbyName(Name);
if HostEnt = nil then Exit;
with HostEnt^ do
Result := PChar(Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[0]),
Byte(h_addr^[0]), Byte(h_addr^[0])]));
WSACleanup;
end;