请问在delphi中,什么语句可以获得本机的ip?
解决方案 »
- 谁有用modem拨号的例子或拨号程序的源代码可不可以发给我?
- 请教DELPHI中使用DLL问题,急跳楼
- 请大家看看在我的这个类中如何读写数组属性?
- [窗体类]大家来帮忙~
- 怎样才能提高打开数据表的速度????
- 向高手请教,delphi6怎样把主表和细表的数据同时都显示在一个dbgrideh中?
- 求购毕业设计 大学人力资源管理系统-三天有效
- 用xe5 写的代码为何在电脑和手机上不一致?大侠帮一下,看哪里出错了。
- 初学写“记事本”,想在关闭MEMO前提示是否保存文件,不知道在哪个里面编辑,onchange?onexit?
- 怎样调用internet属性里的“删除临时文件”和“清除历史记录”功能!(内空)
- 有什么好的检索算法
- ADOTable的行数汇总出错?
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])]);
ALocalIp := Ip;
Result := True;
finally
WSACleanup;
end;
end;
...Tmyclass是什么意思啊?去掉了以后才可以运行