Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Nueva Ventana Con TWebBrowser (https://www.clubdelphi.com/foros/showthread.php?t=37033)

marlok 31-10-2006 18:09:25

Nueva Ventana Con TWebBrowser
 
Buenas Gente, les agradeceria si me pueden sacar una duda, estoy haciendo una aplicacion que utiliza un webBrowser, se loguea en un sitio web(un sitio externo, que está online), en un momento determinado, el sitio ejecuta una pagina en una nueva ventana, pero al hacer esto, en lugar de redireccionarme a la nueva pagina, me redirecciona al login y me pide user y pass de nuevo.

Si estoy logueado en internet Explorer en la pagina mencionada, y entro desde la aplicacion delphi, funciona correctamente, pero al cerrar el IE deja de funcionar , por lo que deduzco que debe tener que ver con la Sesión, el problema es que el componente TwebBrowser no tiene manejo de sesiones.

si alguno de uds genios me pudiera dar una mano se los agradeceria enormemente.
Desde ya gracias... y saludos para todos...

roman 31-10-2006 19:46:14

La nueva ventana ¿dónde se abre? ¿en tu propia aplicación o en el internet explorer? Es posible que la sesión se pierda porque se abre una nueva instancia del IE y no ya de tu aplicación. En tal caso, es posible, aunque no puedo asegurarlo, que te sirva lo mencionado aquí.

// Saludos

marlok 01-11-2006 19:45:58

Gracias Roman!
 
Gracias che, encontré la solución al poco tiempo de postear la inquietud, y justamente lo solucioné de la manera que vos proponés, aunque un poco distinta pero el concepto es el mismo.
Al final definí la funcion showPopupWeb(Appdisp: Idispatch): boolean;
Para poder crear popus o ventanas emergentes desde el main, y opcionalmente desde el mismo popup creado, ya que esto lo requeria la pagina que accedo.(esta funcion se llama desde el OnNewWindow2 del browser)
Pongo el codigo por si alguien necesita hacer lo mismo, espero les sirva.

Código Delphi [-]
function showPopupWeb(var appDisp: IDispatch):boolean;
var ThePopup : TFormPopup;
begin
  result:= false;
  try
    ThePopup := TFormPopup.Create(application);
    ThePopup.Browser.RegisterAsBrowser:= true; 
    appDisp := ThePopup.Browser.Application; 
    ThePopup.show;
    result:= true;
    except: result:= false
  end;
end;


La franja horaria es GMT +2. Ahora son las 01:30:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi