如标题
解决方案 »
- "多步操作产生错误,请检查每一步的状态值."
- 急急!!在服务器指定路径生成XML格式
- fastreport中如何用一个frreport1载入两个不同格式的报表
- 小问题!
- 高分:如何从一个HDC中得到其中的Region句柄或者RegionData?
- DELPHI如何捕捉错误?万望指教
- 请问listbox的问题,怎么判断listbox.items.strings[i]有没有指定的字符串
- 控件问题
- 怎样通过ADO来实现decision cube联系制作char
- 请问如何让datetimepicker控件的初值显示为"0000-00-00"
- 通过代理服务器的FTP
- 一个关于DBGrid的问题,想了N久,急!!!!!!!!谢谢各位高手了!!!!!!!!!!!!!!
Google上有很多DNS查询的例子的,对于机器命都可以的,只限于本网的
..WinSock;function NameToIP(name: string): string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
result := '';
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(name));
if HostEnt <> nil then
begin
with HostEnt^ do
result := Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
end;
end;