Доброго времени суток. С утра встала проблема: как заставить 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;
Ничего не помогает. Как ни верти, на выходе, после декода вместо кириллицы, знаки вопроса.
Помогите с кодом, у меня уже мозг болит от этих кодировок. ((