Mostrar imágen desde GOOGLE DRIVE

[acuellar]

Muchas Gracias Cristobal

A mi no me muestra

Tengo: FWH 18.04 Harbour 3.2 y BCC 7.40

[karinha]

Muchas Gracias Cristobal

A mi no me muestra

Tengo: FWH 18.04 Harbour 3.2 y BCC 7.40

Code: Select all  Expand view

// \SAMPLES\TESTIMG3.PRG - Usando: imgur.com

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg, oImg, cNomImg

   // cNomImg := "http://drive.google.com/uc?export=view&id=10an-18yRqOyRljuIWZ2-OKXADIDoWrG-"
   cNomImg := "https://i.imgur.com/teS9kHy.png"
   
   DEFINE DIALOG oDlg TITLE "Image Google Drive"

   @ 0, 0 BITMAP oImg SIZE 250, 350 PIXEL OF oDlg NOBORDER ADJUST

   oImg:SetBmp( cNomImg )

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oDlg:SetSize( oImg:nWidth, oImg:nHeight ), oDlg:Center() )

   oImg:End()

RETURN NIL
 

Regards, saludos.

[karinha]

Actualize tú versíon ó podrias guardar la imagen y llamar después:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39108&p=233390&hilit=setbmp&sid=ca454d6fcde12d2872a70e5f59c4c8ae&sid=ca454d6fcde12d2872a70e5f59c4c8ae#p233390

Regards, saludos.

[acuellar]

Gracias estimado João

Por ahora lo haré con IMGUR