Ayuda para Leer JPG desde una DBF *SOLUCIONADO*

[remtec]

Hola Amigos.

Tengo almacenado un archivo JPG en un campo memo, según ejemplo de Mr. Rao, pero no encuentro como leerla, para imprimirla en un documento usando PRINT?

cFirma:="C:\Desa\Sistema\Jpg\Firmas\Firma_Arel_Final.JPG"

Field->Fir_Med:= MEMOREAD(cFirma) // Grabo la Firma en el campo MEMO de DBF

Necesito poder leerla, para imprimirla en Dcto.

Saludos
Antonio

[acuellar]

Estimado Antonio

Intenta con SETBMP

Code: Select all  Expand view  RUN

oImage:SetBmp(oDBF->IMAGEN)
 

[nageswaragunupudi]

Code: Select all  Expand view  RUN

  cImage := FIELD->Fir_med
   @ 2.0, 2.0 PRINT TO oPrn IMAGE cImage SIZE 5.0, 4.0 INCHES
 

[remtec]

Estimado Antonio

Intenta con SETBMP

Code: Select all  Expand view  RUN

oImage:SetBmp(oDBF->IMAGEN)
 

Hola Adhemar C.

Muchas gracias por tu ayuda.

Intente con tu sugerencia, pero me arrojo un error en la ejecución.

Error occurred at: 05/07/2022, 11:22:31
Error description: Error BASE/1004 Message not found: TPRINTER:SETBMP
Args:
[ 1] = O TPRINTER

Pero justo me llego la sugerencia de Mr. Rao, por lo que no insistí con tu indicación.

Saludos y muchas gracias.

Antonio

[remtec]

Code: Select all  Expand view  RUN

  cImage := FIELD->Fir_med
   @ 2.0, 2.0 PRINT TO oPrn IMAGE cImage SIZE 5.0, 4.0 INCHES
 

Buen dia Mr. Rao

Muchas gracias por su ayuda.

Me funciono perfecto.

Muchos saludos

Antonio

[nageswaragunupudi]

Code: Select all  Expand view  RUN

  cImage := FIELD->Fir_med
   [code]@ 2.0, 2.0 PRINT TO oPrn IMAGE cImage SIZE 5.0, 4.0 INCHES[/code]
 

Buen dia Mr. Rao

Muchas gracias por su ayuda.

Me funciono perfecto.

Muchas saludos

Antonio

From the next version, it is not necessay to use cImage := FIELD->FIR_MED

We can directly use field name in the command

Code: Select all  Expand view  RUN

@ 2.0, 2.0 PRINT TO oPrn IMAGE FIELD->FIR_MED SIZE 5.0, 4.0 INCHES

[nageswaragunupudi]

Code: Select all  Expand view  RUN

  cImage := FIELD->Fir_med
   [code]@ 2.0, 2.0 PRINT TO oPrn IMAGE cImage SIZE 5.0, 4.0 INCHES[/code]
 

Buen dia Mr. Rao

Muchas gracias por su ayuda.

Me funciono perfecto.

Muchas saludos

Antonio

From the next version, it is not necessay to use cImage := FIELD->FIR_MED

We can directly use field name in the command

Code: Select all  Expand view  RUN

@ 2.0, 2.0 PRINT TO oPrn IMAGE FIELD->FIR_MED SIZE 5.0, 4.0 INCHES

[remtec]

Mr. Rao

Muchas gracias.

Estare atento, reitero por favor solicitud de Cesar, sobre poder extraer Cabecera y Pie de pagina en archivos RTF, asi podremos modificalar por medio de variables.

Muchos saludos.

Antonio