FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Multi page TIFF file to jpg conversion? (SOLVED)
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Multi page TIFF file to jpg conversion? (SOLVED)
Posted: Sun Aug 08, 2021 09:23 AM

Hi,

I use GDIPlusConvertImage( cImageIni, cImageEnd ) function to convert but It only converts first page to jpg file. Is there any workaround?

Thanks.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Multi page TIFF file to jpg conversion?
Posted: Mon Aug 09, 2021 09:56 AM
Thanks to Manuel Alvarez as usual :-)

Code (fw): Select all Collapse
FUNCTION frametif()

  LOCAL i
  LOCAL oBmp := GDIBmp():New( )
  LOCAL hbmp := GDIPLOADDIRECTIMAGE("yo.tif" )

  LOCAL nFrames = GDIPLUSIMGGETFRAMECOUNT( hbmp )

   Msginfo( nFrames )

   FOR i = 1 TO nFrames
      obmp:hbmp = GDIPLUSIMGGETFRAME( hbmp, i )
      obmp:save( "tu"+AllTrim(Str(i))+".jpg")
      oBmp:END()
   NEXT

   obmp:hbmp = hbmp
   obmp:END()

RETURN nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Multi page TIFF file to jpg conversion?
Posted: Mon Aug 09, 2021 12:35 PM
Hi Antonio,

Code (fw): Select all Collapse
ICRA_Fnc.obj : error LNK2001: çözümlenmemiş dış sembol _HB_FUN_GDIPLOADDIRECTIMAGE
ICRA_Fnc.obj : error LNK2001: çözümlenmemiş dış sembol _HB_FUN_GDIPLUSIMGGETFRAMECOUNT
ICRA_Fnc.obj : error LNK2001: çözümlenmemiş dış sembol _HB_FUN_GDIPLUSIMGGETFRAME


Where can i found this function?
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: Multi page TIFF file to jpg conversion?
Posted: Mon Aug 09, 2021 02:13 PM
Code (fw): Select all Collapse
HB_FUNC ( GDIPLOADDIRECTIMAGE )
{
   LPWSTR file     = AnsiToWide( ( char * ) hb_parc( 1 ) );
   Bitmap * original =  new Bitmap(file  );
   hb_retptr( original );
}

Code (fw): Select all Collapse
HB_FUNC( GDIPLUSIMGGETFRAMECOUNT )
{
  Bitmap * original = ( Bitmap * ) hb_parptr( 1 );

  UINT nFrame = original->GetFrameDimensionsCount();
  GUID* pDimensionIDs = ( GUID* )malloc( sizeof(GUID)*nFrame );

  original->GetFrameDimensionsList(pDimensionIDs, nFrame);
  UINT frameCount = original->GetFrameCount(pDimensionIDs );
  free( pDimensionIDs );
  hb_retni( frameCount );
}


Code (fw): Select all Collapse
HB_FUNC( GDIPLUSIMGGETFRAME )
{
  Bitmap * gifImage = ( Bitmap * ) hb_parptr( 1 );
  int index = hb_parni(2) ;

  UINT nFrame = gifImage->GetFrameDimensionsCount();

  GUID* pDimensionIDs = (GUID*)malloc(sizeof(GUID)*nFrame);

  gifImage->GetFrameDimensionsList( pDimensionIDs, nFrame);

  gifImage->SelectActiveFrame( pDimensionIDs , index );

  int nWidth  =  gifImage->GetWidth() ;
  int nHeight =  gifImage->GetHeight() ;

  Bitmap * frameImage = new Bitmap( nWidth, nHeight  );
  Graphics * gr = new Graphics( frameImage );

  gr->DrawImage(gifImage, 0, 0, nWidth, nHeight);

  free( pDimensionIDs ) ;
  delete gr ;

  hb_retptr( frameImage );
}
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Multi page TIFF file to jpg conversion?
Posted: Mon Aug 09, 2021 07:32 PM
Thank you. I could not compile this lines.

Code (fw): Select all Collapse
4284    **----------------------------------------------------------------------
4285    #pragma BEGINDUMP
4286    #define _WIN32_WINNT 0x0500
4287    #define WINVER 0x0500
4288    #include "windows.h"
4289    #include "hbapi.h"
4290    HB_FUNC( GETINPUTSTATE )
4291    {
4292        LASTINPUTINFO lpi;
4293        lpi.cbSize = sizeof(LASTINPUTINFO);
4294        if (!GetLastInputInfo(&lpi))
4295        {
4296        hb_retni(0);
4297        }
4298        hb_retni(lpi.dwTime);
4299    }
4300
4301    HB_FUNC ( GDIPLOADDIRECTIMAGE )
4302    {
4303       LPWSTR file     = AnsiToWide( ( char * ) hb_parc( 1 ) );
4304       Bitmap * original =  new Bitmap(file  );
4305       hb_retptr( original );
4306    }
4307
4308    HB_FUNC( GDIPLUSIMGGETFRAMECOUNT )
4309    {
4310      Bitmap * original = ( Bitmap * ) hb_parptr( 1 );
4311
4312      UINT nFrame = original->GetFrameDimensionsCount();
4313      GUID* pDimensionIDs = ( GUID* )malloc( sizeof(GUID)*nFrame );
4314
4315      original->GetFrameDimensionsList(pDimensionIDs, nFrame);
4316      UINT frameCount = original->GetFrameCount(pDimensionIDs );
4317      free( pDimensionIDs );
4318      hb_retni( frameCount );
4319    }
4320
4321    HB_FUNC( GDIPLUSIMGGETFRAME )
4322    {
4323      Bitmap * gifImage = ( Bitmap * ) hb_parptr( 1 );
4324      int index = hb_parni(2) ;
4325
4326      UINT nFrame = gifImage->GetFrameDimensionsCount();
4327
4328      GUID* pDimensionIDs = (GUID*)malloc(sizeof(GUID)*nFrame);
4329
4330      gifImage->GetFrameDimensionsList( pDimensionIDs, nFrame);
4331
4332      gifImage->SelectActiveFrame( pDimensionIDs , index );
4333
4334      int nWidth  =  gifImage->GetWidth() ;
4335      int nHeight =  gifImage->GetHeight() ;
4336
4337      Bitmap * frameImage = new Bitmap( nWidth, nHeight  );
4338      Graphics * gr = new Graphics( frameImage );
4339
4340      gr->DrawImage(gifImage, 0, 0, nWidth, nHeight);
4341
4342      free( pDimensionIDs ) ;
4343      delete gr ;
4344
4345      hb_retptr( frameImage );
4346    }
4347    #pragma ENDDUMP


Code (fw): Select all Collapse
Microsoft (R) C/C++ Optimizing Compiler Version 19.29.30040 for x86
Copyright (C) Microsoft Corporation.  All rights reserved.

TApplication.c
.\TApplication.prg(4303): error C3861: 'AnsiToWide': identifier not found
.\TApplication.prg(4304): error C2065: 'Bitmap': undeclared identifier
.\TApplication.prg(4304): error C2065: 'original': undeclared identifier
.\TApplication.prg(4304): error C2061: syntax error: identifier 'Bitmap'
.\TApplication.prg(4305): error C2065: 'original': undeclared identifier
.\TApplication.prg(4310): error C2065: 'Bitmap': undeclared identifier
.\TApplication.prg(4310): error C2065: 'original': undeclared identifier
.\TApplication.prg(4310): error C2065: 'Bitmap': undeclared identifier
.\TApplication.prg(4310): error C2059: syntax error: ')'
.\TApplication.prg(4312): error C2065: 'original': undeclared identifier
.\TApplication.prg(4315): error C2065: 'original': undeclared identifier
.\TApplication.prg(4316): error C2065: 'original': undeclared identifier
.\TApplication.prg(4323): error C2065: 'Bitmap': undeclared identifier
.\TApplication.prg(4323): error C2065: 'gifImage': undeclared identifier
.\TApplication.prg(4323): error C2065: 'Bitmap': undeclared identifier
.\TApplication.prg(4323): error C2059: syntax error: ')'
.\TApplication.prg(4326): error C2065: 'gifImage': undeclared identifier
.\TApplication.prg(4330): error C2065: 'gifImage': undeclared identifier
.\TApplication.prg(4332): error C2065: 'gifImage': undeclared identifier
.\TApplication.prg(4334): error C2065: 'gifImage': undeclared identifier
.\TApplication.prg(4335): error C2065: 'gifImage': undeclared identifier
.\TApplication.prg(4337): error C2065: 'Bitmap': undeclared identifier
.\TApplication.prg(4337): error C2065: 'frameImage': undeclared identifier
.\TApplication.prg(4337): error C2061: syntax error: identifier 'Bitmap'
.\TApplication.prg(4338): error C2065: 'Graphics': undeclared identifier
.\TApplication.prg(4338): error C2065: 'gr': undeclared identifier
.\TApplication.prg(4338): error C2061: syntax error: identifier 'Graphics'
.\TApplication.prg(4340): error C2065: 'gr': undeclared identifier
.\TApplication.prg(4340): error C2065: 'gifImage': undeclared identifier
.\TApplication.prg(4343): error C2065: 'gr': undeclared identifier
.\TApplication.prg(4343): error C2541: 'delete': cannot delete objects that are
not pointers
.\TApplication.prg(4345): error C2065: 'frameImage': undeclared identifier
NMAKE : fatal error U1077: '"c:\Program Files (x86)\Microsoft Visual Studio\2019
\Community\VC\Tools\MSVC\14.29.30037\bin\HostX86\x86\cl.exe"' : return code '0x2
'
Stop.


Any help. Thanks
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: Multi page TIFF file to jpg conversion?
Posted: Mon Aug 09, 2021 08:26 PM

in fwh distribution ...

c:\fwh\source\winapi\gdiplus.cpp file, copy this file in your directory files code and add this lines , add this file in your makefile and compile ...

Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Multi page TIFF file to jpg conversion?
Posted: Tue Aug 10, 2021 08:53 AM
mastintin wrote:in fwh distribution ...

c:\fwh\source\winapi\gdiplus.cpp file, copy this file in your directory files code and add this lines , add this file in your makefile and compile ...


Thank you very much. I have solved my problem via add my makefile like you said.

Antonio, Can you please add this extensions to gdiplus.cpp.
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Multi page TIFF file to jpg conversion? (SOLVED)
Posted: Tue Aug 10, 2021 10:45 AM

Hakan,

Please check your email

We have renamed function FrameTiff( cTiffFileName ) and also GDIPLUSLOADDIRECTIMAGE()

regards, saludos

Antonio Linares
www.fivetechsoft.com
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Multi page TIFF file to jpg conversion? (SOLVED)
Posted: Tue Aug 10, 2021 07:42 PM
Hi Antonio,

There is an error with new libs.
Code (fw): Select all Collapse
FiveH32.lib(TGDIPLUS.obj) : error LNK2001: unresolved external symbol _HB_FUN_CFILENAMENOEXT
IcraW.exe : fatal error LNK1120: 1 unresolved externals


I think it is misspelling (cFileNoExt)

Workaround
Code (fw): Select all Collapse
FUNCTION cFileNameNoExt(cText)
RETURN cFileNoExt(cText)
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Multi page TIFF file to jpg conversion? (SOLVED)
Posted: Tue Aug 10, 2021 10:30 PM

Hakan,

many thanks for your feedback

Is it working as expected ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Multi page TIFF file to jpg conversion? (SOLVED)
Posted: Wed Aug 11, 2021 06:46 AM
Antonio Linares wrote:Hakan,

many thanks for your feedback

Is it working as expected ?


Hi Antonio,

I made some minor changes your function like that.
Code (fw): Select all Collapse
FUNCTION TIFFtoJPG(cFileTIF, cFileJPG)

  LOCAL i, aResult := {}, clocal 
  LOCAL oBmp := GDIBmp():New( )
  LOCAL hbmp := GDIPLUSLOADDIRECTIMAGE(cFileTIF)
  LOCAL nFrames := GDIPLUSIMGGETFRAMECOUNT( hbmp )

//  Msginfo( nFrames )

    FOR i = 1 TO nFrames
      obmp:hbmp = GDIPLUSIMGGETFRAME( hbmp, i )
      
      clocal := cFilePath(cFileJPG)+cFileNoExt(cFileJPG)+"_"+AllTrim(Str(i))+".jpg"
      obmp:save( clocal )
      oBmp:END()
      AAdd(aResult, {cFileTIF, clocal})
      
    NEXT

    obmp:hbmp = hbmp
    obmp:END()

RETURN aResult
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Multi page TIFF file to jpg conversion? (SOLVED)
Posted: Fri Aug 13, 2021 12:24 PM

thank you

already implemented your version in next FWH build

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions