delphi下在client端如何获得NT服务器的IP。

Michaelyfj 2000-07-13 04:54:00
delphi下在client端如何获得NT服务器的IP。
...全文
171 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
meijg 2000-07-18
  • 打赏
  • 举报
回复
收到没有,还是忘了给分了
meijg 2000-07-16
  • 打赏
  • 举报
回复
做好了,发给你了,记得给分。:-)
Michaelyfj 2000-07-16
  • 打赏
  • 举报
回复
to meijg:
谢谢你的热心,最好给我现成的完整的程序,到时给你一半分数。
meijg 2000-07-16
  • 打赏
  • 举报
回复
他的程序已经很好了,只要用到winsock就行了
要不要给你个现成的程序
Michaelyfj 2000-07-16
  • 打赏
  • 举报
回复
to xiaoya
请问要到哪些Unit
Michaelyfj 2000-07-16
  • 打赏
  • 举报
回复
帖子加分拉!
xiaoya 2000-07-13
  • 打赏
  • 举报
回复
根据计算机名得到IP地址的函数:
uses
WinSock;

function GetIPByName(AName: String): string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array [0..63] of char;
I: Integer;
GInitData: TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
StrPCopy(Buffer, AName);
phe := GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do
begin
Result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;
我也是抄别人的。:-P
meijg 2000-07-13
  • 打赏
  • 举报
回复
gethosbyname(pcname:string);
pcname就是机器名,设为服务器的名称就可以了

5,379

社区成员

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

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