[patch_done] problem with zeos 7.03-stable in UTF8 strings

[delphi887]

hi every body
i used Zeos 7.0.0-dev for develop my application in lazarus 1.04 in Kubuntu 12.10 and windows XP with Mysql .
recently i upgrade Zeos to 7.03 stable and Occurred any problem
in my project string saved in database with UTF8 and Persian language.
in version 7.0.0-dev working fine but After upgrade to 7.03 stable string showing Shorter than the value stored in the database.
in picture
version 7.0.0-dev


version 7.0.3-stable


i set in version 7.03-stable Controls_cp=CP_UTF8 and codepage=utf8 but The problem is still not resolved
Where is my fault? please Help me

[EgonHugeist]

delphi887,

oh sorry i didn't look to the lazarus forum again. I think it is an Zeos issue. Wondering nobody else did report something like this. Can you plaese attach a little demo with a small create script? It should be equal to the table where you've got your problems.

Then i do my best to fix your issue.

[delphi887]

delphi887,

Can you plaese attach a little demo with a small create script? It should be equal to the table where you've got your problems.

OK thanks for help
i create a simple demo project and mysql script Database very soon and attached for you .

[EgonHugeist]

delphi887,

i'm loonking forward for the attached template app.

[delphi887]

hi
i attached a little project and SQL Script for create database and table and a picture from project created with Zeos 7.0.0-dev working completly.
if you check data in the mysql workbench or phpmyadmin they are string complete but in project and Zeos 7.03 UTF8 string shorted.
tank you for helping

[EgonHugeist]

delphi887,

issue found. open ZAbstractRODataset.pas.

Goto line 1757 and replace

Fields.Size := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);
with:
Fields.DisplayWidth := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);

Thanks. Patch done R2134 \testing-7.1 (SVN) will be backported to 7.0.4 soon.

[aliboy]

edited.

[aliboy]

delphi887,

issue found. open ZAbstractRODataset.pas.

Goto line 1757 and replace

Fields.Size := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);
with:
Fields.DisplayWidth := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);

Thanks. Patch done R2134 \testing-7.1 (SVN) will be backported to 7.0.4 soon.

I did not change my file(s).

sorry,
BUT,I think this is not a bug because ,at least works fine for me, shows UTF8 strings such as Persian and English characters correctly.
see pictures:
Lazarus with zeos 7.03-stable,I recently installed the zeos 7.03-stable.



and the same data in MySQL:



check and match the fields with each order (id by id,name by name,family by family),respectively.

OK?it's not a bug and for my claim you can see that combine different characters with long length.
*******************
off topic:
if you interested, in my post (Lazarus forum) you can see all codes of my project.
http://www.lazarus.freepascal.org/index ... #msg111543

***********************
and I conclude that Delphi887 has a local issue and did not encounter a bug.

[delphi887]

delphi887,

issue found. open ZAbstractRODataset.pas.

Goto line 1757 and replace

Fields.Size := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);
with:
Fields.DisplayWidth := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);

Thanks. Patch done R2134 \testing-7.1 (SVN) will be backported to 7.0.4 soon.

Thanks EgonHugeist very much
i change it and recompile and every thing fine.
Zeos 7.03-stable in Kubuntu 12.10 (after change)

[delphi887]

and I conclude that Delphi887 has a local issue and did not encounter a bug.

hi aliboy
No i change it :
Fields.Size := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);
with:
Fields.DisplayWidth :=ResultSet.GetMetadata.GetColumnDisplaySize(I+1);

and The program is working properly.

[aliboy]

hi delphi887. very nice