Capturar IP do Modem ADSL ?
Amigos,
Gostaria de saber se algum colega já conseguiu via Delphi capturar o IP real que o provedor de banda larga disponibiliza ao Modem Adsl Residencial.
Bem, caso isto não exista possibilidades não sei !!! tem uma forma que eu fiz só que preciso saber como faço para usar ASP dentro do delphi, pois se acessarem o link --> www.viasolucoes.com.br/ip.asp eu consigo ver isto na internet, porem gostaria de saber como ler um arquivo dentro do delphi, dai eu conseguiria pegar o IP real do meu modem.
Caso alguem tenha alguma idéia e puder me ajudar ficarei agradecido.
Abraço,
Everson C. da Silva
everson@viasolucoes.com.br
Gostaria de saber se algum colega já conseguiu via Delphi capturar o IP real que o provedor de banda larga disponibiliza ao Modem Adsl Residencial.
Bem, caso isto não exista possibilidades não sei !!! tem uma forma que eu fiz só que preciso saber como faço para usar ASP dentro do delphi, pois se acessarem o link --> www.viasolucoes.com.br/ip.asp eu consigo ver isto na internet, porem gostaria de saber como ler um arquivo dentro do delphi, dai eu conseguiria pegar o IP real do meu modem.
Caso alguem tenha alguma idéia e puder me ajudar ficarei agradecido.
Abraço,
Everson C. da Silva
everson@viasolucoes.com.br
Everson
Curtidas 0
Respostas
Weber
29/09/2004
Colega, eu também não faço idéia de como fazer em asp ou delphi, mas sei que em PHP também dá pra fazer e como PHP é bem parecido com C talvez você consiga montar algo parecido em delphi.
Pesquisa na internet sobre isso em linguem PHP.
Pesquisa na internet sobre isso em linguem PHP.
GOSTEI 0
Maicongabriel
29/09/2004
...preciso saber como faço para usar ASP dentro do delphi, pois se acessarem o link --> www.viasolucoes.com.br/ip.asp eu consigo ver isto na internet, porem gostaria de saber como ler um arquivo dentro do delphi, dai eu conseguiria pegar o IP real...
Insira um componente Indy (TidHTTP) em seu formulário.
Crie uma função:
function TForm1.IPExterno: String; begin Result := IdHTTP1.Get(´http://www.dominio.com.br/ip.asp´); end;
E em IP.asp, temos apenas:
<¬ Response.Write(Request.ServerVariables("REMOTE_ADDR")) ¬>Melhore a função como precizar e bom uso. :wink:
GOSTEI 0