нужен ip, но мешает роутер

[maloun]

Добрый всем денёчек...
Мне нужен ip моего компьютера без использования сайтов типа 2ip.ru, раньше этот вопрос решался c помощью функций из юнита GetIP.pas который я нашёл где-то на этом форуме, а теперь у меня стоит роутер и функция возвращает нули, на странице роутера http://192.168.0.1 в сетевой статистике можно этот ip узнать вручную, но нужно программно, а на роутере ещё и пароль стоит... Очень нехочу парсить ответы серверов типа 2ip.ru, а вдруг сервер закроют?

[_SERGEYX_]

А вот эта функция что вернет? ... с роутером не пробовал

uses WinSock;

function GetIP: string;
var
  wVerReq: WORD;
  wsaData: TWSAData;
  i: PAnsiChar;
  h: PHostEnt;
  c: array [0 .. 128] of char;
begin
  wVerReq := MAKEWORD(1, 1);
  WSAStartup(wVerReq, wsaData);
  GetHostName(@c, 128);
  h := GetHostByName(@c);
  i := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
  Result := i;
  WSACleanup;
end;

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
  ShowMessage(GetIP);
end;

[maloun]

возвращает статический ip роутера 192.168.0.123
я пользоволся скачанной откуда-то процедурой которая возвращает тоже самое и имеет следующий код:

...
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, winSock;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
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);
  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
    TEdit(FindComponent('Edit'+IntToStr(i+1))).Text:=inet_ntoa(pptr^[I]^);
    Inc(I);
  end;
  WSACleanup;
end;

без роутера просто замечательно работает...
возвращает внутренний и внешние ip адресса и наверное предусмотренна для чего-то большего, но последние два Edit'a всегда пусты

[raxp]

Очень нехочу парсить ответы серверов типа 2ip.ru, а вдруг сервер закроют

а придется ...несколько сервисов проверяйте для резерву.

[Человек_Борща]

Или проще взять whois и смотреть IP там?

Боитесь, что закроют, берите 10-20 хуиз-серверов.. и в случает отказа одного из них берите другой..

[maloun]

Сообщение от Человек_Борща

Или проще взять whois и смотреть IP там?

Боитесь, что закроют, берите 10-20 хуиз-серверов.. и в случает отказа одного из них берите другой..

эта гениальная мысль уже посещала меня, если всё будет очень плохо - так и сделаю...

но! почему никто не говорит о моём роутере?
это ведь он получает ip при подключении и он же хранит ip...
неужели невозможно взять ip у роутера?
или я бред несу?