IMprimir Jpg em Fw/Clipper?

[joaoalpande]

Bom dia,

Uso a Freeimage para mostrar jpg,mas nao estou a consiguir imprimir,ja tente com a SayImage() e a que uso SayBitmap(),alguem pode me ajudar??

Um abraço de Portugal
Joao Alpande

Msn Messenger: wavetronic@net.novis.pt

[rochinha]

Irmão Lusitano,

Tente o seguinte:

No comando de teu objeto IMAGE acrescente:

...ON LEFT CLICK PrintImage( oImage )

Coloque em oImage passe como parametro o nome da sua variavel de objeto.

Acrescente o seguinte código:

static FUNCTION PrintImage( oImage )
local oPrn
PRINT oPrn NAME "Imprimindo imagem"PREVIEW
PAGE
oPrn:SayImage( 0, 0, oImage )
ENDPAGE
ENDPRINT
return NIL

Boa sorte

"...Felipão na cabeça..."

@braços :?)

[joaoalpande]

Bom dia obrigado pela resposta,eu estou a ler directamente do DBF o caminho da foto e queria imprimir,tenho de criar mesmo um objecto IMAGE?

Um abraço
Joao Alpande
Msn Messenger: wavetronic@net.novis.pt

[rochinha]

Amiguinho

Veja estes dois exemplos:

Código: Selecionar todos

// Printing images
#include "FiveWin.ch"

//----------------------------------------------------------------------------//
function Main()
   local oPrn
   PRINT oPrn PREVIEW
      PAGE
         oPrn:SayBitmap( 1, 1, "..\bitmaps\fivewin.bmp" )
      ENDPAGE
   ENDPRINT
return nil

Código: Selecionar todos

// Sample showing how to manage the printer object
#include "FiveWin.ch"

static oWnd
//----------------------------------------------------------------------------//
function Main()
   local oPrn, oFont
   local nRowStep, nColStep
   local nRow := 0, nCol := 0, n, m
   // PrnSetSize( 2100, 1200 )     To adjust a different printer paper size!
   PRINT oPrn NAME "Testing the printer object from FiveWin" PREVIEW
      if Empty( oPrn:hDC )
         return nil          // Printer was not installed or ready
      endif
      DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -20 OF oPrn
      nRowStep = oPrn:nVertRes() / 20   // We want 20 rows
      nColStep = oPrn:nHorzRes() / 15   // We want 15 cols
      PAGE
         oPrn:SayBitmap( 1, 1, "..\bitmaps\fivewin.bmp" )
         for n = 1 to 20  // rows
             nCol = 0
             oPrn:Say( nRow, nCol, Str( n, 2 ) )
             nCol += nColStep
             for m = 1 to 15
                oPrn:Say( nRow, nCol, "+" )
                nCol += nColStep
             next
             nRow += nRowStep
         next
         oPrn:Line( 0, 0, nRow, nCol )
      ENDPAGE
   ENDPRINT
   oFont:End()      // Destroy the font object
   MsgInfo( "Work done! Look at your printer!" )
return nil

Poste links com imagens de seu aplicativos para que outros colegas possam apreciar e se interessar também.

@braços :?)

[joaoalpande]

Desculpa, ou eu nao entendi ou expliquei-me mal, eu uso SayBitmap() e imprimo BMP sem problemas, so nao consigo imprimir JPG,ja testei tambem com a SayImage,utilizo a Freeimage e para mostra JPG fica bem.

Os Exemplos que mostrou utiliza o SayBitmap() mas nao consegue imprimir JPG nao se esqueça que e FW/CLIPPER porque penso que no FWH/xharbour funciona bem.

Um Abraço

Joao Alpande
Msn Messenger: wavetronic@net.novis.pt

[rochinha]

Amiguinho

Verifique então nos exemplos que vem com a FreeImage se existe alguma função de impressão direta de .JPG.

A FreeImage é uma melhoria sobre a classe tBitmap do Fivewin.

Voce poderá analisar também a NViewLib e também o anexo no email que te enviei.

Qual a versão de teu Fivewin?
@braços :?)

[joaoalpande]

Nos exemplos que vem com a freeimage tem sempre um Objecto Image,nao vi nenhum exemplo directo,uso a versao 2.3c com algumas classes alteradas.

Um abraço

Joao Alpande
Msn Messenger : wavetronic@net.novis.pt