FiveTech Support Forums

#include "fivewin.ch"
#include "Image.ch"

function Main()
LOCAL    oDlg, oImage, oGet,  lSetAlpha := .t., cUrlImage := SPACE(200)
        
        
   DEFINE DIALOG oDlg FROM 0, 0 TO 24, 60 

   @ 0, 0 IMAGE oImage SIZE 150, 150 OF oDlg SCROLL // ADJUST

   oImage:Progress( .f. )

   @ 6, 28 BUTTON "Exit" SIZE 50, 10 OF oDlg ACTION oDlg:End()
   
   @ 10, 26 CHECKBOX oImage:lStretch PROMPT "Ajustar" SIZE 50, 10 OF oDlg ;
      ON CHANGE ( oImage:ScrollAdjust(), oImage:Refresh() )

   @ 12 ,00 GET oGet VAR cUrlImage PICTURE "@S50" VALID(CambiaImagen(cUrlImage, oImage))
   ACTIVATE DIALOG oDlg CENTER
RETURN NIL

STATIC function CambiaImagen(url,oIm)
LOCAL nRet
nRet := DOWNLOADFILE( url, "C:\prueba.jpg" )
IF nRet = 0
   oIm:LoadBmp("C:\prueba.jpg" )
ENDIF   
RETURN nRet = 0

#pragma BEGINDUMP

    #include <Windows.h>
    #include <hbapi.h>
    #include <urlmon.h>

    HB_FUNC( DOWNLOADFILE )

    {
            HRESULT hr;
           
            hr = URLDownloadToFile( NULL, hb_parc( 1 ), hb_parc( 2 ), 0, NULL ) ;
           
            hb_retnl( hr ) ;
    }

    #pragma ENDDUMP

Bitmaps directly from URLs. It is now possible to create bitmaps and
  buttons directly from images on the web.
  Example:
     DEFINE BUTTON OF oWnd:oBar PROMPT "Aries" ;
      FILE "http://weknowyourdreamz.com/images/zodiac-01-aries-ram-icon.png"