Fórum Ajudem - Programa que se conecta a internet, pega IP dinâmico e envia por e-mail. #394124
21/01/2011
0
Boa tarde... Ontem, achei um tópico neste site, que dizia ter uma rotina em Delphi 6 pronta para um programa que pega o ip dinâmico pela internet e o manda poe e-mail. Pois bem, primeiramente devo dizer que sou iniciante em Delphi, e gostaria que vocês tivessem paciência comigo. O endereço do tópico é o seguinte : " http://forum.devmedia.com.br/viewtopic.php?t=77512&sid=54a4f2f209258b31fef801b33add9f48 " (sem aspas).
Então, eu gostaria que vocês me ajudassem, ou a corrigir a rotina (pois aqui não funciona) ou me explicassem, mais tem que ser PASSO A PASSO , coisa por coisa como fazê-lá funcionar corretamente.
PS: Quando digo passo a passo é por Ex; " Coloque um componente tal... O componente fica na paleta tal..." E assim por diante.
Aguardo anciosamente resposta, e agradeço desde já pela compreensão de vocês.
Ah... só mais uma coisa, eu gostaria de saber se quando eu pego o script pronto, eu tenho que colocar os Buttons e tal e renomeá-los ou o Delphi coloca sozinho.
Enfim , Aguardarei.
Henrique Rosa
Curtir tópico
+ 0
Responder
Posts
26/01/2011
Marcelo Diniz
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdHTTP;
type TForm1 = class(TForm) btn1: TButton; edt1: TEdit; procedure btn1Click(Sender: TObject); private { Private declarations } public function ObterIP : String; { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);beginedt1.Text := ObterIP;end;
function TForm1.ObterIP: String;var IP : TIdHTTP; Temporario : String; Endereco : String; X : Integer;begin try IP := TIdHTTP.Create(nil); with IP do begin Request.Host := 'http://checkip.dyndns.org/'; Temporario := Get('http://checkip.dyndns.org/');
For X := 1 to Length(Temporario) do if (Temporario[X] in ['0'..'9']) or (Temporario[X] = '.') then Endereco := Endereco + Temporario[X];
end; Result := Trim(Endereco);
except Result := ''; end;
IP.Free;
end;
end.
Responder
Gostei + 0
26/01/2011
Marcelo Diniz
Exemplo para download no link abaixo:http://www.ligteltelecom.com.br/delphi/Pegar_IP.rar
Responder
Gostei + 0
16/05/2013
José
Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)