FiveTech Support Forums

#include "fivewin.ch"

Function SalvaImage(oImg)
   Local nType
   local oBmp  := GdiBmp():New()
      local cFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                                "JPEG  (*.jpg)| *.jpg|" +          ;
                                "GIF   (*.gif)| *.gif|"  +         ;
                                "TIFF (*.tif)| *.tif|" +           ;
                                "PNG   (*.png)| *.png"            ;
                                ,"Salva con il nome",  hb_CurDrive() , .t. )


  // oBmp:hBmp   := GDIP_FROMHBITMAP( oImg:GetHBitmap(), oImg:aPalBmp[ 1 ], .T. )
   oBmp:hBmp   := oImg:aPalBmp[ 1 ]

   IF .NOT. EMPTY( cFile )
             nType := NGETFILEFILTER()

            DO CASE
                  CASE nType == 1
                   cExt := "bmp"
                  CASE nType == 2
                   cExt := "jpg"
                  CASE nType == 3
                   cExt := "gif"
                  CASE nType == 4
                   cExt := "tif"
                  CASE nType == 5
                   cExt := "png"
                ENDCASE


             cFile := cFilePath( cFile ) + cFileNoExt( cFile ) + "." + cExt

               IF oImagePreview:nZoom == 1 .and. oImagePreview:nRotate == 0
                 oImagePreview:SaveImage( cFile )
               ELSE
                  SaveImgMod( oImagePreview,  cFile,,oBmp )
              ENDIF

             MsgInfo( "saved as: "+ cFile)
     ENDIF

     RETURN NIL

//------------------------------------------------------------------//

 Function SaveImgMod( oImg, cFile, lDimImg,oBmp )

   local lRet       := .F.
  // local oBmp
   local oRect
   DEFAULT lDimImg  := .F.
   if !Empty( cFile )
      oRect      := if( lDimImg, oImg:oRect, oImg:GetCliRect() )
     // oBmp       := GdiBmp():New()
      oBmp:hBmp  := GDIPLUSCAPTURERECTWND( oImg:hWnd, ;
                       oRect:nTop  + if( oImg:lBorder, 1, 0 ), ;
                       oRect:nLeft + if( oImg:lBorder, 1, 0 ), ;
                       oRect:nRight - oRect:nLeft - 1 - if( oImg:lBorder, 1, 0 ), ;
                       oRect:nBottom - oRect:nTop - 1 - if( oImg:lBorder, 1, 0 ) )
      lRet  := oBmp:Save( cFile )
      oBmp:End()
   else
      MsgInfo( "Name File Empty", "Attention" )
   endif

Return lRet

//------------------------------------------------------------------/

Progetto: test, Ambiente: bcc7Harbor:
[1]:Harbour.Exe test2.prg  /m /n0 /gc1 /es2 /a /iC:\Work\fwh\include /iC:\work\HARBOUR\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;C:\work\HARBOUR\include /oObj\test2.c
Harbour 3.2.0dev (r1703231115)
Copyright (c) 1999-2016, http://harbour-project.org/
Compiling 'test2.prg'...
test2.prg(5) Error E0030  Syntax error "syntax error at ' '"
test2.prg(11) Error E0030  Syntax error "syntax error at ' '"
test2.prg(14) Error E0030  Syntax error "syntax error at ' '"
test2.prg(15) Error E0030  Syntax error "syntax error at ' '"
test2.prg(17) Error E0030  Syntax error "syntax error at ' '"
test2.prg(18) Error E0030  Syntax error "syntax error at ' '"
test2.prg(20) Error E0030  Syntax error "syntax error at ' '"
test2.prg(21) Error E0030  Syntax error "syntax error at ' '"
test2.prg(22) Error E0030  Syntax error "syntax error at ' '"
test2.prg(23) Error E0030  Syntax error "syntax error at ' '"
test2.prg(24) Error E0030  Syntax error "syntax error at ' '"
test2.prg(25) Error E0030  Syntax error "syntax error at ' '"
test2.prg(26) Error E0030  Syntax error "syntax error at ' '"
test2.prg(27) Error E0030  Syntax error "syntax error at ' '"
test2.prg(28) Error E0030  Syntax error "syntax error at ' '"
test2.prg(29) Error E0030  Syntax error "syntax error at ' '"
test2.prg(30) Error E0030  Syntax error "syntax error at ' '"
test2.prg(31) Error E0030  Syntax error "syntax error at ' '"
test2.prg(43) Error E0010  ENDIF does not match IF
test2.prg(51) Error E0030  Syntax error "syntax error at ' '"
test2.prg(52) Error E0030  Syntax error "syntax error at ' '"
test2.prg(53) Error E0030  Syntax error "syntax error at ' '"
test2.prg(54) Error E0030  Syntax error "syntax error at ' '"
test2.prg(55) Error E0030  Syntax error "syntax error at ' '"
test2.prg(56) Error E0030  Syntax error "syntax error at ' '"
test2.prg(57) Error E0030  Syntax error "syntax error at ' '"
test2.prg(62) Error E0030  Syntax error "syntax error at ' '"
test2.prg(63) Error E0030  Syntax error "syntax error at ' '"
test2.prg(64) Error E0030  Syntax error "syntax error at ' '"
test2.prg(65) Error E0030  Syntax error "syntax error at ' '"
test2.prg(66) Error E0030  Syntax error "syntax error at ' '"
test2.prg(67) Error E0030  Syntax error "syntax error at ' '"
32 errors

No code generated.