FOXBARCODEQR FOR UNICODE

[vie3548]

hi
i am using foxbarcodeqr to generate qr code, it is working fine for non unicode characters.
but if i passed string with arabic text its printing different characters.
is foxbarcodeqr supports unicode/utf-8 characters?
is there anyone has tried this? pls help.

Thank you.


Elvie

 

[vie3548]

Hi sir,

just pass utf8encode routine in QR code image. it will work.
pls check below :

loFbcQ.FullQRCodeImage(utf8encode(cString) ,, , 6 * 33, 1))

function utf8encode(cStrText)
IF TYPE("cStrText")<>"C"
cStrText=""
ENDIF
LOCAL cRetVal As String
cFilen=FORCEEXT(SYS(2015),"txt")
lcFile=ADDBS(SYS(2023))+cFilen
ado=CREATEOBJECT("ADODB.Stream")
ado.Type=2
ado.Charset="utf-8"
adpen
ado.WriteText(cStrText)
ado.SaveToFile(lcFile,2) && adSaveCreateOverWrite
ado.Close
cRetVal=FILETOSTR(lcFile)
ERASE &lcFile
RETURN cRetVal
endfunc

 

[abdo9]

Hello dear
thank you very much
I can't put the code in the correct place
Please put the code in the next project test
send me a link
Thank you very much

https://res.cloudinary.com/engineering-com/raw/upload/v1637507015/tips/PRG_ar0rar.rar

 

[vie3548]

hi Sir,

create uft8encode.prg then call in QR code (every fields).

in you report_barcode.frx :
change the expression of Ole control to :

poFbc.FullQRCodeImage("Name : "+table_barcode.barcode+"|add1:"+utf8encode(table_barcode.barcode1)
+"|add2:"+utf8encode(table_barcode.barcode2)+"|add3:"+utf8encode(table_barcode.barcode3)
+"phon4:"+utf8encode(table_barcode.barcode3)+"|DATE : " + DTOC(DATE())+"|TIME:"+TIME())


pls check the below.

Hope this helps.


Vie

 

[abdo9]

Very excellent works fine
Thank you so much
It was great
best regards

 

[abdo9]

hello dear
I have one last problem with the space between two words
How can I separate them?
Please correct the code
the following

poFbc.FullQRCodeImage(utf8encode('|'+ALLTRIM('مؤسسة جولدن')+('رقم'+utf8encode('1234567899'))))

thank you very much

 

[vie3548]

hi Sir,

Glad it worked.
Sorry i didn't get you with space between words.

Regards,
Vie

 

[abdo9]

welcome
dear
I mean the space between words
It's done well now I followed previous instructions
thank you very much

 

[Chris Miller]

PMFJI

Your last question is simple. What do you get when you do this?

? ALLTRIM('مؤسسة جولدن')+'رقم'

No space between رقم and the rest, right?

Well, if you want a space there, add a space.



Chriss

 

[Chris Miller]

I would also recommend to first put all texts and numbers you need together and finally and only once translate this whole string with utf8encode.

That way you can also see what will be in the barcode, if you check the result of the whole expression.

Chriss

 

[abdo9]

welcome
Dear
I succeeded in making the ALL letters Arabic alphabet and they are working fine QR
Thank you very much for your great effort
Special thanks to this forum, which brought together a lot of professional geniuses.
I wish everyone good luck and success

 

[abdo9]

This was done well. Follow the previous encoding. Spaces work automatically

 

[abdo9]

poFbc.FullQRCodeImage(utf8encode("|Cod"+table_barcode.barcode+
"]Name|"+(table_barcode.barcode1)+
"]Date|"+(DTOC(DATE())+(':'+TIME())+
"]Namber:"+(table_barcode.barcode))))
-------------------------------------
Hello
dear
I have a question: Can we print a QR in lines, for example?
Print each line separately. Is there a solution to this problem? Thank you very much
Code: ---------------------
Name: ---------------
Date: ------- Time: -------
Telephone: -------------

 

[Chris Miller]

Yes, use CHR(13)+CHR(10) for linefeeds. Or even simpler, prepare the text in a TEXT ENDTEXT block:

Text To lcText NOSHOW
Code: ---------------------
Name: ---------------
Date: ------- Time: -------
Telephone: -------------
EndText

The text, including linefeeds is now in lcText.

On top of this easier writing (what you see is what you get) of multiline texts, you can add the feature of textmerge:

Text To lcText NOSHOW
Code: <<lcCode>>
Name: <<lcName>>
Date: <<Date()>> Time: <<Time()>>
Telephone: <<lcPhone>>
EndText

This can use variables or also fields of a workarea/table/cursor.

You should apply utf8 conversion with lcText = STRCONV(lcText,9). Just do this as a last step when all ansi text is put together,
because if you do this twice the inpt string is already utf8, but will be interpreted as ansi. Which means every utf8 chracter that has 2 or more bytes length will be interpreted as 2 or more ansi characters instead and you get weird output.

So simply at best put everything together you want as barcode and then once do strconv(ansistring,9) to get utf8.


Chriss

 

[abdo9]

HELLO
dear
Thank you very much for the reply and more advanced code
Please review and modify the following code
I tried, but I couldn't get it right
Please I hope you make a correct edit place
First: FRX.
poFbc.FullQRCodeImage(utf8encode("Cod:"+table_barcode.barcode+"]Name:"+(table_barcode.barcode1)+"]Date:"+(DTOC(DATE())+('Time:'+TIME())+"Rif:"+allt(STR(table_barcode.barcode2,9,2)+"]Price:"+allt(STR(table_barcode.barcode3,9,2))))))
----
PRG.
function utf8encode(cStrText)
IF TYPE("cStrText")<>"C"
cStrText=""
ENDIF
LOCAL cRetVal As String
cFilen=FORCEEXT(SYS(2015),"txt")
lcFile=ADDBS(SYS(2023))+cFilen
ado=CREATEOBJECT("ADODB.Stream")
ado.Type=2
ado.Charset="utf-8"
adpen
ado.WriteText(cStrText)
ado.SaveToFile(lcFile,2) && adSaveCreateOverWrite
ado.Close
cRetVal=FILETOSTR(lcFile)
ERASE &lcFile
RETURN cRetVal
endfunc
---

I hope that each one is in a separate line like the previous example
Code
Name
Date: Time:
Rif
Price
----
This is incorrect printing

 

[Chris Miller]

Why do you make your life as hard as you can by composing the text within the call to create the barcode?

Local lcText
Text To lcText NOSHOW
Code: <<table_barcode.barcode>>
Name: <<table_barcode.barcode1>>
Date: <<Date()>> Time: <<Time()>>
Rif: <<allt(STR(table_barcode.barcode2,9,2)>>
Price: <<allt(STR(table_barcode.barcode3,9,2))>>
EndText[code]

Then do REPORT FORM...

And within the report print

poFbc.FullQRCodeImage(STRCONV(m.lcText,9))

Note: A report cannot only access report variables but also all local variables the caller has currently defined.

If this doesn't work then please post the error.

Your code couldn't work, as you didn't do as I said added CHR(13)+CHR(10) for linefeeds. So you didn't add linefeeds. How can you expect to get linefeeds, if you don't even try to add them anywhere?

Chriss

 

[abdo9]

he,
dear
This code was used in the frx reports ( +CHR(10) )
he is working well
thank you very much
Greetings

 

[abdo9]

Hello sir
Thank you very much for the good attention you have a good project
Can you use base64decode with QR I will upload a full demo project
can you help
thank you very much