中華電信 dlink分享器透過下列位址可得知真實ip http://www.danasoft.com/ http://ipid.shat.net/ http://www.whatismyip.com/ 反而東森,亞太使用上列網址,所得與分享器 ip address不符 不知為何? 站上未透過分享器下列範例可行 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24410 如透分享器就取虛擬ip而非真實ip 可有其它 delphi 寫的範例或 free 輔助程式,可確實正確取得分享器上ip adress 而不是個台pc 192.168.0... 懇請有經驗前輩指點迷津謝謝

引言: 中華電信 dlink分享器透過下列位址可得知真實ip http://www.danasoft.com/ http://ipid.shat.net/ http://www.whatismyip.com/ 反而東森,亞太使用上列網址,所得與分享器 ip address不符 不知為何?

會不會是因為他們透過 Proxy 的關係？

引言:

引言: 中華電信 dlink分享器透過下列位址可得知真實ip http://www.danasoft.com/ http://ipid.shat.net/ http://www.whatismyip.com/ 反而東森,亞太使用上列網址,所得與分享器 ip address不符 不知為何?

會不會是因為他們透過 Proxy 的關係？

我也不知也納悶不知如何解決 ?

其實我是覺得要知道真實 IP 幹嘛 正常而言，請用戶問網管就知道了 如果是網路程式要處理的話，也是要在 IP 分享器做一些設定才行 不然就是弄 UPNP 所以好像不是非要真實 IP 不可 另外，我是有想過一個方法 原理就是如果有 IP 分享器的話，我們一定得透過它出去，連上 internet 所以，當我們 tracert 某 IP 的話 第一步一定是我們自己的 IP (192.168.x.x or 10.x.x.x 之類的) 第二步十有八九，就是分享器了 不過，根據我在公司實驗的結果是... 失敗 >"< 雖然看到的 IP 跟上述網站偵測到的 IP 還是在同一網段就是了......... 有興趣的人就試試看吧....

據我側面的了解 (以下不代表絶對肯定的答案, 僅提供參考, 如內容有干涉或影響等不適切的文句, 請見諒) 中華電信由國營轉型過來, 根基財力雄厚, 所以擁有的真實IP非常夠, 因為如果你申請的是網路型(企業型)所取得的都是真真正正的IP, 而國內有這樣規模的其實屈指可數, 因此在IP量不足的狀況下, 如何因應固P的需求, 這就會產生了PROXY SERVER的誕生或者是ISP自己內部的NAT轉換, 也就是說, 雖然客戶端所擁有的是固P, 但實際到ISP端時是透過一些交換所換得, 也就是因為這樣造成IP的對應不相同, 最明顯的例子, 我使用中X電信, SERVER在台灣, 由大陸或香港直接以TCP/IP連進SERVER原則上都還OK, 而且都還維持在200-300ms速度, 但其他家的用戶, 在大陸要連進台灣都在700-900ms之間(這邊所指的連線並非用pcany或其他遙控軟體, 而是用Delphi中的ADo, InterBase, DBExpress等連線介面測試), 這幾乎是連不進來的狀況, 而在香港雖然可以進來, 但比56K Modem還慢, 我們測試過非常多次, 只要換成中x就一定ok, 其他就"阿彌陀佛"了! 這是我們所得到的了解! 發表人 - P.D. 於 2005/03/19 01:24:12

我請我的朋友試試看，他是用東森的，雖然是在家裡 不過，他也是有用 IP 分享器，所以就請他試了一下    他上那些網站，Detect 到的 IP 是 211.76.97.228 反查得到 211-76-97-228.proxy.ebix.net.tw 果然是 Proxy 啊，不曉得 chubby 兄看到的是不是也是這組    不過，tracert 的部份就很慘了.....    

1   <1 ms   <1 ms   <1 ms   192.168.0.1
2   49 ms   17 ms   10 ms   10.44.120.1
3   *       *       *   Request timed out.
4   *       *       *   Request timed out.
5   *       *       *   Request timed out.
6   *       *       *   Request timed out.

居然跑出 10.44.120.1...>"< 剩下都是 Request timed out.....

承蒙各位解說 中華電信如果是2m以上虛擬ip可申請一個固定ip(但業者保有變動ip權利,業者解說機房變動才有變更ip可能) 如今一些客戶使用虛擬,使用Symantec pcAnywhere連線,需user告知當時ip才能 連線,本用下列方是可取ip(指hinet沒問題) http://www.danasoft.com/ http://ipid.shat.net/ http://www.whatismyip.com/ 但遇上非hinet時取得ip一萬八千里,如客戶無分享器ipconfig/all 取得真實ip,有分享器需進入分享器看當時 ip address (ipconfig/all不行) 上述客戶聰明無所謂,大部份都....要輔導多次才上軌道, 真累, 不知站友前輩是否與我有同一困擾,有很多經驗可否割愛分享您的經驗 謝謝大家

引言: 承蒙各位解說 中華電信如果是2m以上虛擬ip可申請一個固定ip(但業者保有變動ip權利,業者解說機房變動才有變更ip可能) 如今一些客戶使用虛擬,使用Symantec pcAnywhere連線,需user告知當時ip才能 連線,本用下列方是可取ip(指hinet沒問題) http://www.danasoft.com/ http://ipid.shat.net/ http://www.whatismyip.com/ 但遇上非hinet時取得ip一萬八千里,如客戶無分享器ipconfig/all 取得真實ip,有分享器需進入分享器看當時 ip address (ipconfig/all不行) 上述客戶聰明無所謂,大部份都....要輔導多次才上軌道, 真累, 不知站友前輩是否與我有同一困擾,有很多經驗可否割愛分享您的經驗 謝謝大家

這基本上大概無解吧, 我也都是教育客戶上面那兩種做法, 不過我想可能還有一個方法, 如果是固定ip(真實的)大概用不到這個方法 去申請一組DDNS(動態DNS), 把IP改成DNS指向, 透過轉換DNS NAME為現時IP, 或許可行

承蒙盟友解說謝謝多位大大 還是無解,結案吧

 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
IdHTTP1: TIdHTTP;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
j, k , m: Integer;
addr: array[1..4] of String;
begin
{
查真實 Internet IP 網址
http://myipaddress.com/show-my-ip-address/
http://www.danasoft.com/
http://ipid.shat.net/
http://www.whatismyip.com/
}
// Memo1.WordWrap:=False; // 不換行
IdHTTP1.HandleRedirects:=true;
Memo1.Text:=IdHTTP1.Get('http://ipid.shat.net/');
k :=1;
for i:= 0 to Memo1.Lines.Count -1 do
begin
if k<5 then
for j:= 1 to Length(Memo1.Lines[i]) do
begin
// 找 .<!--
if (Memo1.Lines[i][j]='.') and (Memo1.Lines[i][j 1]='<') and
(Memo1.Lines[i][j 2]='!') and (Memo1.Lines[i][j 3]='-') and (Memo1.Lines[i][j 4]='-') then
begin
if Memo1.Lines[i][j-2]='>' then Addr[k]:= Memo1.Lines[i][j-1];
if Memo1.Lines[i][j-3]='>' then Addr[k]:= Memo1.Lines[i][j-2] Memo1.Lines[i][j-1];
if Memo1.Lines[i][j-4]='>' then Addr[k]:= Memo1.Lines[i][j-3] Memo1.Lines[i][j-2] Memo1.Lines[i][j-1];
k:=k 1;
end;
if k=4 then
begin
if (Memo1.Lines[i][j]='>') and (Memo1.Lines[i][j 2]='<') then
begin
Addr[4]:= Memo1.Lines[i][j 1];
k:=k 1;
end;
if (Memo1.Lines[i][j]='>') and (Memo1.Lines[i][j 3]='<') then
begin
Addr[4]:= Memo1.Lines[i][j 1] Memo1.Lines[i][j 2];
k:=k 1;
end;
if (Memo1.Lines[i][j]='>') and (Memo1.Lines[i][j 4]='<') then
begin
Addr[4]:= Memo1.Lines[i][j 1] Memo1.Lines[i][j 2] Memo1.Lines[i][j 3];
k:=k 1;
end;
end;
end;
end;
Edit1.text:= Addr[1] '.' Addr[2] '.' Addr[3] '.' Addr[4] ;
Form1.Caption:='GetRealIP';
Memo1.Visible:=False;
Form1.Height:=80;
Form1.Width:=150;
end;
end.

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！