Erro na WIN32PRN() COM WIN32BMP()
Enviado: 18 Abr 2008 11:31
Pessoal,
Estou tentando fazer uma impressão de imagem (bitmap) e quando eu executo vem uma mensagem de erro que não estou conseguindo identificar:
A instrução no "0x77f6becc" fez referência 'a memória no "0x0000086c". A memória não pôde ser "read"
O código que estou testando:
Estou usando o build 1.1.0
Estou tentando fazer uma impressão de imagem (bitmap) e quando eu executo vem uma mensagem de erro que não estou conseguindo identificar:
A instrução no "0x77f6becc" fez referência 'a memória no "0x0000086c". A memória não pôde ser "read"
O código que estou testando:
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( "teste" )
RETURN .F.
ENDIF
cFileName := "edit_print.bmp"
oWin32Bmp := Win32Bmp():new() // load bitmap file into memory
IF .NOT. oWin32Bmp:loadFile( cFileName )
Alert( "Unable to load bitmap file: " + cFileName )
QUIT
ENDIF
// print bitmap image
oWin32Bmp:draw( oWin32Prn, { 200, 400, 2000, 1500 } )
oWin32Bmp:destroy()
// release GDI system resources of printer
oWin32Prn:EndDoc()
oWin32Prn:destroy()
RETURN