FiveTech Software tech support forums

Posted: **Thu Mar 31, 2022 12:41 am**

In a JSON response, I am receiving a "signature" data string. It is base64 encoded png format. IT IS NOT A FILE. It is a string.

I need to store this in a MEMO field, and later print it on an invoice.

For printing, I use the PrintImage( ) method from the printer class in FWH.

What would be the proper way to store this string in the memo field, and then retrieve it for printing as an image.

Here is a sample response string:

Code: Select all | Expand


             "SignatureData": "iVBORw0KGgoAAAANSUhEUgAAALcAAACRCAYAAACBmym0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN6SURBVHhe7dcBbuM4EEXB3P/SWRAD7jLazliyRZvsrgL+Adx8EOCvb0hK3KQlbtISN2mJm7TETVriJi1xk5a4SUvcpCVulvP19fXXnSVuPiqK99HOEjdvE4Ua7S7iZooo2mgziZtbROEe927i5rIo3ONWIG4eiuI9bkXi5oco3ON2Ie7ioniP25W4i4niHZeJuJOLAh6XmbiTiQIeV4m4NxbFe1xl4t5IFO9x/Mc1FhbFO46/c6EFRSG3cY2LLUTM93LBBYh6Dpf8MGHP45ofIur5XPVDRD2f65KWuElL3KQl7hf5U7guL/KkMWpxr8mLXCTqfXiZk0S9Hy/0gKj35aUCUdBt7MWLDQSdS/nXi4JuY39lX1HQ+ZV6UUHXkv51o6DbyC/lK0cxt1FLmhePYm6jrq1fP4q5DZrtSohi7oPR8kVEEY+D3yxZRxRxH5y1RC1RxOPgGR8tJwq5De7w9pKimNvgbm+rStC829TCoqDb4B2mlCZoVnBrdYJmJbcUKGpW9FKJomZlTxcpbFZ3uUpRs4tLdYqanTwVN+zgdKm+2uzmctywC3GTlloX1j8oPirPcbWFjXGL/DrX2oTQr3OhzYj8PJfZlMgfc5EEhB5zhUQE/pMLJCTyP8SdWPXAxZ1c5cDFXUDVwMVdRMXAxV3IGHiFyMVdkLhJS9yk1MMWN+lUCbsRdyGVvtqNuIuoFnYj7gIqht2Iu4CKYTfiTq5q2I24E+thi5tUqofdiDshYf8h7kTGqKuH3bhAAqKOucTmhP0719iUqB9zlc2I+jzX2cQx6oxh3/3bxL248cHvfPiVzPqN4l7QrMdezezfKe4FzXrsFYy/bdwM4ma6KOa22cTNNJ8IeiRubvfpqDtxc5tVou7EzctWi7oTN09bNepO3Fy2etSduDltl6g7cfPQblF34uZXu0bdiZv/2T3qTtz8K0PQI3EXdww6Q9SduIvKHHUn7mIqRN2Ju4gqQY/Endgx6CpRd+JOqHrUnbgTEfVP4t6coH/nEpsS9WMushlRn+cyGxD0c1xpYaJ+jWstJgq6jetcbQFRzG28xgU/JIq5j3u45BtFIfdxP1edLAq5j7lceIIo5D7ex7VvEoXcx2e4/JOiiMfxeV7hpCjgcazHq5wk5v14JdISN2mJm7TETVriJi1xk5a4SUvcpCVu0hI3SX1//wNfb36+AIiyPQAAAABJRU5ErkJggg=="

Thank you for your input.

Posted: **Thu Mar 31, 2022 5:10 am**

Save the value in the memofield, without the starting and ending Quotes.
At the time of printing:

Code: Select all | Expand


cImage  := ( cAlias )->MEMO
cImage  := HB_BASE64DECODE( cImage )
@ r, c PRINT TO oPrn IMAGE cImage ............

Posted: **Thu Mar 31, 2022 7:25 pm**

I'm afraid I need a bit of clarification here.

The value is exactly what the JSON reply provides, including the quotes.

I am able to extract the data with:

Code: Select all | Expand

cSigJPG     := HB_HGET( hChgData, "SignatureData")              // Signature

The extracted data has no quotes ( displayed with MsgInfo ). I am using a data object, so I use:

Code: Select all | Expand

oCreditLog:ccdsig := cSigJPG                        // Signature   Memo Field

I save the object, and there is no problem. It is in the memo field.

Now I tried the code:

Code: Select all | Expand


oImage := oCreditLog:ccdsig
oSignature := HB_BASE64DECODE( oImage ) 
oPrn:PrintImage(nRow, nCsp, oSignature, nCsp * 35, nRsp * 3, , , .t. )

I get nothing printed.

What am I doing wrong here ?

Thank you.

Tim

Posted: **Thu Mar 31, 2022 11:47 pm**

Actually please look at my previous post. I am NOW getting an image ( it was pretty poor in the sample I had so I didn't see it ).

I am using the following code:

Code: Select all | Expand


oPrn:PrintImage(nRow, nCsp, oSignature, nCsp * 35, nRsp * 3, , , .t. )

What I am finding is that the image is justifying on the RIGHT side of the box ( nCsp*35 ).
Is PrintImage() correct ?
Is there a way to get it to align to the LEFT side ? I want it to print starting at nCsp ( the beginning column ).

Thanks ... Almost there.

Posted: **Fri Apr 01, 2022 12:27 am**

Tim, you can use the print command with an image

Code: Select all | Expand


@ 1,1 PRINT TO oPrn IMAGE oSignature SIZE 8, 3 CM LASTROW nRow ALIGN "C" 
// Align "C","L" or "R"
// nRow Save the value for next printing

Code: Select all | Expand


#xcommand @ <nRow>, <nCol> PRINT TO <prn> IMAGE <img> ;
      [SIZE <nWidth> [,<nHeight>] ] ;
      [<unit: PIXEL,MM,CM,INCHES,SCREEN>] ;
      [<lStr: STRETCH>] ;
      [ ALPHALEVEL <nAlpha>] ;
      [<lNoTrn: NOTRANSPARENT>] ;
      [<lGray: GRAY> ] ;
      [ALIGN <aln>] ;
      [URL <cURL> ] ;
      [LASTROW <lrow>] ;
   => ;
      [<lrow> := ] <prn>:PrintImage( <nRow>, <nCol>, <img>, [<nWidth>], [<nHeight>], ;
            [<.lStr.>], [<nAlpha>], [!<.lNoTrn.>], [<.lGray.>], [<(unit)>], [<aln>], [<cURL>] )

Posted: **Fri Apr 01, 2022 12:45 am**

Thank you. Looking at the code I didn't see the additional parameters.

As you can see, I am using the PRINT command but in the class ... so your example translates to what I was using ... but I didn't have the alignment parameter.

All of my printouts are done with objects/classes using the tPrinter class. I've done it so long I'm pretty used to it.

Now my issue is fully resolved. I appreciate the tip.

FiveTech Software tech support forums

Save JSON Signature string in Memo for printing

Save JSON Signature string in Memo for printing

Re: Save JSON Signature string in Memo for printing

Re: Save JSON Signature string in Memo for printing

Re: Save JSON Signature string in Memo for printing

Re: Save JSON Signature string in Memo for printing

Re: Save JSON Signature string in Memo for printing