Hola:
Al fin conseguir pasar uno de mis programas de Fivewin 16 bits a Harbour en 32 y de momento todo perfecto salvo el enlace con EasyPreview 161.
Todos los listados los genero con EasyReport y los quiero previsualizar con EasyPreview. Para ello, al igual que en 16bits enlazo el fichero EASYPREV.PRG, compilo y en teoría todo debería ir bien, pero obtengo el siguiente error:
Application
===========
Path and name: C:\WINAGEN\EPREVIEW.exe (32 bits)
Size: 1,858,048 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 12/10/06, 13:33:37
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 1
Stack Calls
===========
Called from: epclass.prg => EPREVIEW:NEW(253)
Called from: epclass.prg => EASYPREVIEW(68)
Called from: epreview.prg => MAIN(68)
System
======
CPU type: Intel(R) Pentium(R) 4 CPU 3.00GHz 3000 Mhz
Hardware memory: 1024 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Compiler version: xHarbour build 0.99.60 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2
Windows total applications running: 0
Variables in use
================
Procedure Type Value
==========================
EPREVIEW:NEW
Param 1: O Class: TPRINTER
Param 2: C "Epson Stylus COLOR II ESC/P 2"
Param 3: C "C:\DOCUME~1\RPATON\CONFIG~1\Temp\EPREVIEW.TMP"
Local 1: O Class: EPREVIEW
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: C ""
Local 10: U
Local 11: U
Local 12: U
Local 13: A Len: 0
Local 14: U
Local 15: O Class: EPREVIEW
Local 16: U
Local 17: U
Local 18: U
Local 19: U
Local 20: A Len: 0
Local 21: N 1
Local 22: U
Local 23: A Len: 2
EASYPREVIEW
Param 1: O Class: TPRINTER
Param 2: C "Epson Stylus COLOR II ESC/P 2"
Param 3: C "C:\DOCUME~1\RPATON\CONFIG~1\Temp\EPREVIEW.TMP"
Local 1: U
MAIN
Param 1: C "C:\DOCUME~1\RPATON\CONFIG~1\Temp\EPREVIEW.TMP"
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: U
Local 11: U
Local 12: U
Local 13: U
Local 14: U
Local 15: A Len: 0
Local 16: C "C:\DOCUME~1\RPATON\CONFIG~1\Temp"
Local 17: C "ALBARANES"
Local 18: U
Local 19: C "Epson Stylus COLOR II ESC/P 2"
Local 20: O Class: TPRINTER
Local 21: N 1
Local 22: C "C:\DOCUME~1\RPATON\CONFIG~1\Temp\EPREVIEW.TMP"
Local 23: A Len: 0[/color]
Saludos.
Ricardo Patón