FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Mostrar imágen desde GOOGLE DRIVE
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Mostrar imágen desde GOOGLE DRIVE
Posted: Sat Jul 31, 2021 01:59 PM

Muchas Gracias Cristobal

A mi no me muestra :cry:

Tengo: FWH 18.04 Harbour 3.2 y BCC 7.40

Saludos,



Adhemar C.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Mostrar imágen desde GOOGLE DRIVE
Posted: Sat Jul 31, 2021 02:08 PM
acuellar wrote:Muchas Gracias Cristobal

A mi no me muestra :-)

Tengo: FWH 18.04 Harbour 3.2 y BCC 7.40


Code (fw): Select all Collapse
// \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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Mostrar imágen desde GOOGLE DRIVE
Posted: Sat Jul 31, 2021 02:15 PM
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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Mostrar imágen desde GOOGLE DRIVE
Posted: Sat Jul 31, 2021 03:31 PM

Gracias estimado João

Por ahora lo haré con IMGUR

Saludos,



Adhemar C.

Continue the discussion

Static archive · New replies & topics via GitHub Discussions