Форум: "Прочее";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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


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

---

← →
alles ©   (2006-09-11 16:56) [3]

программа автоматически проверяет все компы
Это не правильно. И не вижу смысл в такую программу
Но, если ты решил зделать такую прогу, могу дать тебе 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;


---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c