PC Toledo

... de ambiente definida com o IP do servidor, mas pelo visto vai ter que ficar o bitmap também, se quiser que saia logotipo nos relatórios.
Isso tudo porque Win32BMP() não está lendo o bitmap que está na mesma pasta dos DBFs lá no servidor, oBmp:loadFile( LOWER(cARQ_BMP) ) não lê o bitmap que está lá.

... para pixels.
PixelX=EP_ColToX(col)
PixelY=EP_RowToY(lin)-oJob:LineHeight+1 // Posiciona a imagem no topo da linha de inicio e nao na base

oImg=win32bmp():new()
oImg:LoadFile(nomearq)
oImg:draw( oJob , { PixelX, PixelY, largura , altura } )

return



func EP_LinhaHorizontal // ( L , C1 , C2 ...

O problema é que estou em modo console.
Dei uma pesquisada aqui antes de testar e ví que dá problema em modo console...
Entretanto, nessa direção que você me apontou conseguí achar essa alternativa aqui que vou testar depois. Pareceu interessante.
Vou compartilhar logo aqui pra ficar mais fácil de ...

Boa tarde!

usando C:\MiniGUI\SAMPLES\Advanced\BosTaurus\Demo10.prg

Inseri abaixo da linha 250 a seguinte linha:

msgbox("Largura = "+STR(BT_BitmapWidth (hBitmap))+ " Altura = "+str(BT_BitmapHeight (hBitmap)))


e me retornou

Largura = 922 Altura = 692

Que são as medidas da figura SAMI.JPG da ...

Prezados,

O win32bmp() imprime a imagem com um array de 4 elementos: posição X, Y, largura, altura.
X e Y é onde queremos que a imagem apareça, ok.

*** DEFINE POSIÇÃO DO OBJETO NO PAPEL X,Y,LARGURA,ALTURA
oBmp:Rect := aRECT

A pergunta é: tem alguma função que leia a largura e altura de uma ...

Paiva, na falta de outras sugestõess, experimente manipular os valores da função: oWin32Bmp:draw( oWin32Prn, { 200, 400, 2000, 1500 } )
PROCEDURE Main
LOCAL cFileName, oWin32Bmp, oWin32Prn

oWin32Prn := Win32Prn():new() // default printer object
IF .NOT. oWin32Prn:create() // create device context ...

O único problema é se o Harbour não tiver um Win32prn() nem um Win32Bmp() similares ao do xHarbour...

Se não tiver a gente inventa.... rs.... mas tem.

Mas pode nem precisar disso, pode ser genérico:

teste1.png

https://github.com/JoseQuintas/JoseQuintas/blob/master/source/pgeralrecibo.prg

Ou ...

... os gets pro usuário digitar o que for preciso, monto o job no Win32Prn(), escolho fontes, cores e o tudo o que for preciso, incluo imagens com o Win32Bmp(), imprimo contratos e o que for em qualquer impressora instalada e fim de papo. Simples, sem depender do Word nem de outros.

Tenho coisa rodando ...

... hb_HGet()
HGetKeys() ==> hb_HKeys()
HDelAt() ==> hb_HDelAt()
HGetPos() ==> hb_HPos()
HHasKey() ==> hb_HHasKey()
Hash() ==> hb_Hash()
Win32Bmp() ==> win_BMP()
TOleAuto() ==> win_oleAuto()
CreateObject() ==> win_oleCreateObject()
GetActiveObject() ==> win_oleGetActiveObject()

FALTAM ...

... do cliente ?

alguém usa algum produto para converter ?

ob

Paiva


como uso:

xhb + wvw

Pode ser fwh ou hwgui (linkedito Junto)


xlogo_bmp = arquivo->foto

oBMP:= Win32BMP():new()
oBmp:loadFile( xlogo_bmp )
oBmp:Draw( oPrn, { xpfig_ci, xpfig_li, xpfig_cf, xpfig_lf } )
oBMP:Destroy()

... contrib/xhb/thtm.prg:CREATE CLASS THtml
./contrib/xhb/xhwinprn.prg:CREATE CLASS Win32Prn FROM win_Prn
./contrib/xhb/xhwinprn.prg:CREATE CLASS Win32Bmp FROM win_BMP
./contrib/xhb/hblognet.prg:CREATE CLASS HB_LogEmail FROM HB_LogChannel
./contrib/xhb/hblognet.prg:CREATE CLASS HB_LogInetPort FROM HB ...

... de logomarca *
*-------------------------------------------------------------------*
#include "WinGdi.ch"

FUNCTION MAIN()

LOCAL cFileName, oWin32Bmp, oWin32Prn

* ENVIA CABECALHO E RECEBE PARAMETROS *
*-------------------------------------*
CLEAR
WPAGINA := 0
WW_L := 05
WNOME_REL := "RELATÓRIO ...

... da mensagem anterior faltou o código para imprimir a imagem!

Segue o exemplo que está no manual do Harbour:

PROCEDURE Main
LOCAL cFileName, oWin32Bmp, oWin32Prn

oWin32Prn := Win32Prn():new() // default printer object
IF .NOT. oWin32Prn:create() // create device context
Alert( "Unable to ...

... endif

IF File("logo.bmp") // se tiver o arquivo logo.bmp dentro da mesma pasta ele vai imprimir o logo primeiro
#ifdef __XHARBOUR__
oBMP:= Win32BMP():new()
#else
oBMP:= Win_BMP():new()
#endif
oBmp:loadFile( "logo.bmp" )
oBmp:Draw( oPrinter, { 15,15,60,60 } )
aTamlog := 9
else
aTamlog ...

... Verdana 20 Vermelho, etc.
- a impressão é em pixels, mas há comandos pra fazer a ponte com o linha/coluna do Clipper
- imprime imagens – usando a Win32bmp()
- imprime fora de ordem: vc pode imprimir na linha 20 e depois voltar pra linha 2
- usa a impressora padrão, selecionada com GetDefaultPrinter ...