Page 2 of 2
Re: Ajustar contenido página web en control TDockPnel
Posted: Sat Sep 18, 2021 7:46 pm
by karinha
Y ahora?
Code: Select all | Expand
// \samples\CMSOFT2.PRG
#Include "FiveWin.Ch"
STATIC oWnd
FUNCTION Main()
LOCAL cUrl, cParam, cUrlFin, oDlg, oBtn, oFnt, oFont
cUrl := ( "https://app.pedidosbcn.com/tienda/tiendadepizzas" )
cParam := ( "#hl=br&gs_nf=1&cp=5&gs_id=m&xhr=t&q=fivewin&pf=p&biw=1024&bih=502&sclient=psy-ab&oq=fivew&gs_l=&pbx=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.,cf.osb&fp=531bac45c1a76a40" )
cUrlFin := ( cUrl + cParam )
DEFINE WINDOW oWnd FROM 0, 0 TO 600, 800 PIXEL
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT( ( MeuWinExec( "Start Iexplore.Exe " + cUrlFin, 0 ) ), oWnd:End() )
RETURN NIL
FUNCTION MeuWinExec( cParametro )
LOCAL cExecute := GetPvProfString( "" )
// NT, 2000 e XP
IF IsWinNT() .OR. IsWin2000()
cExecute := GetEnv( "COMSPEC" ) + " /C "
ENDIF
RETURN WinExec( cExecute + cParametro, 0 )
//-> FIN
Regarads, saludos.
Re: Ajustar contenido página web en control TDockPnel
Posted: Sat Sep 18, 2021 10:39 pm
by cmsoft
De esta forma me abre Internet Explorer Suelto, no en una ventana de mi aplicación.
Igualmente no mantine la estetita de la pagina.
Gracias por tu interes João
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Sep 19, 2021 1:59 pm
by karinha
No comprendo porque no funciona con el sitio de CMSOFT??
#Include "FiveWin.ch"
FUNCTION Main()
// FUNCIONA PERFECTO
// LOCAL cURL := "http://forums.fivetechsupport.com/index.php?sid=11ea51a82e1ce30643d2156006fbcb76"
// NO FUNCIONA. No comprendo ???
LOCAL cUrl := "https://app.pedidosbcn.com/tienda/tiendadepizzas"
LOCAL nPost := 1, n
LOCAL cGoTo := cUrl + "p=" + AllTrim( Str( nPost ) ) + "&p=" + AllTrim( Str( nPost ) )
LOCAL cPost := WebPageContents( cGoTo, .T. )
for n = 1 to 1 // 5
cGoTo = cUrl + "p=" + AllTrim( Str( nPost ) ) + "&p=" + AllTrim( Str( nPost ) )
HtmlView( cGoTo )
nPost++
next
RETURN NIL
FUNCTION HtmlView( cUrl, cTitle )
LOCAL oDlg, oActiveX
DEFAULT cTitle := cUrl
DEFINE DIALOG oDlg TITLE cTitle SIZE 1000, 600 RESIZABLE
@ 0, 0 ACTIVEX oActiveX PROGID "Shell.Explorer.2" OF oDlg
oActiveX:nDlgCode = DLGC_WANTALLKEYS
oDlg:oClient = oActiveX
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( oDlg:Resize(), oActiveX:Silent := .T., oActiveX:Navigate( cURL ) )
RETURN NIL
Regards, saludos.
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Sep 19, 2021 8:31 pm
by cmsoft
João, si funciona el sitio, lo que no funciona son los estilos y javascript que tiene el sitio, si lo lanzamos dentro de la ventana.
Si le sacas oActiveX:Silent := .T., veras que te dice que no puede cargar. Eso que no puede cargar es lo que le da estilo y funcionalidad a la web.
Con tu ultimo ejemplo, simplemente me da un error en la carga de la pagina, porque esta no existe mi web.
Con una pequeña correccion la pude hacer andar pero sin exito como lo veo
La clausula RESIZABLE no es valida en mi version de Fivewin.
Asi es como deberia verse mi web
https://app.pedidosbcn.com/tienda/tiendadepizzas
Así es como la veo
Re: Ajustar contenido página web en control TDockPnel
Posted: Tue Sep 21, 2021 11:44 am
by cnavarro
Re: Ajustar contenido página web en control TDockPnel
Posted: Tue Sep 21, 2021 3:39 pm
by cmsoft
Cristobal:
No funciona con bcc7 cierto?
Re: Ajustar contenido página web en control TDockPnel
Posted: Tue Sep 21, 2021 4:06 pm
by cnavarro
Cesar, es posible que para MinGw intente hacer la lib, pero las pruebas que he hecho con Borland, ha sido imposible. Quizás más adelante lo intente de nuevo pero no tiene pinta de que llegue a ser posible, ya se verá.
Re: Ajustar contenido página web en control TDockPnel
Posted: Tue Sep 21, 2021 7:44 pm
by cmsoft
Entedido, muchas gracias Cristobal.