Форум: "Сети";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];
ВнизTIdPOP3 просмотр содержимого в разных кодировках... Найти похожие ветки
← →
brother (2007-12-17 11:36) [0]Подключаюсь к серверу pop3.mal.ru
получаю IdPOP31.RetrieveHeader(n, IdMessage1)
некоторые письма читабельны, но вот некоторые:
?koi8-r?Q?=E1=CE=CE=C1_=E9=D7=C1=CE=CF=D7=C1?=
?UTF-8?B?0JfQvdCw0LrQvtC80YHRgtCy0LAg0L3QsCBZb3VyTG92ZS5ydQ==?=
как я понимаю, Id компонент не может работать с этими кодировками? Что можно сделать? Неужели перекодировку в win1251 реализовывать вручную?
← →
brother (2007-12-17 12:04) [1]привожу код:
var n:integer;
max_msg:integer;
begin
IdMessage1.CharSet:="windows-1251";
IdMessage1.ContentDisposition:="creation-date";
IdMessage1.ContentTransferEncoding:="Base64";
IdMessage1.ContentType:="text/plain";
IdMessage1.Encoding:=meMIME;
IdPOP31.Host:="pop3.mail.ru";
IdPOP31.Port:=110;
IdPOP31.Username:="";
IdPOP31.Password:="";
try
IdPOP31.Connect;
except
memo1.Lines.Add("Error connection!");
end;
if IdPOP31.Connected then
begin
max_msg:=IdPOP31.CheckMessages;
memo1.Lines.Add("Всего сообщений: "+inttostr(max_msg));
for n:=max_msg-2 to max_msg do
if IdPOP31.Connected then
begin
IdMessage1.Clear;
IdPOP31.RetrieveHeader(n, IdMessage1);
memo1.Lines.Add("["+inttostr(n)+"] From: "+IdMessage1.From.Text);
memo1.Lines.Add("Recipients: "+IdMessage1.Recipients.EmailAddresses);
memo1.Lines.Add("CCList: "+IdMessage1.CCList.EMailAddresses);
memo1.Lines.Add("Subject: "+IdMessage1.Subject);
memo1.Lines.Add("Date: "+FormatDateTime("dd mmm yyyy hh:mm:ss", IdMessage1.Date));
memo1.Lines.Add("ReceiptRecipient: "+IdMessage1.ReceiptRecipient.Text);
memo1.Lines.Add("Organization: "+IdMessage1.Organization);
end;
IdPOP31.Disconnect;
end;
Не ужели никто с этим не сталкивался??? Ну подскажите хоть куда копать! Только не ручную перекодировку)))
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c