Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ajustar contenido página web en control TDockPnel
Posted: Sat Sep 18, 2021 07:46 PM

Y ahora?

// \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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Ajustar contenido página web en control TDockPnel
Posted: Sat Sep 18, 2021 10:39 PM

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Sep 19, 2021 01:59 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Sep 19, 2021 08:31 PM

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Ajustar contenido página web en control TDockPnel
Posted: Tue Sep 21, 2021 11:44 AM

Webview2 for Fivewin

viewtopic.php?f=17t=40854

&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Ajustar contenido página web en control TDockPnel
Posted: Tue Sep 21, 2021 03:39 PM

Cristobal:
No funciona con bcc7 cierto?

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Ajustar contenido página web en control TDockPnel
Posted: Tue Sep 21, 2021 04:06 PM

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á.

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Ajustar contenido página web en control TDockPnel
Posted: Tue Sep 21, 2021 07:44 PM

Entedido, muchas gracias Cristobal.

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

FiveTech Support Forums

Include "FiveWin.ch"

Continue the discussion