Retornar IP do Servidor Virtual/NAT????

Delphi

26/10/2004

Colegas..

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

Cabelo

Curtidas 0

Respostas

Cabelo

Cabelo

26/10/2004

sobe.... :(


GOSTEI 0
Cabelo

Cabelo

26/10/2004

sobe de novo... :(


GOSTEI 0
Rômulo Barros

Rômulo Barros

26/10/2004

Sobe -> Para o alto e avante !!!


GOSTEI 0
Cabelo

Cabelo

26/10/2004

Colegas...

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
Rômulo Barros

Rômulo Barros

26/10/2004

Colegas... 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..


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
Eixox

Eixox

26/10/2004

veja a minha proposta e se estiver interessado.


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

26/10/2004

gambiarra, mas vamos lá... adicione um componente IdHTTP da paleta [b:1cd5558d5d]Indy Clients[/b:1cd5558d5d] e, num botão qualquer, adicione esse código:

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
Cabelo

Cabelo

26/10/2004

Colegas..

Consegui...

De fato o exemplo do emerson dá certo, e funciona exatamente como eu esperava..

Obrigado a todos..


GOSTEI 0
Rômulo Barros

Rômulo Barros

26/10/2004

veja a minha proposta e se estiver interessado.


:?: :?: :?: :?: :?:


GOSTEI 0
Cabelo

Cabelo

26/10/2004

É verdade..

Escreveu

e não disse nada..

o q será?


GOSTEI 0
Rômulo Barros

Rômulo Barros

26/10/2004

Colegas.. Consegui... De fato o exemplo do emerson dá certo, e funciona exatamente como eu esperava.. Obrigado a todos..


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
Cabelo

Cabelo

26/10/2004

Colega..

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
Rômulo Barros

Rômulo Barros

26/10/2004

[u:ad4a5eb2ab][b:ad4a5eb2ab]Segue o fonte:[/b:ad4a5eb2ab][/u:ad4a5eb2ab]
Coloquei um botão, um idHttp e um Edit e, no evento on click do botão coloquei:

gambiarra, mas vamos lá... adicione um componente IdHTTP da paleta Indy Clients e, num botão qualquer, adicione esse código: 
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
Cabelo

Cabelo

26/10/2004

Pode até parecer mentira..

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
Rômulo Barros

Rômulo Barros

26/10/2004

Pode até parecer mentira.. 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..


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
POSTAR