ADO and hb_serialize()

[AHF]

I'm trying to save an array with hb_serialize in a TEXT field ( MySql ) but I get an error.

The statement is:

Code: Select all  Expand view  RUN

 UPDATE OUTPUTS SET ACAMPOS = 'A       )NI      
NI       NI       NI       NI       NI       NI       NI       NI          NI      
NI       NI       NI      
NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI       NI        NI       !NI       "NI       #NI       $NI       %NI       &NI       'NI       (NI       )' WHERE HBRECNO = 1

Anyone knows a solution ?

[James Bott]

Antionio,

Can you just use:

ASave( aArray ) --> cText

ARead( cText ) --> aArray

James

[AHF]

James,

Thanks but its the same problem I cant save such a string.

[James Bott]

Do you mean it is too large? Something else?

I'm not sure what the example you posted is. It seems to be more than just a string of array data. I also see single quotes which will give problems with SQL. You have to replace single quotes with two single quotes (not a double quote).

I would suggest first testing with a simple array without any special characters.

James

[AHF]

James,

With Asave :

Code: Select all  Expand view  RUN

'UPDATE OUTPUTS SET ACAMPOS = 'AË * N
1N
2N
3N
4N
5N
6N
7N
8N
9N 10N 11N 12N 13N 14N 15N 16N 17N 18N 19N 20N 21N 22N 23N 24N 25N 26N 27N 28N 29N 30N 31N 32N 33N 34N 35N 36N 37N 38N 39N 40N 41N 42' WHERE HBRECNO = 72

Same problem it errors!

If I try ADO :Update() recordset becomes nuts.

Ill try fmimenc()

[James Bott]

I still see a special character in the second position. I don't know enough about SQL to know if that is an issue.

When I said something simple I meant REALLY simple. How about an array of three characters? E.G. A,B,C.

James

[AHF]

James,

I need to save an array of strings or numbers.

I tried convert it to base64 it saves but then I cant load it again.

Any ideas?

[AHF]

James,

This seems to work.

Code: Select all  Expand view  RUN

FUNCTION HB_SERIALIZE( aArray)
RETURN CMIMEENC( ASAVE( aArray ) )

FUNCTION HB_DESERIALIZE( xArray )
RETURN AREAD( CMIMEDEC(  xArray ) )
 

[James Bott]

Great news!

What does CHIMEDEC() do?

James

[AHF]

James,


(De) / Encode a string to MIME.

[byron.hopp]

All,

There is a MimeClip.prg in my \\fwh\source\function directory, seems to have two functions:

fMimeDec()
fMimeEnc()

Would this help?

Byron ...