Форум: "Сети";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.032 c