win1256 [SOLVED]

[Mhmd60]

I have a problem using lazarus with mssql, my database codepage is windows 1256 when I connect to the database and start using the application I saw this text instead of the Arabic characters '??????????'.
Any help please?

[luca]

Hi.
Try to use

Code: [Select]

AnsiToUTF8(qry.FieldByName('Fieldname').AsString)

Regards
Luca

[mangakissa]

I understand the problem of Mhmd60. luca's option is a workaround, but doesn't work with database GUI components.

[taazz]

luca's option is a workaround, but doesn't work with database GUI components.

It doesn't? How is that?

[Mhmd60]

Thank you Mr. Luca and Mr. mangakissa, but as Mr. mangakissa said it doesn't work.

[marcov]

What is your windows codepage? The database can be codepage  1256, but that doesn't mean the default windows codepage is.

[Mhmd60]

Thank you Mr. marcov, my windows codepage is win1256 Arabic.

[Mike.Cornflake]

luca's option is a workaround, but doesn't work with database GUI components.

It doesn't? How is that?

I assume you're asking "Why doesn't AnsiToUTF8(qry.FieldByName('Fieldname').AsString) work for the DB aware GUI controls?"
Quick answer - because those controls populate their value directly from the dataset, there's no place that Luca's workaround can be applied.

Well actually, that's not true. Moving away from your question @Taaz

@Mhmd60  Try the following code...

Code: [Select]

...
  TForm1 = Class(TForm)
    Procedure DatasetOnGetText(Sender: TField; Var aText: Ansistring; DisplayText: Boolean);
    Procedure InitialiseDataset;   
..

Procedure TForm1.DatasetOnGetText(Sender: TField; Var aText: Ansistring;
  DisplayText: Boolean);
Begin
  aText := AnsiToUTF8(Sender.AsString);
End;   

Procedure TForm1.InitialiseDataset;
Var
  i: Integer;
  oField: TField;
Begin
  If Not Assigned(FDataset) Then
    Exit;

  For i := 0 To FDataset.FieldCount - 1 Do
  Begin
    oField := FDataset.Fields[i];

    If oField.DataType =ftString Then
      oField.OnGetText := @DatasetOnGetText;
  End;
End; 
 
Then just find an appropriate place to call InitialiseDataset;.  Presumably just after your Dataset.Open;

[taazz]

see there is a place for the workaround to be used after all. But my question was more generic a comment of it does not work or can't be used with data aware controls is to generic there I was only asking for more details in the same spirit of the post.

[LacaK]

I have a problem using lazarus with mssql,

Which components do you use to connecto to MS SQL Server ?
TMSSQLConnection or TODBCConnection or any others ?

[mangakissa]

It doesn't? How is that?

It's exactly what I ment. Mike.Cornflake has a really nice workaround and still is.
If you're a beginner and using not standard UTF8 Lazarus could be 'a pain in the ass'.

I think this is a very old discussion

[Mike.Cornflake]

Hmmm.  I've just noticed that Dataset.OnGetText uses Ansistring for DisplayText...   I'm not that familiar with Unicode issues but from what I understand, this is a potential issue.

@Mhmd60:  If you do try my workaround, could you let us know if it worked or not?

[Mhmd60]

First of all, I would like to thank all of you who tried to help me solve my problem, Thank you very very much.
sorry for not telling you that I used zeosdb, but when I converted to mssql connection the problem solved.
You are very kind.
Thank you again.