|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Кириллица в Base64
Доброго времени суток. С утра встала проблема: как заставить base64 кодить/декодить содержимое richedit, написанное кириллицей.
Пробовал так: Код:
procedure TForm1.FormCreate(Sender: TObject); begin With Richedit2 do begin SelAttributes.Name:= 'Windows-1251'; // UTF8, ANSI SelAttributes.Charset:= RUSSIAN_CHARSET; end; end; Еще пробовал так: Richedit2.Text:= utf8toansi(IdEncoderMIME1.Encode(Richedit2.Text)); Richedit2.Text:= utf8toansi(IdDecoderMIME1.DecodeString(Richedit2.Text)); Пробовал и через переменную типа a:ansistring; Ничего не помогает. Как ни верти, на выходе, после декода вместо кириллицы, знаки вопроса. Помогите с кодом, у меня уже мозг болит от этих кодировок. (( Последний раз редактировалось M.A.D.M.A.N., 11.06.2014 в 13:48. |
#2
|
||||
|
||||
Цитата:
К сообщению прикладываю исходник который нормально кодирует/декодирует base64 - проверил на Delphi XE2. Там всего 2 функции, думаю разберёшься p.s. Сам исходник не мой, я его взял отсюда: Процедуры кодирования и декодирования Base64, но доработал чтобы он корректно работал и на юникодных версиях Delphi. |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Dreammaster (11.06.2014)
|
#3
|
|||
|
|||
Благодарю! Выручили. Всё отлично работает.
|