【文件属性】:
文件名称:pb中如何获得机器ip地址
文件大小:106KB
文件格式:RAR
更新时间:2007-07-27 17:46:40
另类其它
在用pb开发信息管理系统时,为了安全期间,我们希望记录每个登录用户的信息,并生成日志,其中最重要的是知道是哪个机器运行程序的?这样,只要获取运行程序的机器ip问题就解决了,然而,pb中没有象delphi 中有现成的函数可以很方便的获的机器的ip,我们只好利用外部函数来实现了。
首先声明外部函数
function int WSAStartup( uint UIVersionRequested, ref s_WSAData lpWSAData ) library "wsock32.dll"
function int WSACleanup() library "wsock32.dll"
function int WSAGetLastError ( ) library "wsock32.dll"
function int gethostname ( ref string name, int namelen ) library "wsock32.dll"
function string GetHost(string lpszhost, ref blob lpszaddress ) library "PBWS32.DLL"
然后在form的open事件中执行如下代码就可以了
s_wsadata l_WSAData
int li_version = 257
blob{4} lb_hostaddress
IF wsastartup ( li_version, l_WSAData ) = 0 THEN
IF gethostname ( ls_HostName, len(ls_HostName) ) < 0 THEN
messagebox("GetHostName",WSAGetLastError())
ELSE
GetHost(ls_HostName, lb_HostAddress)
//获得主机名和IP地址
ls_IpAddress = string(asc(string(blobmid(lb_HostAddress,1,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,2,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,3,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,4,1))),"000")
//将IP地址的ASC码形式转化为***.***.***.***字符串格式
END IF
WSACleanup()
ELSE
messagebox("GetHostName",WSAGetLastError())
END IF
【文件预览】:
pb中如何获得机器ip地址.pbl
代码中国.url
说明.htm
代码中国.txt
网友评论
- pb12.5 用不了
- 我觉得还是不错的,值得学习啊
- 不错,有帮助,学习了