怎样在Delphi中实现网络地址影射

Question

生成页面的时候用函数取得本地IP代替202.114.81.84就行了
要得到本地IP可以用api函数Gethostname
或者托一个TNMMsg,用它的loacalip属性

Answer 1

这个show.htm文件是放在web服务器上的，当换一个服务器的时候，我的dll就得重新编译，将'202.114.81.484'改成新的服务器IP地址,这样才可以通过!原来代码是:response.sendredirect("http://202.114.81.84/show.htm")现在我想改成:
response.sendredirect(GetWebServerIP+"show.htm")；我的问题就是想知道这个函数

Answer 2

你该用IIS来设一个虚拟路径啊，而且你可以用域名访问啊

Answer 3

fermium(列御寇):
  你好！很感谢帮助我解决这个问题，但我不太明白。可否写的更详细些！

Answer 4

1: use domain name!
response.sendredirect("http://myhost.net/show.htm")
when your ip change please change your DNS too
2: get server ip
// returns ISP assigned IP
function LocalIP : 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;begin
    WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));
    phe :=GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    I := 0;
    while pptr^[I] <> nil do begin
      result:=StrPas(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
    WSACleanup;
end;