Fórum Retornar IP do Servidor Virtual/NAT???? #256029
26/10/2004
0
Alguém sabe como faço pra conseguir o número do IP na InterNet.. Já que trabalho em rede e minha InterNet é compartilhada em um suite...
Tenho um NAT que controla o IP, mas como faço pra conseguir este número estando em qualquer micro da rede..
Cabelo
Cabelo
Curtir tópico
+ 0Posts
26/10/2004
Cabelo
Gostei + 0
27/10/2004
Cabelo
Gostei + 0
27/10/2004
Rômulo Barros
Gostei + 0
27/10/2004
Cabelo
Eu consegui arrumar na InterNet um programa feito em Visual basic, que retorna exatamente o IP da conexão com a Internet...
Preciso disto em delphi, será que alguém sabe?
Agradeço antecipadamente..
Gostei + 0
27/10/2004
Rômulo Barros
Cabelo... c anda sumido, cara ;;;;;
:arrow: [color=blue:e7734cfa86]Manda esse programa em VB para mim, amigo ~~[/color:e7734cfa86]
[b:e7734cfa86]romulomanoel@hotmail.com
romulomanoel@tisstech.com.br[/b:e7734cfa86]
:wink: :wink: :wink:
Gostei + 0
27/10/2004
Eixox
Gostei + 0
27/10/2004
Emerson Nascimento
var i:integer;
x,s:ansistring;
begin
try
x := IdHTTP1.Get(´http://checkip.dyndns.org´);
i := AnsiPos(´Address:´,x);
i := i+9;
while x[i]´<´ do
begin
s:=s+x[i];
inc(i);
end;
Edit1.Text:=s;
finally
end;
end;
Gostei + 0
28/10/2004
Cabelo
Consegui...
De fato o exemplo do emerson dá certo, e funciona exatamente como eu esperava..
Obrigado a todos..
Gostei + 0
29/10/2004
Rômulo Barros
:?: :?: :?: :?: :?:
Gostei + 0
29/10/2004
Cabelo
Escreveu
e não disse nada..
o q será?
Gostei + 0
29/10/2004
Rômulo Barros
Cabelo, comigo aconteceu o seguinte:
Peguei o programa em VB q vc me enviou e o resultado foi o seguinte: [color=red:b6498ca885][b:b6498ca885]201.12.114.13[/b:b6498ca885][/color:b6498ca885]
Tudo bem.. funcionou perfeitamente.
Entretanto, com o código do emerson.en, o retorno foi o seguinte:
[color=red:b6498ca885][b:b6498ca885] 192.168.0.14[/b:b6498ca885][/color:b6498ca885]
[b:b6498ca885]Concluido:[/b:b6498ca885] O programa em VB funciona perfeitamente, pois aqui na empresa o meu IP local é 192.168.0.14 e o programa me trouxe o IP de Internet 201.12.114.13. Por outro lado, o código do emerson.en me trouxe o IP Local, mas naum trouxe o IP de internet.
:wink: :wink: :wink:
Gostei + 0
29/10/2004
Cabelo
Aqui deu tudo certo..
Inclusive já fiz o meu programa testar a troca do IP Dinâmico, e deu certinho.. consigo gravar em um txt esta troca, como um arquivo de log..
Coloque o fonte aqui e nóa poderemos te ajudar..
Cabelo
Gostei + 0
29/10/2004
Rômulo Barros
Coloquei um botão, um idHttp e um Edit e, no evento on click do botão coloquei:
var i:integer;
x,s:ansistring;
begin
try
x := IdHTTP1.Get(´http://checkip.dyndns.org´);
i := AnsiPos(´Address:´,x);
i := i+9;
while x[i]<>´<´ do
begin
s:=s+x[i];
inc(i);
end;
Edit1.Text:=s;
finally
end;
end;Gostei + 0
29/10/2004
Cabelo
mas aqui funcionou perfeitamente..
só uma pergunta..
vc abriu um projeto novo para testar este programa..
se não abriu..
tente criar um novo e rodar..
veja o resultado e poste aqui..
Gostei + 0
29/10/2004
Rômulo Barros
Foi exatamente isto que fiz. Teste em um projeto novo, mas não dá certo pois tenho como retorno o IP Local.
Acho Melhor encerrarmos por aqui essa questão. Vou dá uma pesquisada e voltarei a postar aqui, neste mesmo tópico, as soluções encontradas, seja com sucesso, seja sem sucesso !!!
Mesmo assim, Valeu !!!!
[b:c21d202d15]Um Abraço: U.D.[/b:c21d202d15] :wink:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)