Preview of a file

[Silvio.Falconi]

Can I show the preview of a file with Image class ?
sample I have namedoc.doc or noname.pdf can I show the preview on dialog ?

[AntoninoP]

Hello,
It is not an easy task, I quickly made this example of use of IPreviewHandler. But It looks that work only with pdf file

Code: Select all | Expand

#include <fivewin.ch>memvar oPreviewfunction main()   local oDlg   public oPreview   // IMPORTANT!!   CoInitialize()      DEFINE WINDOW oDlg FROM  0,0 TO 650,650 PIXEL TITLE "Test"   oPreview := AddPreview( oDlg:hWnd, {10,10,610,610}, "C:\Users\aperricone\Downloads\grid.pdf")   ACTIVATE WINDOW oDlg CENTEREDreturn nil#pragma BEGINDUMP#define CINTERFACE#define COBJMACROS#include <windows.h>#include <hbapi.h>#include <CommCtrl.h>#include <ShObjIdl.h>#include <Shlwapi.h>#include <ShlGuid.h>LPWSTR     AnsiToWide( LPSTR cAnsi );IPreviewHandler* GetIPreviewHandler(const wchar_t* cExtension){   CLSID cls;   wchar_t clsStr[250];   wchar_t cKey[250];   LONG nLen=250;   IPreviewHandler* pRet=0;   HRESULT hr;      if(cExtension == 0 ) return 0;   wcscpy_s(cKey,250, cExtension);   wcscat_s(cKey,250, L"\\ShellEx\\{8895b1c6-b41f-4c1c-a562-0d564250836f}");   if( ERROR_SUCCESS != RegQueryValueW(HKEY_CLASSES_ROOT, cKey, clsStr, &nLen) )   {      RegQueryValueW(HKEY_CLASSES_ROOT, cExtension, cKey, &nLen);      wcscat_s(cKey,250, L"\\ShellEx\\{8895b1c6-b41f-4c1c-a562-0d564250836f}");      MessageBoxW(0,cKey,cExtension,MB_OK);      if( ERROR_SUCCESS != RegQueryValueW(HKEY_CLASSES_ROOT, cKey, clsStr, &nLen) )         return 0;   }         CLSIDFromString( clsStr,&cls);    #if defined(__cplusplus)   if((hr = CoCreateInstance( cls, 0, CLSCTX_ALL, IID_IPreviewHandler, ( void ** ) &pRet ) )==S_OK)#else   if((hr = CoCreateInstance( &cls, 0, CLSCTX_ALL, &IID_IPreviewHandler, ( void ** ) &pRet ) )==S_OK)#endif   {      return pRet;   }   swprintf(cKey,250,L"%i",hr);   MessageBoxW(0,cKey,cExtension,MB_OK);  return 0;}HB_FUNC( ADDPREVIEW ) // hWnd, {nTop, nLeft, nBottom, nRight}, cFileName{#ifndef _WIN64   HWND hWnd = ( HWND ) hb_parnl( 1 );   #define RET hb_retnl( (long) pPreview );#else      HWND hWnd = ( HWND ) hb_parnll( 1 );   #define RET hb_retnll( (long long) pPreview );#endif      RECT rectPreview;   LPWSTR cFileName = AnsiToWide(( char * ) hb_parc( 3 ));   LPCWSTR cExtension = wcsrchr(cFileName,L'.');   IPreviewHandler* pPreview = GetIPreviewHandler(cExtension);   IInitializeWithFile* pFile;   IInitializeWithStream* pIStream;      if(pPreview==0)   {      MessageBoxW(0,L"no pPreview",cExtension,MB_OK);      RET      return;   }   IPreviewHandler_QueryInterface(pPreview, &IID_IInitializeWithFile,(void**)&pFile );   IPreviewHandler_QueryInterface(pPreview, &IID_IInitializeWithStream,(void**)&pIStream );      if(pFile==0 && pIStream==0)   {      MessageBoxW(0,L"no pfile no pStream",cExtension,MB_OK);      IPreviewHandler_Unload(pPreview);      pPreview = 0;      RET      return;   }   if(pFile!=0)   {      IInitializeWithFile_Initialize(pFile, cFileName, STGM_READ);   } else   { //pIStream!=0      HANDLE hFile = CreateFileW(cFileName,FILE_READ_DATA,FILE_SHARE_READ,NULL,OPEN_EXISTING,0,NULL );     if( INVALID_HANDLE_VALUE != hFile )     {         DWORD dwSize = GetFileSize( hFile, NULL );         HGLOBAL hGlobal= GlobalAlloc(GPTR, dwSize );         BYTE * pByte = (BYTE *)GlobalLock(hGlobal);         if( pByte )         {            LPSTREAM pStream;            ReadFile(hFile,pByte,dwSize,&dwSize,NULL);              GlobalUnlock(hGlobal);             CreateStreamOnHGlobal(hGlobal, TRUE, &pStream);                 IInitializeWithStream_Initialize(pIStream, pStream, STGM_READ);         }         CloseHandle( hFile );     }   }   hb_xfree( cFileName );      rectPreview.top    = hb_parvni(2,1);   rectPreview.left   = hb_parvni(2,2);   rectPreview.bottom = hb_parvni(2,3);   rectPreview.right  = hb_parvni(2,4);        IPreviewHandler_SetWindow( pPreview, hWnd, &rectPreview );   IPreviewHandler_DoPreview( pPreview );   RET}HB_FUNC( UnloadPreview ) //preview{#ifndef _WIN64   IPreviewHandler* pPreview = ( IPreviewHandler* ) hb_parnl( 1 );#else      IPreviewHandler* pPreview = ( IPreviewHandler* ) hb_parnll( 1 );#endif   if( pPreview )   {      IPreviewHandler_Unload(pPreview);   }}#pragma ENDDUMP

Regards,
Antonino

[Silvio.Falconi]

error in compilation

line 31
IPreviewHandler* GetIPreviewHandler(const wchar_t* cExtension)


Progetto: test, Ambiente: xFive_Pelles:
[1]:Harbour.Exe test.prg /m /n0 /gc1 /es2 /iC:\Work\fwh\include /ic:\work\xHarbour\Include /jC:\Work\Errori\PREVIE~1\I18n\Main.hil /iinclude;c:\work\fwh\include;c:\work\xHarbour\include /oObj\test.c
xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'test.prg'...
Generating international list to 'C:\Work\Errori\PREVIE~1\I18n\Main.hil'...
Generating C source output to 'Obj\test.c'...
Done.
Lines 18, Functions/Procedures 1, pCodes 100
[1]:Bcc32.Exe -M -c -O2 -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -IC:\Work\fwh\include -IC:\Work\bcc582\Include;c:\work\xHarbour\Include -nC:\Work\Errori\PREVIE~1\Obj test.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
test.c:
Error E2141 test.prg 31: Declaration syntax error
*** 1 errors in Compile ***

[Silvio.Falconi]

Antonio,
any solution with borland bc582 ?

[mastintin]

Antonio,
any solution with borland bc582 ?

in Bcc693 is ok.
Silvio in bcc582 is not posible
IPreviewHandler declaration is in ShObjodl.h header file in bcc693.
In bcc582 ShObjodl.h header not exist IPreviewHandler declaration .

[AntoninoP]

maybe I am repetitive: https://www.visualstudio.com/products/visual-studio-community-vs

[nageswaragunupudi]

working with bcc7.
I have a slightly different code but we need bcc7 for handling the latest interfaces.

[mastintin]

I spent part of a c ++ code and it works with xls and doc files.
When you have finished public code

[nageswaragunupudi]

I spent part of a c ++ code and it works with xls and doc files.
When you have finished public code

Yes, for me too.

[nageswaragunupudi]

Can I show the preview of a file with Image class ?
sample I have namedoc.doc or noname.pdf can I show the preview on dialog ?

As of now, ximage can display previews of docx, xlsx and pptx if they are saved with thumbnails.

[mastintin]

the code for IPreviewHandler ...
It has a big problem that I can not solve ,suggestions are welcome.
if we load Excel or Word documents, the process is not killed and excel process is in memory .
I've tried several ways but does not work. not dispose excel process.

c++ code ...

Code: Select all | Expand

#include <hbapi.h>#include <windows.h>#include <shobjidl.h>HB_FUNC( CREATEHPREVIEW ) //preview{#ifndef _WIN64  #define RET hb_retnl( (long) pPreview );#else     #define RET hb_retnll( (long long) pPreview );#endif    LPWSTR cFileName = UTF8toUTF16( hb_parc( 1 ) );  LPCWSTR cExtension = wcsrchr(cFileName,L'.');  CLSID cls;   wchar_t clsStr[250];   wchar_t cKey[250];   LONG nLen=250;   IPreviewHandler* pPreview=0;   HRESULT hr;            if(cExtension == 0 ) {      pPreview = 0;      RET      return;   }   wcscpy_s(cKey,250, cExtension);   wcscat_s(cKey,250, L"\\ShellEx\\{8895b1c6-b41f-4c1c-a562-0d564250836f}");   if( ERROR_SUCCESS != RegQueryValueW(HKEY_CLASSES_ROOT, cKey, clsStr, &nLen) )   {      RegQueryValueW(HKEY_CLASSES_ROOT, cExtension, cKey, &nLen);      wcscat_s(cKey,250, L"\\ShellEx\\{8895b1c6-b41f-4c1c-a562-0d564250836f}");      // MessageBoxW(0,cKey,cExtension,MB_OK);      if( ERROR_SUCCESS != RegQueryValueW(HKEY_CLASSES_ROOT, cKey, clsStr, &nLen) )      {       pPreview = 0;       RET       return;      }    }        CLSIDFromString( clsStr,&cls);       if( S_OK == CoCreateInstance(cls, NULL, CLSCTX_INPROC_SERVER |CLSCTX_LOCAL_SERVER, __uuidof(IPreviewHandler),(LPVOID*)&pPreview) )   {      RET       return;         }      MessageBoxW(0,cKey,cExtension,MB_OK);   pPreview = 0;   RETreturn;}HB_FUNC( ADDPREVIEWH ) // hWnd, {nTop, nLeft, nBottom, nRight}, cFileName, pPreview{#ifndef _WIN64   HWND hWnd = ( HWND ) hb_parnl( 1 );    IPreviewHandler* pPreview = ( IPreviewHandler* ) hb_parnl( 4 );  #else      HWND hWnd = ( HWND ) hb_parnll( 1 );      IPreviewHandler* pPreview = ( IPreviewHandler* ) hb_parnll( 4 );#endif      RECT rectPreview;    LPWSTR cFileName = UTF8toUTF16( hb_parc( 3 ) );   LPCWSTR cExtension = wcsrchr(cFileName,L'.');   IInitializeWithFile* pFile;   IInitializeWithStream* pIStream;      if(pPreview==0)   {      MessageBoxW(0,L"no pPreview",cExtension,MB_OK);      RET      return;   }   pPreview->QueryInterface(__uuidof( IInitializeWithFile ), (LPVOID*)&pFile );    pPreview->QueryInterface(__uuidof( IInitializeWithStream ), (LPVOID*)&pIStream );          if(pFile==0 && pIStream==0)   {      MessageBoxW(0,L"no pfile no pStream",cExtension,MB_OK);      pPreview->Unload();      pPreview = 0;      RET      return;   }   if(pFile!=0)   {      pFile->Initialize( cFileName, STGM_READ);   } else   { //pIStream!=0      HANDLE hFile = CreateFileW(cFileName,FILE_READ_DATA,FILE_SHARE_READ,NULL,OPEN_EXISTING,0,NULL );     if( INVALID_HANDLE_VALUE != hFile )     {         DWORD dwSize = GetFileSize( hFile, NULL );         HGLOBAL hGlobal= GlobalAlloc(GPTR, dwSize );         BYTE * pByte = (BYTE *)GlobalLock(hGlobal);         if( pByte )         {            LPSTREAM pStream;            ReadFile(hFile,pByte,dwSize,&dwSize,NULL);              GlobalUnlock(hGlobal);             CreateStreamOnHGlobal(hGlobal, TRUE, &pStream);                 pIStream->Initialize( pStream, STGM_READ);         }         CloseHandle( hFile );     }   }   hb_xfree( cFileName );      rectPreview.top    = hb_parvni(2,1);   rectPreview.left   = hb_parvni(2,2);   rectPreview.bottom = hb_parvni(2,3);   rectPreview.right  = hb_parvni(2,4);        pPreview->SetWindow( hWnd, &rectPreview );   pPreview->DoPreview();    //  pPreview->Unload();   delete pIStream ;    /*#ifndef _WIN64  hb_retnl( (long) pIStream );#else     hb_retnll( (long long) pIStream );#endif     */ }HB_FUNC( UNLOADHPREVIEW ) //preview{#ifndef _WIN64   IPreviewHandler* pPreview = ( IPreviewHandler* ) hb_parnl( 1 );  #else      IPreviewHandler* pPreview = ( IPreviewHandler* ) hb_parnll( 1 );  #endif   pPreview->Unload();        } 

The sample ...

Code: Select all | Expand

#include <fivewin.ch>memvar oPreviewfunction main()   local oDlg   local hStream   local cFile      public oPreview   // IMPORTANT!!   cFile:= cGetfile("coge","*.*")   if !empty( cfile )        CoInitialize()     DEFINE WINDOW oDlg FROM  0,0 TO 650,650 PIXEL TITLE "Test"             oPreview := CreateHPreview( cFile )       AddPreviewH( oDlg:hWnd, {10,10,610,610}, cFile , oPreview )            ACTIVATE WINDOW oDlg CENTERED       endif     return nil 

[AntoninoP]

Warning, you use C++ interface, might not compile in C mode!
you should add (i forgot) after

Code: Select all | Expand

pPreview->Unload();

the

Code: Select all | Expand

pPreview->Release();

Necessary to destroy all COM object.

As we already said in http://forums.fivetechsupport.com/viewtopic.php?f=3&t=31014
you can remove all #ifdef WIN64 using hb_parptr and hb_retptr, using the pointer vartype that is an Harbour extension.

[nageswaragunupudi]

Glad you made it working for bcc582
Is it working for you for pdf (most important) and others like image files, text files, etc?

Excel process. I think we can leave it. If you insist on closing it ...

First open excel with ole and also ascertain if we started it and it was started earlier by the user.
After this program is over, if we started excel, then quit the app with ole otherwise leave it (user was using it before)

[mastintin]

Nages, bcc582 is not supported.
txt, bat file not work properly yet ( I've looked )
AntoninoP , thank you very much for your remarks . I've placed the code in gdiplus.cpp for now

[mastintin]

Bcc582 compiled and pdf work
I had to make some changes in the code to compile in bcc582 .
I added the definitions missing in shobjidl.h header file in an extra h file .... Shextra.h