Hola todos....
trabajo en delphi 2007, y estoy ejecutando un codigo php que tengo en un servidor remoto, para ello utilizo un TWebBrowser, el cual lo ejecuto normal:
Código Delphi
[-]WebBrowser1.Navigate(auxstrweb);
donde auxstrweb es un string con la url de la pagina php y lleva una serie de parametros que se pasan para leer por GET.
El cuento es que la primera vez me lo hace bien, y las otras veces que llamo a la misma pagina pero con otros parametros, es como si no se ejecutara. (No hace nada).
cabe aclarar que utilizo una barra de progreso para detectar cuando se termina el proceso.
Código Delphi
[-]
procedure TFrmSeleccionBoletines.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurWebrowser : IWebBrowser;
TopWebBrowser: IWebBrowser;
Document : OLEvariant;
WindowName : string;
begin
CurWebrowser := pDisp as IWebBrowser;
TopWebBrowser := (ASender as TWebBrowser).DefaultInterface;
if CurWebrowser=TopWebBrowser then
begin
ProgressBar1.Position := 100;
ShowMessage('Proceso Completado...');
end
else
begin
Document := CurWebrowser.Document;
WindowName := Document.ParentWindow.Name;
end;
end;
Si alguien sabe como puedo hacer para ejecutar esa pagina cuantas veces se quiera. Lo hago en el evento OnClick de un boton.
Gracias si pueden colaborarme.....