Текущий архив: 2004.01.09;
Скачать: CL | DM;
Вниз
NMPOP3 Как убрать Найти похожие ветки
← →
czuryk © (2003-11-02 17:48) [0]после выполнения что-то похожее на это:
text:=NMPOP1.MailMessage.Body.Text;
русскоязычные письма выглядят ужасно в koi8-r но даже после дешифровки нестановится лучше... так как кто-то их кромсает, т.е.
если было:
123456789<enter>
то становится:
123456<enter>
789<enter>
← →
Rouse_ © (2003-11-02 18:25) [1]Хм... очень похоже на недостаток выпрямителя...
Приведи код отправки - получения...
Желаю успехов
← →
Rouse_ © (2003-11-02 18:26) [2]Хм... очень похоже на недостаток выпрямителя...
Приведи код отправки - получения...
Желаю успехов
← →
czuryk © (2003-11-07 18:48) [3]процедура отправки - 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;
в будущем я переделаю немножно код с учетом того чтобы сначала он получал только поле от кого и сабж и только если условия нас удовлетворили, он сгребал был (а)
Страницы: 1 вся ветка
Текущий архив: 2004.01.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
