[Aibekkoke]

Здравствуйте. Помогите пожалуйста очень прощу.
При добавлений записи в таблицу вместо казахских букв отображается вопросительный знак. Таблица в Mysql. Подключаюсь к базе через fdconnection. Запись добавляю через fdquery.
Вот такой код использую для добавление записи:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

if Assigned(GlavFrm) then     begin       GlavFrm.FDQuery1.SQL.Text := 'INSERT INTO Malimet (tabel, name, birthday, citizenship, nationality, gender, military_rank, photo, password) VALUES (:tabel, :name, :birthday, :citizenship, :nationality, :gender, :military_rank, :photo, :password)';       GlavFrm.FDQuery1.ParamByName('tabel').AsString := Edit1.Text;       GlavFrm.FDQuery1.ParamByName('name').AsString := UTF8Encode(Edit2.Text);       GlavFrm.FDQuery1.ParamByName('birthday').Value := DateTimePicker1.Date;       GlavFrm.FDQuery1.ParamByName('citizenship').AsString := ComboBox1.Text;       GlavFrm.FDQuery1.ParamByName('nationality').AsString := ComboBox2.Text;       GlavFrm.FDQuery1.ParamByName('gender').AsString := ComboBox3.Text;       GlavFrm.FDQuery1.ParamByName('military_rank').AsString := ComboBox4.Text;       GlavFrm.FDQuery1.ParamByName('photo').AsString := label8.Caption;       GlavFrm.FDQuery1.ParamByName('password').AsString := Edit3.Text;       GlavFrm.FDQuery1.ExecSQL;     end;

При созданий формы установливаю кодировку:

Код:

1 2 3 4 5 6

GlavFrm.FDQuery1.SQL.Clear;   // Выполняем запрос для выборки данных         GlavFrm.FDConnection1.Connected := True; // Подключаемся к базе данных         GlavFrm.FDConnection1.Params.Values['CharacterSet'] := 'utf8';         GlavFrm.FDQuery1.SQL.Text := 'SELECT * FROM malimet';         GlavFrm.FDQuery1.Open;

[lmikle]

А если каким-нить сторонним тулом глянуть в БД? Там правильно отображается или тоже кракозябры? Очень уж похоже, что проблема на стороне базы данных, там надо задать дефолтную кодировку для полей при создании полей.

[Aibekkoke]

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

А если каким-нить сторонним тулом глянуть в БД? Там правильно отображается или тоже кракозябры? Очень уж похоже, что проблема на стороне базы данных, там надо задать дефолтную кодировку для полей при создании полей.

Здравствуйте. Создавал уде 4 раза, но все равно такая проблема. Но есть один проект который делал для примера, там все отлично работает. А если подключится к этой базе который работает и добавить запись тоже такая проблема. Проблема кажется со стороны делфи:-( А если добавить запись из phpmyadmin тогда все отлично работает, нет никаких вопросительных знаков

[lmikle]

А если конвертнуть в AnsiString с нужной кодировкой? Убери установку utf-8 и при встаке конвертируй строки в нужную кодировку. Может поможет...

[Aibekkoke]

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

А если конвертнуть в AnsiString с нужной кодировкой? Убери установку utf-8 и при встаке конвертируй строки в нужную кодировку. Может поможет...

А как это сделать, не подскажете?

[lmikle]

Кстати, а какая кодовая страница стоит по умолчанию?
Посмотри значение в System.DefaultSystemCodePage
Если неправильная, то вызови метод System.SetMultiByteConversionCodePage для установки правильной кодировки.

[Aibekkoke]

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

Кстати, а какая кодовая страница стоит по умолчанию?
Посмотри значение в System.DefaultSystemCodePage
Если неправильная, то вызови метод System.SetMultiByteConversionCodePage для установки правильной кодировки.

ShowMessage('Текущая кодовая страница: ' + IntToStr(System.DefaultSystemCodePage)); показывает 1251


System.SetMultiByteConversionCodePage(65001); Потом пробовал установить utf-8, тогда вместо букв какие кракозябры появилось.

И еще если записать данные из dbgrid тогда все буквы нормально отображается. А если добавить из edit-ов и combobox-ов тогда вместо казахских букв вопросительный знак. Не знаю что делать теперь:-(

[lmikle]

Ну, 1251 - это русская кодировка.
Я не знаю, для казахских букв существует отдельная кодировка или они должны быть частью русской. Еще 2 момента. Я бы проверил кодировку для не-юникодных программ в Windows (это настройка). Потом посмотри (попробуй) в TEdit в св-ве Font поставить нужный чрасет, может там собака порылась...

[Aibekkoke]

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

Ну, 1251 - это русская кодировка.
Я не знаю, для казахских букв существует отдельная кодировка или они должны быть частью русской. Еще 2 момента. Я бы проверил кодировку для не-юникодных программ в Windows (это настройка). Потом посмотри (попробуй) в TEdit в св-ве Font поставить нужный чрасет, может там собака порылась...

Для казахских букв использую utf8. И когда я пишу в делфи например в коментариях кода казахскую букву делфи сам установливает кодировку.
А если использовать базу данных acsess тогда все отлично добавляется. Не знаю уже что делать. Сколько дней сижу

[Aibekkoke]

Теперь работает:
Form3.FDQuery1.ParamByName('tabel').DataType := ftWideString;
Form3.FDQuery1.ParamByName('tabel').AsString := WideString(Edit1.Text);

[lmikle]

Ага, как и предполагалось, где-то идет конвертация в AnsiString с неправильной кодовой страницей. Только вот я не ожидал, что она в параметрах происходит.

Кстати, переводить Edit1.Text в WideString, наверное, не обязательно.
Дефолтный String, который на самом деле UnicodeString полностью совместим с WideString (собственно, это один и тот же тип).

Т.о. можно сделать что-то типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

GlavFrm.FDQuery1.SQL.Text := 'INSERT INTO Malimet (tabel, name, birthday, citizenship, nationality, gender, military_rank, photo, password) VALUES (:tabel, :name, :birthday, :citizenship, :nationality, :gender, :military_rank, :photo, :password)';   For I := 0 To GlavFrm.FDQuery1.Params.Count-1 Do   If GlavFrm.FDQuery1.Params[i].DataType = ftString Then     GlavFrm.FDQuery1.Params[i].DataType := ftWideString;   GlavFrm.FDQuery1.ParamByName('tabel').AsString := Edit1.Text; GlavFrm.FDQuery1.ParamByName('name').AsString := UTF8Encode(Edit2.Text); GlavFrm.FDQuery1.ParamByName('birthday').Value := DateTimePicker1.Date; GlavFrm.FDQuery1.ParamByName('citizenship').AsString := ComboBox1.Text; GlavFrm.FDQuery1.ParamByName('nationality').AsString := ComboBox2.Text; GlavFrm.FDQuery1.ParamByName('gender').AsString := ComboBox3.Text; GlavFrm.FDQuery1.ParamByName('military_rank').AsString := ComboBox4.Text; GlavFrm.FDQuery1.ParamByName('photo').AsString := label8.Caption; GlavFrm.FDQuery1.ParamByName('password').AsString := Edit3.Text; GlavFrm.FDQuery1.ExecSQL;

[AlexBrod]

Кстати, а какая кодовая страница стоит по умолчанию?
Посмотри значение в System.DefaultSystemCodePage
Если неправильная, то вызови метод System.SetMultiByteConversionCodePage для установки правильной кодировки.