Проблема с кодировкой - Общие вопросы Delphi

Prontit · 17.08.2011, 09:32

Добрый день!

Никак не могу разобраться с кодировкой.

Имеется таблица с данными в UTF8 (MySQL), использую Delphi 2010 (UniDac) для работы (добавление/удаление данных). Здесь все нормально, все русские буквы видно. Проблема возникает когда пытаюсь импортировать данные в файл DBF, там необходима кодировка cp1251, чтобы дальнейшим с этим DBF могло работать другое ПО.
Подключаюсь к MySQL через UniDac (делаю запрос через UniQuery), подключаюсь к DBF через ADO (Visual FoxPro).

ADOTable1.FieldByName('TEXT').AsStr ing:=UniQuery1.FieldByName('TEXT'). AsString;

конечно, при такой записи все записывается в UTF8, а мне нужно cp1251....вот собственно и проблема

Заранее благодарю!

chertovich · 17.08.2011, 10:45

Попробуй

Код:

FieldByName('TEXT').AnsiString

Prontit · 17.08.2011, 10:56

Цитата:

Сообщение от chertovich

Попробуй

Код:

FieldByName('TEXT').AnsiString

безрезультатно

Аватар · 17.08.2011, 11:33

Функция Utf8ToAnsi - не пробовали?

Prontit · 17.08.2011, 11:57

Цитата:

Сообщение от Аватар

Функция Utf8ToAnsi - не пробовали?

пробовал - не работает

Prontit · 17.08.2011, 12:09

неужели нет решения?(( может в самом SQL запросе прописать, чтобы он сразу вытаскивал в cp1251....или может есть еще какие-нибудь функции в Delphi. Дело в том, что я специально на 2010 перешел, потому что он по-умолчанию на UTF8, и без проблем работает с MySQL базой....а вот когда появилась необходимость вытаскивать данные в cp1251 и добавлять их в DBF, возникла такая проблема....

гугл ничего не говорит кроме UtfToansi, но почему когда ее использую, вообще ничего не выводит (пустое поле)...

Prontit · 17.08.2011, 12:28

буквы "АКМ" отображаются в DBF как "ЂЉЊ"
надо брать нормальный utf8 из mysql, перекодировать во всякие ЉЊЉЊЂЉ и пихать в DBF....подскажите, пожалуйста, как сделать...

неужели никто не знает???(

chertovich · 17.08.2011, 13:45

Может проблема в коде? какой код?

Prontit · 17.08.2011, 13:52

да код элементарный, сомневаюсь что там может быть что-то не правильно

//запрос в mysql
UniQuery1.SQL.Clear;
UniQuery1.SQL.Text:=('Select * from TB where id = 2;');
UniQuery1.Open;

//открываю таблицу для записи
ADOTable1.Open;
ADOTable1.Edit;
ADOTable1.Append;

ADOTable1.FieldByName('TEXT').AsStr ing:=UniQuery1.FieldByName('text'). AsString;

пробовал и Utf8ToAnsi, и En/DeCode и AsAnsiString

Prontit · 17.08.2011, 14:06

никогда бы не подумал что поменять кодировку так сложно...или просто я чего то не понимаю... . Всего то надо, из mysql базы вытащить данные, и впихнуть в DBF

17.08.2011, 09:32	#1
Prontit Пользователь Регистрация: 29.07.2011 Сообщений: 39	Проблема с кодировкой Добрый день! Никак не могу разобраться с кодировкой. Имеется таблица с данными в UTF8 (MySQL), использую Delphi 2010 (UniDac) для работы (добавление/удаление данных). Здесь все нормально, все русские буквы видно. Проблема возникает когда пытаюсь импортировать данные в файл DBF, там необходима кодировка cp1251, чтобы дальнейшим с этим DBF могло работать другое ПО. Подключаюсь к MySQL через UniDac (делаю запрос через UniQuery), подключаюсь к DBF через ADO (Visual FoxPro). ADOTable1.FieldByName('TEXT').AsStr ing:=UniQuery1.FieldByName('TEXT'). AsString; конечно, при такой записи все записывается в UTF8, а мне нужно cp1251....вот собственно и проблема Заранее благодарю!

17.08.2011, 10:45	#2
chertovich Форумчанин Регистрация: 26.07.2009 Сообщений: 489	Попробуй Код: `FieldByName('TEXT').AnsiString` Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.

17.08.2011, 11:33	#4
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Функция Utf8ToAnsi - не пробовали? Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

17.08.2011, 12:28	#7
Prontit Пользователь Регистрация: 29.07.2011 Сообщений: 39	буквы "АКМ" отображаются в DBF как "ЂЉЊ" надо брать нормальный utf8 из mysql, перекодировать во всякие ЉЊЉЊЂЉ и пихать в DBF....подскажите, пожалуйста, как сделать... неужели никто не знает???( Последний раз редактировалось Prontit; 17.08.2011 в 13:16.

17.08.2011, 13:45	#8
chertovich Форумчанин Регистрация: 26.07.2009 Сообщений: 489	Может проблема в коде? какой код? Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.

17.08.2011, 12:09	#6
Prontit Пользователь Регистрация: 29.07.2011 Сообщений: 39	неужели нет решения?(( может в самом SQL запросе прописать, чтобы он сразу вытаскивал в cp1251....или может есть еще какие-нибудь функции в Delphi. Дело в том, что я специально на 2010 перешел, потому что он по-умолчанию на UTF8, и без проблем работает с MySQL базой....а вот когда появилась необходимость вытаскивать данные в cp1251 и добавлять их в DBF, возникла такая проблема.... гугл ничего не говорит кроме UtfToansi, но почему когда ее использую, вообще ничего не выводит (пустое поле)...

17.08.2011, 13:52	#9
Prontit Пользователь Регистрация: 29.07.2011 Сообщений: 39	да код элементарный, сомневаюсь что там может быть что-то не правильно //запрос в mysql UniQuery1.SQL.Clear; UniQuery1.SQL.Text:=('Select * from TB where id = 2;'); UniQuery1.Open; //открываю таблицу для записи ADOTable1.Open; ADOTable1.Edit; ADOTable1.Append; ADOTable1.FieldByName('TEXT').AsStr ing:=UniQuery1.FieldByName('text'). AsString; пробовал и Utf8ToAnsi, и En/DeCode и AsAnsiString

17.08.2011, 14:06	#10
Prontit Пользователь Регистрация: 29.07.2011 Сообщений: 39	никогда бы не подумал что поменять кодировку так сложно...или просто я чего то не понимаю... . Всего то надо, из mysql базы вытащить данные, и впихнуть в DBF

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблема с кодировкой	Furyon	PHP	3	13.04.2011 17:36
Проблема с кодировкой	cheef	PHP	6	02.12.2010 12:27
Проблема с кодировкой	motorway	PHP	11	02.10.2009 21:32
Проблема с кодировкой	motorway	Microsoft Office Excel	3	03.07.2009 22:27
Проблема с кодировкой	GaJIbI4	Помощь студентам	7	05.03.2009 15:42