Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

9th
Апр

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

Posted by key under Заметки

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

Код:


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. Выполняем необходимые задания.

Вложения

Lazarus.rar (616.8 Кб, 10 просмотров)

Stilet

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

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

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

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

Luxoff

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

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

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

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: