Вопрос с кодировками при получении фонетических символов звуков английского языка из БД MS Acсess

[dimmm]

Доброго времени суток.
Есть таблица БД MS Access 2000. В текстовом поле этой таблицы находятся фонетические символы звуков английского языка. Попадают данные в это поле так: в MS Word делаю вставку символа и копирую через буфер обмена в MS Acсess. Вопрос в следующем. Пытаюсь достать из программы на Delphi 7 данные из этого поля. Получается пока не очень: фонетические символы, идентичные буквам латинского алфавита (например, k или t), выводятся нормально, а вот остальные выводятся как знаки вопроса.

Код в Delphi 7 такой:
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Table1 WHERE Nomer = 1 ');
ADOQuery1.Open;
ShowMessage( ADOQuery1.FieldByName('Field1').AsS tring );
ADOQuery1.Close;

То же самое проделал в Lazarus (FPC 2.6.0) c тем же результатом. Использование AnsiToUTF8, SysToUTF8 не помогло.

Что-нибудь подскажете по решению вышеописанной проблемы?

[evg_m]

var
  sw: WideString;

  sw:=myfield.variant;

может попробовать так.
или

var
  buff: wideString[100];

  myfield.GetData(buff);

[dimmm]

evg_m, если я правильно понял то, что Вы предложили попробовать, то вот такой код

var S: WideString;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Table1 WHERE Nomer = 1 ');
ADOQuery1.Open;
S:=ADOQuery1.FieldByName('Field1'). AsVariant;
ShowMessage(S);
ADOQuery1.Close;

к сожалению, выдал тот же результат: вместо нужных символов - знаки вопроса.

[dimmm]

Немного поэкспериментировал. Оказалось, что все символы диапазонов Юникода "Расширенная латиница - A", "Расширенная латиница - B", "Фонетические значки", "Греческий основной" выводятся в виде знаков вопроса. Символы "Латиницы-1" выводятся частично в виде знаков вопроса, частично другими символами, т.е. не теми, которые должны быть. "Основная латиница" выводится правильно.

[rdama]

Вот есть вероятность что в UTF есть все эти символы. Но 7 не поддерживает UTF(VCL библиотека).
Берите более поздние версии.

[Vapaamies]

Нужно попробовать вытащить исходный OleVariant из ADO Recordset, который содержит еще неиспорченный Unicode. Как-то так:

MessageBoxW(
  Application.Handle,
  Pointer(WideString(AdoQuery1.Recordset.Fields['Field1'].Value)),
  Pointer(WideString(Application.Title)), 
  MB_INFORMATION
);