Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.12;
Скачать: CL | DM;

Вниз

Уважаемые мастера !! вот с такой проблемой столкнулся нужно по PO   Найти похожие ветки 

 
LOGic ©   (2003-10-15 14:57) [0]

Уважаемые мастера !! вот с такой проблемой столкнулся нужно по POP3 получить с почтового сервера файл упакованный раром и положить его в каталог. Стандартная компонента NMPOP3 может принять только текстовый файл а рар-архив рушит.
Использую для этого Indy. Но не как не могу разобраться. Помогите куском кода для этого задания. С уважением.


 
FoxBox   (2003-10-15 17:19) [1]

POP:TNMPOP3 - поставь компонент на форму

var
messagecount,mm,i:integer;
CurrentServer,CurrentLogin,CurrentPassword:string;

---
pop.host:=CurrentServer;
pop.UserID:=CurrentLogin;
pop.password:=CurrentPassword;
pop.deleteonread:=mustclear; {true/false - на выбор}
try
pop.connect;
if pop.connected then begin
label4.caption:="Connected, checking new messages...";
messagecount:=pop.mailcount;
if messagecount>0 then begin
label4.caption:=CurrentServer+"/"+currentlogin+": Received "+inttostr(messagecount)+" new messages";
label4.update;
mm:=1;
while mm<=messagecount do begin
pop.getmailmessage(mm); // Получаем текущее сообщение
mess.lines.clear;
mess.text:=pop.mailmessage.body.text; // это тело
// А файло положится туда, на что указывается AttachFilePath
......
Ковыряемся с мылом, если надо
......
inc(mm); // берем следующее сообщение
end;
end
else begin
label4.caption:="No new messages";
label4.update;
end;
label4.Caption:="Disconnecting...";
label4.update;
pop.disconnect;
------------------
В-общем, коду лет много но должОн работать, если не нравится или глючит - уж извини, под рукой ничего другого нет...



Страницы: 1 вся ветка

Текущий архив: 2003.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
14-36825
Думкин
2003-11-19 04:29
2003.12.12
С днем рождения! 19 ноября.


11-36586
Slay
2003-03-31 01:40
2003.12.12
object & property


3-36511
KPPL
2003-11-22 22:16
2003.12.12
DB


14-36834
RealRascal
2003-11-16 11:38
2003.12.12
---<<< Скорость кода >>>---


6-36791
Avers
2003-10-11 18:12
2003.12.12
Ув. мастера, как разместить файл на FTP сервере.