Форум: "Сети";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Вниз
Уважаемые мастера !! вот с такой проблемой столкнулся нужно по 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c