在网上找了一些,都不好用,或者干脆是错的,有没有好用的,大家帮帮忙,给点好用的代码
解决方案 »
- 做移动开发前景怎么样,比erp强多了吧
- 在哪里可以找到WINDOWS自带的图片?
- TQueryTableProducer和TDataSetTableProducer有什么区别?
- 如何屏蔽系统按键 Alt+Tab Alt+Ctrl+Del
- [问题]在Ehilb控件的EhDBGrid里,如何设定选择记录时“光棒”的颜色? 谢谢。
- Query控件问题
- 如何在硬盘任一目录新建一个文本文件(*.txt),名字要自己取哟!
- 请问高手,怎样远程控制同一局域网络上的其他PC运行其上的应用程序!
- 请问如何打开资源管理器,并且打开指定的目录?
- 哪里可以下载delphi6的电子文档?正确提供者给分
- 用代码创建ACCESS数据表的字段问题
- DRAG AND DROP在DELPHI中怎么用?
用法记不太清了,你查一下MSDN
功 能: 返回本机的局域网Ip地址
参 数: 无
返回值: 成功: True, 并填充LocalIp 失败: False
备 注:
版 本:
1.0 2002/10/02 21:05:00
=================================================================}
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;如果得到别的机器的只需要
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);
HostEnt := GetHostByName('machinename');
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;
就行了