Delphi中通过TClientSocket获取公网(WAN)IP地址
调用代码示例：var ip: string;begin with TStringlist.Create do try Text := GetHTML(www.whatismyip.com/automation/n09230945.asp) ; if Count > 0 then ip := Strings[Count - 1]; final
