我现在有个局域网,通过共享Internet上网的,但是我又如何取得Internet对外的IP呢?(不管是在服务器上还是客端机上都要能实现),请各位高手,帮忙解决一下,希望能提供源码,兄弟实在很急,谢谢!!!
解决方案 »
- K线图、均线、布林
- 想得到当前时间,包括几点几十分
- 每次执行自定义类的构造函数时出错
- 怎么实现类似 hint 的窗口??
- 兄弟们好,小弟准备开服装店啦!!!!
- 这两个函数各位大哥能解释一下吗?
- delphi7怎么注册?
- 数据库问题。高手们 帮一下了?
- 请问在三层结构中,如果要操作数据库中的记录,是每次都用重写ClientDataset.CommandText:='Sql',还是用ClientDataSet1.ApplyUpdates方法更好?两者有什么区别么?谢谢
- ADO方式不能运行的问题!
- VSS+.Net整合问题
- ★★一个表中的记录有树形层次关系,有没有控件可以在一个表格中显示记录及层次关系,来者有分★★
uses winsock;var
strIP:string;
begin
if GetLocalIP(strIP) then
Caption:=strip;
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);
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;