Найдено 2 результата

Andrew71
Вт 08 дек 2020 10:05
Форум: Oracle Data Access Components
Тема: Русские буквы и вопросы вместо них, Русские буквы и вопросы вместо них
Ответы: 6
Просмотры: 9372

Re: Русские буквы и вопросы вместо них, Русские буквы и вопросы вместо них

Я использую ODAC 11.3 for RAD Studio 10.3 Rio.
Настроен компонент OraSession, OraTable и OraQueue.
С записью в OraTable проблем нет - все красиво, как и должно быть. Проблема возникает при записи в очередь OraQueue.
Для демонстрации проблемы можно сделать следующее. В PL/SQL Developer запустить скрипт для подготовки исходных данных:

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

-- создаем тип данных:
create or replace type XX_QUEUE_TYPE is object
(
   t_type int
  ,t_content varchar2(1000)
  ,t_clob clob

)

-- Создаем таблицу для очереди
begin
  dbms_aqadm.create_queue_table(
    queue_table        => 'XX_QUEUE_TBL',
    queue_payload_type => 'XX_QUEUE_TYPE'
  );
end;

-- Собственно очередь
begin
  dbms_aqadm.create_queue(
    queue_name  => 'XX_QUEUE_Q',
    queue_table => 'XX_QUEUE_TBL'
  );
end;

-- Запуск очереди
begin
  dbms_aqadm.start_queue(
    queue_name  => 'XX_QUEUE_Q'
  );
end;
На форме размещена кнопка постановки сообщения и соответственно, вот процедура нажатия:

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

procedure TForm1.btEnqueueClick(Sender: TObject);
var
  MsgProp: TQueueMessageProperties;
  Payload: TOraObject;
  MsgId: String;

begin
  MsgProp := TQueueMessageProperties.Create;
  try
    MsgProp.Priority := 1;
    Payload := TOraObject.Create;
    try
      Form1.OraSession1.Connect;
      Payload.AllocObject(OraSession1.OCISvcCtx, 'XX_QUEUE_TYPE');
      Payload.AttrAsInteger['t_type'] := 333;
      Payload.AttrAsString['t_content'] := Edit1.Text;
      Payload.AttrAsLob['t_clob'].LoadFromFile('c:\temp\frez.log') ;
      Payload.AttrIsNull['t_clob'] := false;
      MsgId := OraQueue1.Enqueue(Payload, MsgProp);
      meLog.Lines.Add('Вставка: MsgId: ' + MsgId +' - Сообщение: ' + Edit1.Text );
    finally
      Payload.Free;
    end;
  finally
    MsgProp.Free;
  end;
  OraTable1.Close;
  OraTable1.Open;
end;
Процедура отрабатывает без ошибок. Формируется очередь. Но в поле t_clob вопросительные знаки.
Сам файл frez.log в кодировке UTF8. Содержимое файла: "Hello friends!"
Для того, чтобы посмотреть можно выполнить селект в PL/SQL Developer:

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

select *  from XX_QUEUE_TBL
У меня подозрение, что необходимо преобразовать исходный файл в какую-то другую кодировку. Пробовал ANSI win-1251. Результат тот же.
Andrew71
Пн 07 дек 2020 08:43
Форум: Oracle Data Access Components
Тема: Русские буквы и вопросы вместо них, Русские буквы и вопросы вместо них
Ответы: 6
Просмотры: 9372

Re: Русские буквы и вопросы вместо них, Русские буквы и вопросы вместо них

Добрый день!
Столкнулся с такой же проблемой при использовании ODAC для Delphi 7, а также Delphi 10.3.
При записи в БД любые символы (даже цифры) в таблице (в поле тип CLOB) отображаются вопросительными знаками.
Пробовал менять свойство Charset=cl8mswin1251 (такое установлено на клиенте ORACLE - NLS_CHARACTERSET, и оно же возвращается при запросе "select * from nls_database_parameters;" если выполнять через PL/SQL Developer). Пробовал менять на UTF8. Также пытался включать опцию UseUnicode=true. Результат одинаковый - вопросительные знаки в поле clob. В текстовых полях кодировка нормальная.
Третий день бьюсь над этой проблемой. Прошу помощи!