| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
NMPOP3 Как убрать
czuryk © (2003-11-02 17:48:00)
после выполнения что-то похожее на это:
text:=NMPOP1.MailMessage.Body.Text;
русскоязычные письма выглядят ужасно в koi8-r но даже после дешифровки нестановится лучше... так как кто-то их кромсает, т.е.
если было:
123456789<enter>
то становится:
123456<enter>
789<enter>
czuryk (2003-11-07 18:48:00) [1]
процедура отправки - The Bat or Any mailer
процедура получения -
procedure TForm1.CheckMail;
var
savepath: string;
i, id: integer;
begin
EventLog("Connect to Mail Server");
try
NMPOP1.Connect;
except
EventLog("Connection Failure");
end;
if (NMPOP1.Connected=true) then
begin
if (NMPOP1.MailCount <= 0) then
EventLog("Mail Box is Empty")
else
begin
for i:=1 to NMPOP1.MailCount do
begin
EventLog("Recieve Mail № "+ inttostr(i));
NMPOP1.GetMailMessage(i);
if not CheckDuplicate(NMPOP1.MailMessage.Subject) then
begin
TotalMails:=TotalMails+1;
Froms[TotalMails]:=GetValidFrom(NMPOP1.MailMessage.Head.Text); // выгребания поля from
Subjs[TotalMails]:=NMPOP1.MailMessage.Subject;
Bodys[TotalMails]:=ParseText(NMPOP1.MailMessage.Body.Text); //здесь идет набор процедур по парсингу текста
EventLog("Mail № "+ inttostr(i) +" is valid");
SaveSubj(NMPOP1.MailMessage.Subject);
end;
// NMPOP1.DeleteMailMessage(i); info("удаляем обработанное письмо из ящика");
///!!!!///// delfiles(Path + "\tmail","*.*");
end;
end;
EventLog("Mail Check Finished");
end;
NMPOP1.Disconnect;
end;
в будущем я переделаю немножно код с учетом того чтобы сначала он получал только поле от кого и сабж и только если условия нас удовлетворили, он сгребал был (а)
Rouse_ (2003-11-02 18:26:00) [2]
Хм... очень похоже на недостаток выпрямителя...
Приведи код отправки - получения...
Желаю успехов
Rouse_ (2003-11-02 18:25:00) [3]
Хм... очень похоже на недостаток выпрямителя...
Приведи код отправки - получения...
Желаю успехов
| |
