连接远程数据库时怎样知道连接的ip？我查询过以前的帖子，不过没有找到符合的...

Question

Brand1(孤独的人):
procedure GetHost(Line : Tstrings);
var
    p : PHostEnt;
    s : array[0..128] of char;
    p2 : pchar;
begin //获取工作组信息
  GetHostName(s,Sizeof(s));  p:=GetHostByName(s); //返回本机名称
  if p = nil then exit;
  Line.Add(p^.h_Name);  p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^); //返回本机IP地址}
  Line.Add(p2);
  ComboBox1.Items.Clear;
  ComboBox1.Items.Assign(Line);
end;不能正常执行，过程在if p = nil then exit;时条件满足退出。

Answer 1

忘了详细说明一下：即如果通过局域网，获知的是局域网本机ip；如果是通过internet，获知的是internet上的本机ip