Page 1 of 1

Ayuda para Leer JPG desde una DBF *SOLUCIONADO*

PostPosted: Mon Jul 04, 2022 11:37 pm
by 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

Re: Ayuda para Leer JPG desde una DBF

PostPosted: Tue Jul 05, 2022 2:42 pm
by acuellar
Estimado Antonio

Intenta con SETBMP
Code: Select all  Expand view

oImage:SetBmp(oDBF->IMAGEN)
 

Re: Ayuda para Leer JPG desde una DBF

PostPosted: Tue Jul 05, 2022 3:44 pm
by nageswaragunupudi
Code: Select all  Expand view
  cImage := FIELD->Fir_med
   @ 2.0, 2.0 PRINT TO oPrn IMAGE cImage SIZE 5.0, 4.0 INCHES
 

Re: Ayuda para Leer JPG desde una DBF

PostPosted: Tue Jul 05, 2022 5:02 pm
by remtec
acuellar wrote:Estimado Antonio

Intenta con SETBMP
Code: Select all  Expand view

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

Re: Ayuda para Leer JPG desde una DBF

PostPosted: Tue Jul 05, 2022 5:04 pm
by remtec
nageswaragunupudi wrote:
Code: Select all  Expand view
  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

Re: Ayuda para Leer JPG desde una DBF

PostPosted: Fri Jul 08, 2022 12:44 am
by nageswaragunupudi
remtec wrote:
nageswaragunupudi wrote:
Code: Select all  Expand view
  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
@ 2.0, 2.0 PRINT TO oPrn IMAGE FIELD->FIR_MED SIZE 5.0, 4.0 INCHES

Re: Ayuda para Leer JPG desde una DBF

PostPosted: Fri Jul 08, 2022 12:44 am
by nageswaragunupudi
remtec wrote:
nageswaragunupudi wrote:
Code: Select all  Expand view
  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
@ 2.0, 2.0 PRINT TO oPrn IMAGE FIELD->FIR_MED SIZE 5.0, 4.0 INCHES

Re: Ayuda para Leer JPG desde una DBF *SOLUCIONADO*

PostPosted: Fri Jul 08, 2022 2:12 pm
by 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