Сеть и почта!!!

← →
sportman © (2006-09-10 22:11) [0]

Имеется задача – нужно написать прогу, которая бы выполняла следующую задачу: программа устанавливается на одном компе (сервере или обычном компе) ее функция собрать файлы (документы ворда, т.е. doc-файлы) со всех компов находящихся в сети из определенного каталога (на всех компах прописан по одному и тому же пути) и подготовить к отправке в The Bat или Оутлук (если есть разница в подготовке к отправке между почтовиками, то объясните в чем), причем название doc-файла должно стать «Темой письма». Особенность программы состоит в том, что она должна работать в течение всего рабочего дня, т.е. не выключаясь и при этом должен быть организован т.н. автопроцессинг, т.е. через определенные промежутки времени (задаваемые пользователем) программа автоматически проверяет все компы. Так же файл, который программа подготовила к отправке, должен быть перенесен на комп, где установлена прога в определенный каталог (например по названию того компа, с которого файл был забран).
Сам я не очень разбираюсь в Делфи, поэтому у меня просьба к людям для которых этот язык является роднее русского – напишите какие компоненты и функции потребуются для создания этой проги (желательно, но не обязательно примерно так: «function_1» - для чтения из файла и т.п.). Я конечно понимаю, что это полный наглеж, но без вашей помощи мне не обойтись!!!

← →
Zeqfreed © (2006-09-10 22:16) [1]

> [0] sportman © (10.09.06 22:11)

Боюсь, что список не поможет. Хотя, если сильно надо, то открывай индекс справки и читай все подряд.

← →
Ганна Юхимівна (2006-09-11 10:36) [2]

> напишите какие компоненты и функции потребуются для создания
> этой проги

Потребуются три-четыре Франклина...

программа автоматически проверяет все компы
Это не правильно. И не вижу смысл в такую программу
Но, если ты решил зделать такую прогу, могу дать тебе 2 функций из Кулибы

procedure GetDirectories(const DirStr : string; ListBox : TListBox); var DirInfo: TSearchRec; r : Integer; begin r := FindFirst(DirStr + "\*.*", FaDirectory, DirInfo); while r = 0 do begin Application.ProcessMessages; if ((DirInfo.Attr and FaDirectory = FaDirectory) and (DirInfo.Name <> ".") and (DirInfo.Name <> "..")) then ListBox.Items.Add(DirStr + "\" + DirInfo.Name); r := FindNext(DirInfo); end; SysUtils.FindClose(DirInfo); end;
procedure GetFiles(const DirStr : string; ListBox : TListBox); var DirInfo: TSearchRec; r : Integer; begin r := FindFirst(DirStr + "\*.*", FaAnyfile, DirInfo); while r = 0 do begin Application.ProcessMessages; if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then ListBox.Items.Add(DirStr + "\" + DirInfo.Name); r := FindNext(DirInfo); end; SysUtils.FindClose(DirInfo); end;

Сеть и почта!!! Найти похожие ветки