社区
网络通信/分布式开发
帖子详情
怎样获取本机在LAN下的IP?在VB中用WinSocket的 .localhost可以,Delphi有没有类似的方法??? Thanks
namelysweet
2003-08-25 11:05:32
怎样获取本机在LAN下的IP?在VB中用WinSocket的 .localhost可以,Delphi有没有类似的方法??? Thanks
...全文
20
4
打赏
收藏
怎样获取本机在LAN下的IP?在VB中用WinSocket的 .localhost可以,Delphi有没有类似的方法??? Thanks
怎样获取本机在LAN下的IP?在VB中用WinSocket的 .localhost可以,Delphi有没有类似的方法??? Thanks
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
solonet
2003-08-25
打赏
举报
回复
楼上的兄弟,
程序运行时出错。是
HostEnt: PHostEnt;
GInitData: TWSADATA;
怎么解决?
hch_45
2003-08-25
打赏
举报
回复
function GetLocalIP(var LocalIp: string): Boolean;
var
HostEnt: PHostEnt;
Ip: string;
addr: pchar;
Buffer: array [0..63] of char;
GInitData: TWSADATA;
begin
Result := False;
try
WSAStartup(2, GInitData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt := GetHostByName(buffer);
if HostEnt = nil then Exit;
addr := HostEnt^.h_addr_list^;
ip := Format('%d.%d.%d.%d', [byte(addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
LocalIp := Ip;
Result := True;
finally
WSACleanup;
end;
end;
namelysweet
2003-08-25
打赏
举报
回复
加上WinSocket
namelysweet
2003-08-25
打赏
举报
回复
没有直接属性可以应用吗???
Win
S.rar_
vb
socket
_
vb
win
socket
_
vb
通信_
vb
通信_
win
socket
Win
Socket
通信
VB
实现
Win
Socket
通信
VB
.NET
Win
Form
Win
Socket
VB
.NET
Win
Form
Win
Socket
客户端和服务端,代码很完善
Win
socket
模块.rar
Win
socket
模块.rar
Win
socket
模块.rar
Win
socket
模块.rar
Win
socket
模块.rar
Win
socket
模块.rar
Win
socket
模块.rar
win
socket
局域网文件传输系统源代码(C语言)
win
socket
.CPP
win
socket
局域网文件传输系统源代码(C语言)
win
socket
.CPP
Delphi
实现的
Win
socket
通信软件
用
Delphi
编写的
Win
socket
的实验,可以用来实现两台机子的文本通信,用来学习不错
网络通信/分布式开发
1,593
社区成员
32,964
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章