|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблемы с кодировкой UTF8
Вместо нормального текста приходит это:<p>Обратная СЃРІСЏР·СЊ<br />
Прочитал много много всего на разобраться та и не могу ХЕЛП Код:
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; В сохраненном тестовом файле отобрааеться все нормально |
#2
|
|||
|
|||
попробуй так
Memo1.Lines.AddStrings(IdMessage1.Body); Memo1.text:=Utf8ToAnsi(Memo1.text); |
Этот пользователь сказал Спасибо Snake22 за это полезное сообщение: | ||
DD12 (10.01.2013)
|
#3
|
|||
|
|||
Спасибо огромное!
|
#4
|
|||
|
|||
Label3.Caption:=IdMessage1.Subject;
как сделать? |