Re: Borland C++ 5.82
Enviado: 19 Set 2009 18:49
Pessoal,
Acabei de fazer testes com a 5.82 e encontrei um problema que não acontece com a 5.51:
Estou direcionando a impressão para uma impressora pdf (primopdf)
Gerei o xHarbour com ambas versões do bcc sem erro.
Gerando o xHarbour com a 5.51 funciona sem problemas este trecho:( oWin32Bmp:draw(oWin32prn , { 200, 400, 2000, 1500 } )).
Gerando o xHarbour com a 5.82 dá seguinte erro:
AppName: grafico.exe AppVer: 0.0.0.0 ModName: gdi32.dll
ModVer: 5.1.2600.5698 Offset: 0003bab0
O problema tá neste código:
Será que tá faltando alguma coisa na 5.82?
Acabei de fazer testes com a 5.82 e encontrei um problema que não acontece com a 5.51:
Estou direcionando a impressão para uma impressora pdf (primopdf)
Gerei o xHarbour com ambas versões do bcc sem erro.
Gerando o xHarbour com a 5.51 funciona sem problemas este trecho:( oWin32Bmp:draw(oWin32prn , { 200, 400, 2000, 1500 } )).
Gerando o xHarbour com a 5.82 dá seguinte erro:
AppName: grafico.exe AppVer: 0.0.0.0 ModName: gdi32.dll
ModVer: 5.1.2600.5698 Offset: 0003bab0
O problema tá neste código:
Código: Selecionar todos
PROCEDURE Main
LOCAL cFileName, oWin32Bmp, oWin32Prn
oWin32Prn := Win32Prn():New() // default printer object
IF .NOT. oWin32Prn:create() // create device context
Alert( "Unable to create device context for printer" )
QUIT
ENDIF
IF !oWin32Prn:startDoc( "GRAFICO" )
Alert("StartDoc() failed")
ENDIF
cFileName := "contactos.bmp"
oWin32Bmp := Win32Bmp():new() // load bitmap file into memory
oWin32Bmp:Create()
IF .NOT. oWin32Bmp:loadFile( cFileName )
Alert( "Unable to load bitmap file: " + cFileName )
QUIT
ENDIF
// print bitmap image
oWin32Bmp:draw(oWin32prn , { 200, 400, 2000, 1500 } ) // O problema aconte aqui.
// release GDI system resources of printer
oWin32Prn:EndDoc()
oWin32Prn:destroy()
RETURN