[Dreammaster]

Доброго времени суток. С утра встала проблема: как заставить 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));

MAD: пользуётесь тегами.
Пробовал и через переменную типа a:ansistring;
Ничего не помогает. Как ни верти, на выходе, после декода вместо кириллицы, знаки вопроса. Помогите с кодом, у меня уже мозг болит от этих кодировок. ((

[poli-smen]

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

Ничего не помогает. Как ни верти, на выходе, после декода вместо кириллицы, знаки вопроса. Помогите с кодом, у меня уже мозг болит от этих кодировок. ((

Похоже что Indy на юникодных Delphi некорректно работает с base64.
К сообщению прикладываю исходник который нормально кодирует/декодирует base64 - проверил на Delphi XE2.
Там всего 2 функции, думаю разберёшься

p.s. Сам исходник не мой, я его взял отсюда: Процедуры кодирования и декодирования Base64, но доработал чтобы он корректно работал и на юникодных версиях Delphi.

[Dreammaster]

Благодарю! Выручили. Всё отлично работает.