FiveTech Software tech support forums

Darrell, Maybe this from my notes will help. James --------------------------- oPrinter:setSize( nWidth, nHeight ) Where nWidth and nHeight are in tenths of a millimeter. 25.4 millimeters per inch So to set the size in inches: oPrinter:setSize( 254 * nWidth, 254 ...

... 9656) 1. Before PRINT nWid := ROUND( 8.5 * 254, 0) // 8.5 inches wide nLen := ROUND( 12 * 254, 0) // 12 inches wide PrnSetSize( nWid, nLen ) PRINT oPrinter FROM USER PRINT NAME "AWB" PREVIEW MODAL . . ENDPRINT nWid := ROUND( 8.5 * 254, 0) nLen := ROUND( 11 * 254, 0) PrnSetSize(nWid, nLen ...

... (if available), to achieve the same * Enhancement: Class TPrinter Method Setup() returns a logical value so you can use it this way: if ! oPrinter:Setup() return nil endif http://forums.fivetechsupport.com/viewtopic.php?p=135916#p135916

Pedro,

Cuando defines un Font especificas su impresora previamente creada ?

DEFINE FONT oFont NAME ... SIZE ... OF oPrinter

... Tiempo Ejemplo Ejemplo poner lo siguiente: C C 1 A O 0 ARTICULO: XXXXXXX J N Descripcion :XXXXXXXXXXXXXX A P Z A que lo hago de forma normal: oPrinter:CmSay( 010.300, 001, "ARTICULO:"+ARITUCULO->Clave_Art, oFont) En lo Vertical no tengo problema. pero Quiero imprimir una leyenda ...

Normally happens when oPrinter:Startpage() is not paired correctly with oPrinter:EndPage().

Antonio,

Me alegro de que el asunto quede resuelto

Antonio, Encontrado el problema; resulta que yo utilizo una RPreview modificada por algun compañero del foro, siento no recordar el nombre; es una RPreview que lleva una TListView con las miniaturas de las paginas. Pues bien, he puesto la preview original de fwh y YA NO HAY CONSUMO DE MEMORIA !! Muc...

Antonio, RESPUESTA 1: Pues siento decirte que creo que NO es la StretchDIBits() porque si modifico lo que me has mandado y pongo: ...//        if( ( wWidth == 0 ) || ( wHeight == 0 ) )        if( 1 )           SetDIBitsToDevice( hDC, wCol, wRow, lpBmp->biWidth,                        ...

Antonio,

Si no haces el PREVIEW (quitando esa clausula), se produce la misma pérdida ?

gracias por tus pruebas,

Buscando en google veo que otros programadores (en otros lenguajes) han tenido problemas tambien con esta función:

http://stackoverflow.com/questions/8036855/how-to-handle-gdi-resource-leak

Quizá eso nos de una pista de por donde buscar...

Antonio, Bueno, lo importante es que ya sabemos de donde viene el problema: función StretchDIBits(). Ahora pensemos una estrategia... Miremos por ejemplo el código que use Wine para la función StretchDIBits(): http://cvs.winehq.org/cvsweb/wine/dlls/gdi/Attic/dib.c?rev=1.22&co...

A. de Antonio :D He puesto el codigo que me has enviado y he probado y todo sigue igual (sigue consumiendo memoria). Luego he probado a comentar la StretchDIBits( ) y entonces he observado que NO pinta nada pero NO consume memoria.     //       StretchDIBits( hDC, wCol, wRow...

A. (Antonio, Adolfo, Alfonso... ?) :-) Prueba a implementar la función DibDraw() en tu aplicación y asi puedes hacerle modificaciones. Añade este código al final de tu PRG principal: #pragma BEGINDUMP#include <windows.h>#include <hbapi.h>static LPSTR DibBits( LPBITMAPINFOHEADER lpBmp...

Antonio, La memoria, además de con GlobalMemoryStatusEx(), lo compruebo con una utilidad externa. Ambos devuelven siempre el mismo %, con lo que imagino que esta bien. En todo caso, cuando la carga de memoria es muy alta..., no se el %, entonces empieza a no pintar los bitmaps, como si no tuviese me...