Delphi得到自己IP
Delphi得到自己IP
我想写个隐藏的程序 得到一个动态的自己的IP
不知怎么写 用控件的话 隐藏的程序怕是用不了的
希望有个函数最好
procedure GetHostInfo(var Name, Address: string);
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
Address := Format('%d.%d.%d.%d',[Byte(h_addr^[0]),
Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]);
WSACleanup;
end;
这有个函数 小弟不知道怎么用 求解
你那函数的用法：
var aName,Address:string;
begin
GetHostInfo(aName,Address);
showmessageFmt('计算机名:%s IP：%s',[aName,Addree]);
end;
Indy Misc
下面的
IdIPWatch1.LocalIP
{{
相关问答：
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
各位大虾，小弟用的是ADO连接ACCESS数据库，用DBGrid显示查询的数据，我做的是个数据采集系统，根据不同的地址把数据放在ACCESS数据库中不同的表里面，现在我想查询某一段时间内所有表内的数据，并且在DBGrid中显示� ......
要包含winsock2 而且详细些的。
那些使用控件的的书本就不要了，
希望买过这类书的朋友能推荐下自己觉得不错的。
来关注下。
Windows网络与通信程序设计(第2版)
蓝皮的是新版,虽然是中国人写的但是非� ......
