社区
Delphi
帖子详情
如何取得网上邻居中任意一台计算机的IP地址?特急
dxz_pl
2000-07-05 08:44:00
已知网上邻居中各个计算机的名字,如何取得它相应的IP地址呢?
请各位高手多多指教!(有控件最好,本人不胜感激!)(特急)
...全文
149
2
打赏
收藏
如何取得网上邻居中任意一台计算机的IP地址?特急
已知网上邻居中各个计算机的名字,如何取得它相应的IP地址呢? 请各位高手多多指教!(有控件最好,本人不胜感激!)(特急)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
LaoZheng
2000-07-06
打赏
举报
回复
function LocalIPList(Name:String) : TStrings;
var
phe : PHostEnt;
begin
IPList.Clear;
Result := IPList;
phe := WSocketGetHostByName(Name);
if phe <> nil then
GetIpList(Phe, IPList);
end;
procedure GetIPList(phe : PHostEnt; ToList : TStrings);
type
TaPInAddr = array [0..255] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
pptr : PaPInAddr;
I : Integer;
begin
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
ToList.Add(StrPas(WSocket_inet_ntoa(pptr^[I]^)));
Inc(I);
end;
end;
dxz_pl
2000-07-06
打赏
举报
回复
laoZheng
请问要用到那些单元?
特急
送報童
功能介紹: 1. 支援多個伺服器分散流量. (已可設定每次的最大郵件數) 2. 支援多個設定檔選擇. 3. 可直接選擇硬碟內的 HTML, 純... 4. 支援定時、每日、每週、每月送信. 5. 配合 ServiceAgent 可以成為NT/2000下的服務....)
特急
项目管理程序.doc
特急
项目管理程序.doc
069
特急
项目管理程序.doc
069
特急
项目管理程序.doc
特急
项目管理程序说明.doc
特急
项目管理程序说明.doc
075
特急
项目管理程序说明.doc
075
特急
项目管理程序说明.doc
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章