como Descobrir o IP da Maquina local?

Question

A� galera....Seguinte: Estou precisando receber por e-mail o ip da minha m�quina, explico... eu tenho velox (banda larga) e gostaria de�entrar� na minha m�quina de casa devezenquando enquanto ainda es...

Otto · Answer

Caro amigo flavio,uma das maneiras de pegar o IP local da maquina � fazer o seguinte:antes de tudo, declare a clausula [u:48c612875d]WinSock [/u:48c612875d]na se��o [b:48c612875d]Users[/b:48c612875d], depois em [b:48c612875d]private[/b:48c612875d], adicione o seguinte:    function GetIP:string;depois coloque a seguinte rotina no form1function T[b:48c612875d]Form1[/b:48c612875d].GetIP:string;varWSAData: TWSAData;HostEnt: PHostEnt;Name:string;beginWSAStartup(2, WSAData);SetLength(Name, 255);Gethostname(PChar(Name), 255);SetLength(Name, StrLen(PChar(Name)));   HostEnt := gethostbyname(PChar(Name));with HostEnt^  do     begin     Result := Name+� �+Format(��d.�d.�d.�d�,               [Byte(h_addr^[0]),Byte(h_addr^[1]),               Byte(h_addr^[2]),Byte(h_addr^[3])]);     end;WSACleanup;end;-------Pronto, agora para pegar o Ip vc faz o seguinte:adicione um label no form e no evento OnCreate do form escreva o seguinte:label1.[b:48c612875d]caption [/b:48c612875d][color=red:48c612875d]:=[/color:48c612875d] [b:48c612875d]GetIP[/b:48c612875d];pronto... flw......

Flavio Sanches · Answer

valeu, mano.... Vou tentar isso...

Celo-faveri · Answer

amigo...voc� tamb�m pode fazer o seguinte:

Antes, declare na uses o WinSock

depois adicione esta fun��o:

function LocalIP : string; 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); Result := ��; 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 result:=StrPas(inet_ntoa(pptr^[I]^)); Inc(I); end; WSACleanup; end;

como vc quer q o programa inicie automaticamente, ent�o coloque este c�digo em um timer:

procedure TForm1.timeIPTimer(Sender: TObject); begin Label1.Caption := LocalIP; end;

Se quiseres, pode por no OnCreate do Form.
A� � s� mandar p/ o e-mail o caption do Label.

T+ :wink:

Rfpsatin · Answer

Seguinte, deixa aproveitar a oportunidade.Tenho um Modem ADSL [b:4102872895]router[/b:4102872895] Q bloqueia isso. COmo pego o IP do modem?abra�o...

Carlos Eduardo · Answer

Bem Estava revirando o F�rum e cheguei aqui kkkk... achei da hora que voc� quer fazer mas....
uma pergunta Como Vc se conecta na maquina com esse IP? atrav�s da �rea remota ? sorry sou iniciante rs

F�rum como Descobrir o IP da Maquina local? #194921