IP real

[flovato 0]

Preciso obter o IP da minha máquina.No entanto, se minha conexão for, por exemplo, adsl, irei precisar o IP real.Como eu faço isso?Obrigado pela atenção.

[apocalipse 0]

Salve flovato

 

Achoq ue isso te ajuda

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, StdCtrls, ExtCtrls, ImgList,Winsock;type  TForm1 = class(TForm)    Memo1: TMemo;    Button1: TButton;    procedure Button1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  p : PHostEnt;  s : array[0..128] of char;  p2 : pchar;beginGetHostName(@s, 128);p := GetHostByName(@s);Memo1.Lines.Add(p^.h_Name);p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);Memo1.Lines.Add(p2);end;procedure TForm1.FormCreate(Sender: TObject);  varwVersionRequested : WORD;wsaData : TWSAData;beginwVersionRequested := MAKEWORD(1, 1);WSAStartup(wVersionRequested, wsaData);end;procedure TForm1.FormDestroy(Sender: TObject);begin  WSACleanup;end;end.

Apocalipse :unsure:

[proteus 0]

opinião do nosso amigo arcanjo

Na verdade amigo ainda não consegui ver nada que result o seu IP verdade na internet usando alguma api do windows ou algo assim , o companheiro anterior respondeu como pegar o ip local da sua rede interna. Aconselho a você utilizar alguma pagina que retorne isso, por exemplo a http://www.whatismyip.com/. Utilize o componente de http que você achar melhor, e procure pelo string 'Your IP Is' que o seu ip válido de internet ta logo a frente.Foi assim que resolvi o meu problema.Espero ter ajudado.Sebastião Júnior