Intraweb中如何获得运行Intraweb的计算机的IP地址? 50分

关于网友提出的“ Intraweb中如何获得运行Intraweb的计算机的IP地址? 50分
”问题疑问，本网通过在网上对“ Intraweb中如何获得运行Intraweb的计算机的IP地址? 50分
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： Intraweb中如何获得运行Intraweb的计算机的IP地址? 50分
描述:

我做了一个Dll,仅仅是一个登陆的界面,该界面在打开后需要知道服务器的地址,
就是说你打开的是http://www.home.com/login.dll,要求该dll打开后,界面上有一个标题,显示的服务器是http://www.home.com或者是该服务器的IP地址.我的login.dll是用Intraweb做的.现在我设计Login.dll的时候在里面写什么才能够在login.dll上显示服务器的地址呢?
在线等待 50 分

---

解决方案1:

呵呵！读本机的IP然后在页面上显示呀^_^
//获取本机IP地址
//InternetIP=TRUE 则为上网的Internet IP
Function GetLocalIp(InternetIP:boolean):String;
  type
    TaPInAddr = Array[0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
  var
    phe: PHostEnt;
    pptr: PaPInAddr;
    Buffer: Array[0..63] of Char;
    I: Integer;
    GInitData: TWSAData;
    IP: String;
begin
     try
      WSAStartup($101, GInitData);
      IP:='0.0.0.0';
      GetHostName(Buffer, SizeOf(Buffer));
      phe := GetHostByName(buffer);
      if phe = nil then
      begin
        ShowMessage(IP);
        Result:=IP;
        Exit;
      end;
      pPtr := PaPInAddr(phe^.h_addr_list);
      if InternetIP then
        begin
          I := 0;
          while pPtr^[I] <> nil do
            begin
              IP := inet_ntoa(pptr^[I]^);
              Inc(I);
            end;
        end
      else
        IP := inet_ntoa(pptr^[0]^);
      WSACleanup;
      Result:=IP;//如果上网则为上网ip否则是网卡ip
    finally
    end;
end;

解决方案2:

就是抓本机的IP, 到Delphi Win32 SDK/API或者基础中找找

以上介绍了“ Intraweb中如何获得运行Intraweb的计算机的IP地址? 50分”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3758146.html