說明:使用NMHTTP控制項,獲取某一能檢測IP的網頁的內容,從中提取IP位址
NMHTTP1->Get("http://code.helpor.net/mine/ip.php");
AnsiString getIPFromURL = NMHTTP1->Body;
AnsiString WanIP=getIPFromURL.SubString(getIPFromURL.Pos("(")+2,getIPFromURL.Pos(")")-getIPFromURL.Pos("(")-3); //网页中显示的IP字串
AnsiString RHost=NMHTTP1->Host+" - "+NMHTTP1->RemoteIP; //遠程主機名和IP