Envio de Email al cambiar la IP

[[Caral]]

Hola a todos
Como sabéis he estado tratando de hacer un programita que me envíe la dirección Ip del servidor cuando esta cambie (hay uno por ahi pero sin codigo).
Bueno pues como de esto no se he usado uno de los programas que vienen en los demos de delphi.
Lo que he hecho es hacerle unas modificaciones y quitarle lo que no me interesa, así solamente busca la dirección IP, lee unos datos, los compara y si es diferente a la que tiene guardada, envía un email con la nueva ip.
Se puede indicar a que email enviar el dato, cada cuanto tiempo se quiere que haga la revisión etc.
Lo que trate de hacer es simplificar el programa y que haga específicamente una sola tarea.
Bueno, aparte de que todos vosotros tendréis el código (ya que esta en los demos) pues os dejo los cambios por si a alguno os interesa saber la chapuza que hice, probada y funcionando.
Saludos

[[eduarcol]]

Empezado por Caral

Hola a todos
Como sabéis he estado tratando de hacer un programita que me envíe la dirección Ip del servidor cuando esta cambie (hay uno por ahi pero sin codigo).
Bueno pues como de esto no se he usado uno de los programas que vienen en los demos de delphi.
Lo que he hecho es hacerle unas modificaciones y quitarle lo que no me interesa, así solamente busca la dirección IP, lee unos datos, los compara y si es diferente a la que tiene guardada, envía un email con la nueva ip.
Se puede indicar a que email enviar el dato, cada cuanto tiempo se quiere que haga la revisión etc.
Lo que trate de hacer es simplificar el programa y que haga específicamente una sola tarea.
Bueno, aparte de que todos vosotros tendréis el código (ya que esta en los demos) pues os dejo los cambios por si a alguno os interesa saber la chapuza que hice, probada y funcionando.
Saludos

y como sabemos qe no hay algun codigo oculto en ese archivo, es que tu sabes es muy extraño que tu compartas codigo :P:P

[[seoane]]

En el trabajo teniamos un pequeño equipo que actuaba como servidor, era algo temporal, una solucion improvisada, por lo que estaba encima de una mesa juntos con otros equipos y una maraña de cables. El problema era que cada vez que alguien necesitaba conectar un equipo a la red, desconectaba uno de los cables del moton y enchufaba el suyo, y mas de una vez el servidor se quedo sin conexion.

Esto era algo inaceptable asi que, aprovechando que windows xp cambia la ip del equipo si detecta que el cable de red ha sido desenchufado, monte este pequeño chivato que hace saltar la alarma cada vez que la ip del equipo no es la que deberia.

[[seoane]]

Se me olvidaba, esta muy bien tu aplicación Caral.

PD: Las claves que aparecen ¿no serán reales?

[[Caral]]

Hola
Gracias Seoane, no te preocupes, las claves y demás son ficticias, es solo para que se vea el funcionamiento de la chapucilla.
Tu aplicación esta muy interesante, pero para variar no la entiendo, voy a necesitar un curso completo de Buffers y arrays, siempre me pasa lo mismo.
Bueno no pierdo la esperanza, algun dia entiendo lo que haces, aunque estoy seguro de que proviene de algun lado extraño, dime la verdad, tienes contacto con los extraterrestres????.
Saludos

[[Caral]]

Hola
Aprovechando este hilo
Me parece que puede haber una falla, aparentemente (no lo he comprobado bien) cuando no encuentra la pagina o esta vacía, envía la ip vacía y no la recupera.
Bueno, eso me ha parecido en la prueba que hice hace un rato.
Si tenéis alguna idea de como verificar si hay conexión a esta pagina o si el result esta vació, o algo mas, me lo podéis comentar??.
Saludos

[[Caral]]

Hola
De momento lo que se me ocurre es hacer esto:

Código Delphi [-]

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
MailIni: TIniFile;
IpNumero: String;
begin
  IP_Publica;
  If IP_Publica = '' then
  begin
  IP_Publica;
  end
  else
  Timer1.Interval:= StrToInt(ESegundos.Text)* 60 * 1000;
  MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Mail.ini');
  with MailIni do
  begin
  IpNumero := MailIni.ReadString('Ip','Ip','');
  If IpNumero <> IP_Publica then
  begin
  Memo1.Text:= '';
  MailIni.WriteString('Ip','Ip',IP_Publica);
  Memo1.Text:= IP_Publica;
  bbtnOk.Click;
  end
  else
  //ShowMessage('hola');
end;
end;

Si tenéis alguna idea, me la podéis decir por favor.
Saludos