Вместо нормального текста приходит это:<p>Обратная СЃРІСЏР·СЊ<br />
Прочитал много много всего на разобраться та и не могу ХЕЛП
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | procedure TForm1.Button1Click(Sender: TObject);
var
mailcicl:integer;
begin
IdPOP31.Connect;
IdMessage1.clear;
Memo1.Clear;
IdPOP31.Retrieve(1,IdMessage1);
Label3.Caption:=UTF8Decode(IdMessage1.Subject);
Label5.Caption:=FormatDateTime('dd mmm yyyy hh:mm:ss', idmessage1.Date);
Memo1.Lines.AddStrings(IdMessage1.Body);
Memo1.Lines.SaveToFile(inttostr(mailcicl)+'.txt');
IdPOP31.Delete(mailcicl);
idPOP31.disconnect;
end;
|
В сохраненном тестовом файле отобрааеться все нормально
10.01.2013, 13:58
Проблемы с кодировкой UTF8
Древовидный вид