Главная страница
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.018 c
1-36669
TSa
2003-12-02 19:54
2003.12.12
Проход по компонетам


1-36616
Urvin
2003-12-01 11:05
2003.12.12
Перенос и переносимость


8-36774
Sergeys
2003-08-16 13:39
2003.12.12
С микшировать два битмапа


3-36513
BlackCat
2003-11-21 20:22
2003.12.12
Как распознать запись...


3-36503
Danilas
2003-11-21 18:23
2003.12.12
Пишу такой текст: datamodule2.Query4.Fields