社区
Delphi
帖子详情
如何取得网上邻居中任意一台计算机的IP地址?特急
dxz_pl
2000-07-05 08:44:00
已知网上邻居中各个计算机的名字,如何取得它相应的IP地址呢?
请各位高手多多指教!(有控件最好,本人不胜感激!)(特急)
...全文
146
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下的服務. ( ServerAgent 相關網頁 http://playstation2.idv.tw/serviceagent/ ) 6. 可夾帶附件檔案. 7. 在原本可直接選取電腦硬碟上的檔案(HTML)來做為HTML寄信的本文之外, 目前已能將 HTML 內的圖檔(gif,jpg,bmp,png)的
tag 和 音效檔(wav,mid,swf)的
tag 的內容一起勘進郵件內容裡. 8. 以 Command Line 執行的方式就能啟動寄信流程. 9. 透過電子郵件信箱即可啟動自動化電子報訂閱/取消功能! (NEW!)
特急
项目管理程序.doc
特急
项目管理程序.doc
069
特急
项目管理程序.doc
069
特急
项目管理程序.doc
特急
项目管理程序说明.doc
特急
项目管理程序说明.doc
075
特急
项目管理程序说明.doc
075
特急
项目管理程序说明.doc
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章