Получение IP адреса

[Letnab]

Доброго времени суток форумчане.
ни как не могу додуматься как вывести в делфи айпи адрес для PPP адаптера.

в нэте есть коды для получения локального ip но это не то.
не подскажите код? или где копать?

[ArtGrek]

айпи адрес для PPP адаптера.

честно говоря не знаю что за РРР, могу скинуть рабочии ког для получения глобального IP

[Letnab]

PPP адаптер это либо модем либо подключённый телефон.Я знаю Локальный можно узнать таким кодом

label1.Captoin:=IdIPWatch1.LocalIP;

а ты что хотел предложить?

[ArtGrek]

uses
  ..., ScktComp;

function GetHTML(const AURL: string): string;
 var
   sHead,sHost,sPage: string;
   x,xCnt,xCntTotal: integer;
   sock: TClientSocket;
   ws: TWinSocketStream;
   ss: TStringStream;
   buff: array[0..4095] of char;
 const
   CrLf = #13#10;
 begin
   Result := '';
 
   sHost := AURL;
   x := Pos('//',sHost) ;
   if x > 0 then
     System.Delete(sHost,1,x+1) ;
   x := Pos('/',sHost) ;
   if x > 0 then
   begin
     sPage := Copy(sHost,x,Length(sHost)) ;
     System.Delete(sHost,x,Length(sHost)) ;
   end
   else
   begin
     sPage := '/';
   end;
 
   sock := TClientSocket.Create(nil) ;
   try
     try
       sock.ClientType := ctBlocking;
       sock.Port := 80;
       sock.Host := sHost;
       sock.Open;
 
       // установим задержку на 20 секунд
       ws := TWinSocketStream.Create(sock.Socket,20000) ;
       ss := TStringStream.Create('') ;
       try
         sHead := 'GET ' + sPage + ' HTTP/1.0 ' + CrLf + 
				'Host: ' + sHost + CrLf + CrLf;
         StrPCopy(buff,sHead) ;
 
         ws.Write(buff,Length(sHead) + 1) ;
         ws.Position := 0;
 
         FillChar(buff,SizeOf(buff),0) ;
         repeat
           xCnt := ws.Read(buff,SizeOf(buff)) ;
           xCntTotal := xCntTotal + xCnt;
           ss.Write(buff[0],xCnt) ;
         until xCnt = 0;
 
         Result := ss.DataString;
       finally
         ws.Free;
         ss.Free;
       end;
     except
   end;
   finally
     sock.Free;
   end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
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];
   finally
     Free;
   end;
   ShowMessage('Ваш внешний адрес ip: ' + ip);
end;

[Letnab]

Спасибо за код. но это не то.

тут можно даже сделать проще. через IDHttp

procedure TForm1.Button1Click(Sender: TObject);
var
ip:string;
begin
ip:=IDhttp1.get('www.whatismyip.com/automation/n09230945.asp');
label1.caption:=ip;
end;