Ajustar contenido página web en control TDockPnel

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

[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

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

[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

[cnavarro]

Webview2 for Fivewin
viewtopic.php?f=17&t=40854

[cmsoft]

Cristobal:
No funciona con bcc7 cierto?

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

[cmsoft]

Entedido, muchas gracias Cristobal.