FiveTech Software tech support forums

... +"Rg-Nr_" + ALLTRIM(str(oRechnung:nRgNR()))+"_"+ ALLTRIM(str(nFor))+".emf", .F.)        DeleteEnhMetafile(hMeta)EndPage(oDevice:hDC) The code snippet you provided appears to be written in a language similar to Harbour or xBase, used for ...

... de proceso y no hay forma de borrarlos hasta que cierro la aplicación y la arranco nuevamente. He probado de todo para liberarlos, oPrn:end(), DeleteEnhMetafile(CloseEnhMetafile(hHand)), ferase(cFile) etc,ctc,etc. Con aplicaciones viejas de 16bits. el preview termina y los metafiles (*.wmf) ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... ); hEMF = SetWinMetaFileBits( nSize, lpvData, 0, NULL ); HeapFree( GetProcessHeap(), 0, lpvData ); hEMF2 = CopyEnhMetaFile( hEMF, hb_parc( 2 ) ); DeleteEnhMetaFile( hEMF ); DeleteEnhMetaFile( hEMF2 ); DeleteMetaFile( hWMF ); } *

Tim, Besides the above checking, we have only changed this in source/function/prv2pdf.prg: // CloseEnhMetafile( hEMF ) // commented out 2014-02-13 DeleteEnhMetafile( hEMF ) // inserted 2014-02-13 and this code in source/classes/printer.prg:        elseif "pdf" $ Lower( ...

... the method was returning NIL when bPastEof is defined and called. Fixed now. * Improement: prv2pdf.prg: Call to CloseEnhMetafile() is replaced by DeleteEnhMetaFile() to properly release the Emf handle. See: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=27978&p=156635&hilit=deleteenhmetafile#p156635 ...

OK, but usíng CloseEnhMetaFile() frees not the emf-files to let them erasing! We must use DeleteEnhMetafile( hEMF ) in the function Emf2Jpeg(...)! Another negative issue from this function is the dependency from the resolution of the Printer-Driver. It should in all ...

Antonio, I found a solution: 1. In Emf2Jpeg() instead of CloseEnhMetafile() using DeleteEnhMetafile()! In this function should also inserted a sysrefresh(). Then i can produce hundreds of pages without Problems! 2. In FWSavePreviwToPDF() before returning oDevice:end() ...

... more time to do others improves :-) saludos Marcelo Marcelo, it seems not so! If I change in function create_minipage() closeenhmetafile(hEMF) to deleteenhmetafile(hEmf) the files are deleted at end of preview. (or getenhmetafile(cFile) not releases the handle from cFile??) Have you a new version?

Marcelo,
it seems not so! If I change in function create_minipage() closeenhmetafile(hEMF) to deleteenhmetafile(hEmf) the files are deleted at end of preview. (or getenhmetafile(cFile) not releases the handle from cFile??)
Have you a new version?

... aplicación de FW20 a FWH712 o FWH811. El caso es que, cuando emito los reportes, al finalizar estoy recibiendo un mensaje proveniente de la rutina deleteenhmetafile . He rastreado el error hasta el archivo metafi32.C y no me ha sido posible corregirlo. Agradecería muchísimo si pueden darme una ...

Armando,

En la clase Rpreview, busca el metodo ::printprv(). Alla es donde se borra los metafiles ->DeleteEnhMetafile( hMeta ). Puedes tratarlo como quiera, p.e. hacer una copia a una carpeta, enviarlos, ... y borrarlos luego claro

Ciao.
C.

... ) EndPage( oDevice:hDC ) #else StartPage( oDevice:hDC ) hMeta := GetEnhMetaFile( aFiles[ nFor ] ) PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. ) DeleteEnhMetafile( hMeta ) EndPage( oDevice:hDC ) #endif next case nOption == 2 // Current page StartPage( oDevice:hDC ) hMeta := ::oMeta1:hMeta #ifdef ...

... EndPage(oDevice:hDC) #else StartPage(oDevice:hDC) hMeta := GetEnhMetaFile(aFiles[nFor]) PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. ) DeleteEnhMetafile(hMeta) EndPage(oDevice:hDC) #endif NEXT case nOption == 2 // Current page StartPage(oDevice:hDC) hMeta := oMeta1:hMeta #ifdef __CLIPPER__ ...

... EndPage(oDevice:hDC) #else StartPage(oDevice:hDC) hMeta := GetEnhMetaFile(aFiles[nFor]) PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. ) DeleteEnhMetafile(hMeta) EndPage(oDevice:hDC) #endif NEXT case nOption == 2 // Current page StartPage(oDevice:hDC) hMeta := oMeta1:hMeta #ifdef __CLIPPER__ ...