Экспорт в Excel и юникод

[Keeper]

Доброго времени суток! Нужно сделать отчёт в Excel. Данные для отчёта лежат в Firebird базе данных в кодировке UTF-8. Для доступа к базе используется TIBConnection, в свойствах указана кодировка unicode_fss. Для работы с Excel пользуюсь COM. Excel по-умолчанию не понимает юникод, поэтому строки приходится переводить в Win1251 кодировку. Для строковых констант русские буквы отображаются нормально, а для строк из базы - закорючками. Код, выполняющий экспорт:

Код: Выделить всё

   
   while not Query.EOF do
   begin
     book.WorkSheets[1].Cells[row, 1] := WideString(Utf8ToAnsi(Query.FieldValues['TESTDATE']));
     book.WorkSheets[1].Cells[row, 2] := WideString(Utf8ToAnsi(Query.FieldValues['TESTTIME']));
     book.WorkSheets[1].Cells[row, 3] := WideString(Utf8ToAnsi(Query.FieldValues['TESTTYPE']));
     book.WorkSheets[1].Cells[row, 4] := WideString(Utf8ToAnsi(Query.FieldValues['DETHEIGHT']));
     book.WorkSheets[1].Cells[row, 5] := WideString(Utf8ToAnsi(Query.FieldValues['OSNHEIGHT']));
     err := UTF8ToAnsi(Query.FieldValues['ERROR']);
     if err = 'none' then
        book.WorkSheets[1].Cells[row, 6] := WideString(Utf8ToAnsi(Query.FieldValues['RESULT']))
     else
     begin
       book.WorkSheets[1].Cells[row, 6] := WideString(err);
       book.WorkSheets[1].Cells[row, 6].Interior.Color := 255;
       book.WorkSheets[1].Cells[row, 6].Font.ThemeColor := 1;
     end;
     inc(row);
     Query.Next;
   end;                       


Помогите, пожалуйста, заставить буквы отображаться нормально. Может есть возможность при создании книги принудительно указать кодировку UTF8, чтобы не мучиться с перекодировкой?

[Ism]

TIBConnection.Charset:=Utf8;
Возвратит из базы строки в Utf8
А дальше правильно перекодировать.

[Keeper]

TIBConnection.Charset:=Utf8;
Возвратит из базы строки в Utf8
А дальше правильно перекодировать.

Кодировка Utf8 в подключении уже выставлена, в DBGrid русские символы отображаются нормально, значит база отдаёт строки в юникоде. Я перекодирую строки функцией Utf8ToAnsi и привожу их к WideString, потому что OLE понимает только виндовые "широкие" строки - вроде бы всё правильно.

[Kitayets]

Возможно что Utf8ToAnsi делает не то что Вам нужно. Ведь чтобы перевести из многобайтовой кодировки в однобайтную нужно знать кодовую страницу. Попробуйте Utf8ToSys он использует системную кодировку, которая на русифицированной венде - cp1251.

[Sergei I. Gorelkin]

Перевод из utf-8 в utf-16 производится функцией UTF8Decode.

UTF8ToSys, UTF8ToAnsi и прочие приводят к потере символов вне текущей ansi-кодировки.

[mkazakov]

А как применить Utf8ToSys ? можно простой пример

[Vadim]

А как применить Utf8ToSys ? можно простой пример

Простой пример:

Код: Выделить всё

WriteLn(UTF8ToSys('Какая-то Ваша строка...'));

[mkazakov]

Спасибо подпихнул в масив UTF8ToSys(.....)