如何擷取外網IP

此內容摘自zuobaoquan的技術共用貼~

http://topic.csdn.net/u/20090426/17/895a522b-3ca9-4b7b-baac-2f1b6f5c561a.html

 //原理為向whatismyip發送一次GET請求，whatismyip網站返回IP內容！<br />//也可以自己做一個aspx頁面，其內用Request.UserHostAddress來擷取遠端串連的IP地址<br />uses<br /> ComObj;</p><p>function _GetPublicIPAddress: string;<br />const<br /> DefaultPublicIPAddressUrl: string = 'http://www.whatismyip.com/automation/n09230945.asp';<br />var<br /> xmlHttp: OleVariant;<br />begin<br /> xmlHttp:= CreateOleObject('Microsoft.XMLHTTP');<br /> try<br /> xmlHttp.Open('GET', DefaultPublicIPAddressUrl, False);<br /> xmlHttp.Send;<br /> if xmlHttp.status='200' then<br /> begin<br /> Result:=xmlHttp.responseText;<br /> end;<br /> except<br /> Result:='0.0.0.0';<br /> end;<br />end;