через определенный промежуток времени искать файлы в папке с раширением doc, архивировать и высылать на e-mail

[Luxoff]

Имеется в конторе машина, с расшаренной папкой, куда работники в течении дня скидывают информацию по сети (.doc и .pdf), машина с расшаренным диском имеет доступ в инет. Работаю с ней удаленно (забираю информацию через ФТП). Появилось желание написать прогу, которая будет через определенный промежуток времени искать файлы в папке с раширением doc, архивировать и высылать мне на мыло (тогда я могу с ними работать с телефона). Файлы носят одно и тоже названия, просто новая информация в них вносится и сохраняется. Было бы не плохо - если бы программа работала в фоновом режиме, и не особо грузила машину =)

В Делфи полный ноль, пытаюсь учится на конкретных примерах =) Если кто то решит помочь, подскажите по шагам. На данный момент мне подсказали код

procedure TForm1.Button1Click(Sender: TObject);
Var SR:TSearchRec;
    FindRes:Integer;
    str:Pchar;
begin
FindRes:=FindFirst('C:\*.txt',faAnyFile,SR);
While FindRes=0 do
   begin
     if (sr.Attr and faDirectory)<> faDirectory then
      begin
 
        label1.Caption:=label1.Caption+sr.Name+#13#10;
        WinExec( Pchar('C:\Program Files\WinRAR\WinRAR.exe a -ep1 -r0 -- C:\Autoexec.rar C:\'+Pchar(sr.Name)), SW_hide);
      end;
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end;

но куда его и как вставить, не совсем понял =)

[MotoArhangel]

Так бы и писал. Напишите за меня программу
А вот как отправить на маил:
1. Использовать Indy: TidSMTPClient, TidMessage
2. Использовать SimpleMAPI.
Примеров в интернете полно.
Либо глянь тут:
Пример на форуме

Хочешь научиться пользоваться Делфи?
1. Скачай Lazarus
Lazarus-Это...
Предлагаю так как он для тебя будет понятнее.
2.Читаем Краткий курс собственного производства
3. Выполняем необходимые задания.

[Stilet]

куда работники в течении дня скидывают информацию по сети

А не проще дать работникам выход на e-mail через прокси сервер, и пусть сами скидывают на твою почту файлы?

Было бы не плохо - если бы программа работала в фоновом режиме, и не особо грузила машину =)

Кстати ты решил проблему с определением события появления в папке нового файла? Это тоже не так однозначно.

[Luxoff]

Сообщение от MotoArhangel

Так бы и писал. Напишите за меня программу

Не совсем так - хочется написать самому, но к сожалению познаний мало =)
Спасибо за линки!

Сообщение от Stilet

А не проще дать работникам выход на e-mail через прокси сервер, и пусть сами скидывают на твою почту файлы?

Кстати ты решил проблему с определением события появления в папке нового файла? Это тоже не так однозначно.

Начальство категорически не предоставляет им доступ в инет. Переубеждать не получается. По событиям не думал. В целом таи имеются файлы, название которых не меняется - в них вносится изменения и новая информация. Именно новых не предвидится.

[Luxoff]

Сообщение от Luxoff

Не совсем так - хочется написать самому, но к сожалению познаний мало =)
Спасибо за линки!



Начальство категорически не предоставляет им доступ в инет. Переубеждать не получается. По событиям не думал. В целом таи имеются файлы, название которых не меняется - в них вносится изменения и новая информация. Именно новых не предвидится.

PS Поставил Lazarus, поставил indy, но не могу обнаружить idPOP3 и вкладки IndyClients. Ставил по факу http://freepascal.ru/article/lazarus/20100812185950/