Envio de Email al cambiar la IP

[[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