conectar un programa delphi a una web

[soyhugo]

Esitmados señores, una vez más recurro a ustedes en busca de ayuda:
mi problema es el siguiente, yo quiero hacer un programa que cada x tiempo cargue en un string (pj un richedit), una determinada página web, y hasta que ésta no se haya cargada, no hace una serie de operaciones sobre el texto obtenido.

para ello utlilizo un reloj que llama a una funcion cada minuto, esta funcion tiene la siguiente instruccion para cargar la página.

richedit1.Lines.Strings[1]:=idhttp1.Get('http://pagina web') ;
...
instrucciones que hacen cosas sobre el código obtenido.

el problema está en que algunas veces tarda en cargarse dicha página en el richedit, con lo que las instrucciones siguientes, no funcionan correctamente, parece que no esperan a que se cargue la página. cómo puedo solucionar esto. además, la forma de controlar que si ha pasado x tiempo y no se ha cargado la página, no pete la conexión del socket, sino que vuelva a intentar cargarla. gracias.

[jachguate]

a mi me parece que el método Get debiera funcionar de forma sincrona... es decir, devolver el control a la aplicación hasta que haya terminado de ejecutarse. Para capturar cualquier problema que se de con los sockets, podes encerrar la llamada a get en un bloque try/except/end y darle el tratamiento adecuado.

Hasta luego.

[soyhugo]

lo del socket ya lo sabía, el problema está en como hago para que vuelva a ejecutarse la carga de la página. y con respecto a lo de ejecutarse la llamada en forma síncrona, no me funciona, porque imagino que es como lo tengo programado ahora.

[roman]

El compañero jachguate no te estaba sugiriendo que realzaras la llamada en forma sincrónica sino que te estaba afirmando un hecho: las componentes Indy trabajan sincrónicamente y esto se supone que quiere decir que la llamada a Get no regresa sino hasta que termina de cargarse completamente la página razón por la cual es extraño que se ejecuten otro procedimientos antes de terminarse la carga.

// Saludos

[jachguate]

para que vuelva a ejecutarse la cárga de la página... podes hacer algo como:

var
  Error : Boolean;

Begin
  repeat
    Error := False;
    try
      richedit1.Lines.Strings[1]:=idhttp1.Get('http://pagina web') ;
    except
      on Exception do
      Begin
         Error := True;
         Tratar_Informar_o_ignorar_Error;
      end;
    end;
  until not Error;
  otrasOperaciones;
End;

Hasta luego.