在局域网中如何获得当前连接到本机的计算机的名称和IP

JackyZhao 2001-07-21 08:09:05
请问:在局域网中如何获得当前连接到本机的计算机的名称和IP
...全文
105 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
whatname 2001-07-21
  • 打赏
  • 举报
回复
关注
KendyChen 2001-07-21
  • 打赏
  • 举报
回复
关注
KendyChen 2001-07-21
  • 打赏
  • 举报
回复
对呀,不是获得本机的名称
dialogs 2001-07-21
  • 打赏
  • 举报
回复
是连接到的。楼上老兄显然跑题。
dana 2001-07-21
  • 打赏
  • 举报
回复
可以通过中间层传递参数给服务端。
function get_name:string;
var ComputerName: PChar; size: DWord;
begin
GetMem(ComputerName,255);
size:=255;
// 获取计算机名称
if GetComputerName(ComputerName,size)=False then
begin
// MessageBox(Handle,'获取计算机名称失败。','错误',MB_OK+MB_ICONERROR);
application.MessageBox('获取计算机名称失败。','错误',MB_OK+MB_ICONERROR);

FreeMem(ComputerName);
result:='';
Exit;
end;
// Edit1.Text:=ComputerName;
result:=ComputerName;
FreeMem(ComputerName);
end;

JackyZhao 2001-07-21
  • 打赏
  • 举报
回复
请说的具体一点
InsideDelphi 2001-07-21
  • 打赏
  • 举报
回复
netsession(import from NETAPI32.DLL)
gethostbyname

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧