169 похожих чатов

Есть проблема. Может кто знает в чем дело. Заношу в базу

FireDAC имена файлов из папки и в процессе внесения (или возможно вывода их из базы) некоторые символы превращаются в знаки вопроса.
Имена файлов вношу через такого плана код:
FDQuery1.ParamByName('ObjectName').AsString := AnsiLowerCase(ObjectName);
В момент пошагового выполнения проверяю в ObjectName правильно ли там указано имя файла (все норм - никаких вопросиков), затем когда пытаюсь достать из этой же записи значение поля через такой код:
s:=FDQuery1.FieldByName('ObjectName').AsString;
То в s уже оказывается такое же имя но с вопросиками вместо некоторых символов.
Например если клал в базу я вот такую строку:
Предоставление сведений из ЕГРЮЛЕГРИП в электронном виде.webloc
То достается обратно эта строка в таком виде
Предоставление сведений из ЕГРЮЛ?ЕГРИП в электронном виде.webloc
Проверял в режиме пошагового выполнения (в режиме отладки) - проблема происходит именнов каком-то из этих двух моментов - либо во время ввода либо вывода из базы.
Попробовал указывать кодировку в ручную через
FDConnection1.Params.Values['Database'] := dbPath;
FDConnection1.Params.Values['CharacterSet'] := 'UTF8';
FDConnection1.Connected := True;
FDConnection1.ExecSQL('PRAGMA encoding = "UTF-8";');
Не помогло.
Может кто знает как с этим бороться?

3 ответов

26 просмотров

для начала, в базу FireDAC, FireDAC - это не база, название базы не услышали

Что возвращает ansiLowerCase проверял И вообще какая версия delphi?

Дмитрий-Завгородний Автор вопроса
Жека Жека
Что возвращает ansiLowerCase проверял И вообще как...

Проверял - меняет БУКВЫ на маленькие - точка остается на месте. Регистр букв уменьшаю для того чтобы поиск потом работал напрямую в базе, но вероятно переделаю и дубу для поиска отдельную базу мутиь, а то принцип первозданности нарушается - не хорошо.

Похожие вопросы

Обсуждают сегодня

комрады, че-та лыжы не едут var tmpFont: TFont; begin tmpFont:= TFont.Create; try case rgFontColor.ItemIndex of 0: tmpFont.Color:= clWindowText; 1: tmpFo...
Ed Doc
34
Интересно, нет ли какого-то способа получить из dll не адрес самой метки, а адрес со смещением?
The Bird of Hermes
54
generic procedure function test<T>(param: T); type case T of longint: NewT = word; longword: NewT = byte; end; var v1: NewT; Как это можно сделать? Чтобы у меня...
notme
21
Делал задачу вот такую https://stepik.org/lesson/4985/step/9?unit=1083 получилось такое https://play.haskell.org/saved/ipKrepqe оно работает, тестов много не писал, но работае...
Fedor
22
Всем привет, прошу совета по сложившейся ситуации: Windows приложение подключается к БД MySQL используя Firedac. При работе с версией MySQL 5.7 все отлично, но когда подключаю...
Constantine
6
Ребята, ребятушки! Помогите Как ловить исключения такие? Вызов метода COM-объекта формирует исключение, try{}catch{} не помогает Необработанное исключение: System.AccessViolat...
notme
2
Всем добрый вечер. Нужна помощь с прикруткой telegram-vapor-bot к проекту Vapor. Удалось после старта приложения отправить тестовое сообщение в бот, вот только сразу после это...
advanc3d
3
program Project1; procedure generic_proc<T>(); begin end; begin generic_proc<Int64>(0); end. Я чет не понял, а как в Delphi сделать такое? процедуру-дженерик... PS: а на...
notme
10
Кстати, что FPC мешает сделать нормальные проперти в юнитаз, завызанные на переменные? Нет, инлайнинг геттеров и геттеров кажется работает в принципе, но это же сколько лишн...
Arioch The
8
Anyone here suffers from unexplained aural migraines, who would be up for talking for a bit? Doesn't *have* to be aural, but I am not asking about headaches, I mean actual mi...
Martin Rys
58
Карта сайта