VPF::Delphi + MySQL + кодировка - Форум программистов

Alkash

Дата 17.11.2011, 16:49 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Доброго времени суток господа, возникла следующая проблема. Есть MySQL база, в которой через MySQL Administrator созданы некоторые таблицы, в кодировке CP1251-general-ci, Default charset - CP1251. Для работы с ней использую связку Delphi XE + MyDac 5.90.0.57. Так вот, при попытке записи кириллических символов в базу методом:

Код



 With MyQuery1 do
 begin
  SQL.Clear;
  SQL.Add('INSERT INTO provisioneers.users(login,pass,fio,role) VALUES( :p2, :p3, :p4, :p5 )');
  //Params.ParamByName('p1').AsInteger := GetMaxId + 1;
  Params.ParamByName('p2').AsString := uEdit.Text;
  Params.ParamByName('p3').AsString := pEdit.Text;
  Params.ParamByName('p4').AsString := fEdit.Text + '' + inEdit.Text;
  Params.ParamByName('p5').AsInteger:= perm;
 // Active:= true;
 Execute;
// ShowMessage(MyQuery1.);
 end;

- в базу падают данные следующего вида:

Код


Ñîëîâü¸âÞ.Ì.

Естественно поиск в гугле привёл меня к решению с помощью отправки серверу SET NAMES cp1251,

Код


Procedure SetNames();
begin
  AddUserFrm.MyConnection1.Connected:= true;
 with AddUserFrm.MyQuery1 do
 begin
 Active := false;
 SQL.Clear;
//передадим кодировку
 SQL.Text:='SET NAMES cp1251';
 //Active:= true;
 Execute;
 end;
 AddUserFrm.MyConnection1.Connected:= false;
end;

Но - в принципе после этого - ничего не изменилось. Так вот собственно вопрос, каким образом я могу заставить работать своё приложение с кириллическими данными и MySQL?

PS: забыл добавить - версия MySQL сервера: 5.1.54, базирующаяся на удалённом Linux сервере.

Это сообщение отредактировал(а) Alkash - 17.11.2011, 16:59

--------------------

Подпись >> /dev/null

Akella

Дата 17.11.2011, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(Alkash @ 17.11.2011, 16:49

)

созданы некоторые таблицы, в кодировке CP1251-general-ci, Default charset - CP1251.

Цитата(Alkash @ 17.11.2011, 16:49

)

SQL.Text:='SET NAMES cp1251';

Цитата(Alkash @ 17.11.2011, 16:49

)

использую связку Delphi XE

Ты что, ещё не в курсе, что XE - это уже юникодная среда разработки, начиная с версии 2009?!

Alkash

Дата 17.11.2011, 18:21 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Вот блин блинский-))) Спасибо-))) Как-то из головы категорически выпало-)))

--------------------

Подпись >> /dev/null

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »