FiveTech Support Forums

Antonio Linares wrote:
This is a first prototype based on a Karina example:

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

   local oWndPdf, oPdf 

   DEFINE WINDOW oWndPdf TITLE "Generating thumbnail"

   oPdf := TActiveX():New( oWndPdf, "AcroPDF.PDF.1" )
   oWndPdf:oClient := oPdf
   oPdf:Do( "LoadFile", "fwintro.pdf" )

   ACTIVATE WINDOW oWndPdf MAXIMIZED ;
            ON INIT( oWndPdf:SetSize( 200, 300 ), oWndPdf:Center(), PDFActivex(),;
                     SysWait( 1 ), oWndPdf:oClient:SaveToBmp( "thumbnail.bmp" ), oWndPdf:End() ) ;
            VALID ( oPdf:End(), .T. )
...

convert -alpha off -density 150 -resize 96 a.pdf[0] a.jpg

hua wrote:
Thanks for the tip regarding mutool Jimmy.
Since it's just a one liner, I managed to make it run using this code without having to create a batch file

Code (fw): Select all Collapse

waitrun('mutool.exe draw -o "' + cFile + '.png" -r 96 -h 150 "' + cFile + '" 1-1', 0)

AntoninoP wrote:I remember a lot of time ago I did something similar: https://forums.fivetechsupport.com/viewtopic.php?f=3&t=30904 that takes the control from registry.

hua wrote:

Antonio Linares wrote:
This is a first prototype based on a Karina example:

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

   local oWndPdf, oPdf 

   DEFINE WINDOW oWndPdf TITLE "Generating thumbnail"

   oPdf := TActiveX():New( oWndPdf, "AcroPDF.PDF.1" )
   oWndPdf:oClient := oPdf
   oPdf:Do( "LoadFile", "fwintro.pdf" )

   ACTIVATE WINDOW oWndPdf MAXIMIZED ;
            ON INIT( oWndPdf:SetSize( 200, 300 ), oWndPdf:Center(), PDFActivex(),;
                     SysWait( 1 ), oWndPdf:oClient:SaveToBmp( "thumbnail.bmp" ), oWndPdf:End() ) ;
            VALID ( oPdf:End(), .T. )
...

I got a scrollbar when I tried this. I'm also guessing this approach requires Adobe Acrobat pre-installed on user's pc?

HtmlView( FullName( cPdfFile ) )

nageswaragunupudi wrote:
There another very simple way to view PDF fies

Code (fw): Select all Collapse

HtmlView( FullName( cPdfFile ) )

It works the same way. Don't bother about installing anything.

Detlef wrote:Please, where do I find the function FullName()?

FullName( cFileWithRelativePath) --> cFileWithFullPath

Mr. Rao,

I can't find this function in any of my docs and unfortunately I get an Unresolved external '_HB_FUN_FULLNAME'.
What am I missing?

Dear Detlef,

many thanks for sharing it!

Detlef wrote:I found out that it should be TrueName()

hua wrote:Is it possible to display thumbnails showing a preview of pdfs like what we can see at Windows Explorer?
That's the starting point my hope is to be able to mimic exactly Windows Explorer capability of showing preview thumbnails of all type of files.

TIA