Экспорт из word спецсимволов

gopstop2007

Экспортирую текст из word в Sqlite при помощи Clipboard(), проблема возникает при копировании спецсимволов
Например текст - lʌndən , сохраняется как - l?nd?n
Использую для этого:

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

WordRead{PROP:SQL} = 'Insert INTO WORDREAD (id, group_id, pargr_id, block_id, TextLoad) VALUES(1,1,1,1,"'& CLIPBOARD() &'");'

Если копировать из ворд в Sqlite используя Ctrl+C, Ctrl+V записывает без искажений.
Еще проверил, записав текст в файл и загрузил, использовал класс Cstr

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

St.LoadFromFile('.\test_Utf.txt') 
WordRead{PROP:SQL} = 'Insert INTO WORDREAD (id, group_id, pargr_id, block_id, TextLoad) VALUES(103,1,1,1,"'& St.S &'");'

Записывает без искажений. Судя по всему проблема в клашином Clipboad().

Прошу помощи, кто знает решение или какие есть альтернативные рабочие варианты экспорта текста и спецсимволов из ворда.

Игорь Столяров

ДД !
Здесь как бы есть 2 варианта:

1. Указывать формат буфера для ClipBoard(FORMAT)
https://learn.microsoft.com/en-us/windo ... rd-formats
Судя по описанию просится CF_UNICODETEXT / CF_LOCALE

2. Сделать вставку из буфера через WinAPI. Пример есть в классе FreeImage.