Проверка нового файла на ФТП

← →
Aleksei © (2008-05-05 12:28) [0]

Здравствуйте!
Допустим, есть ФТП, на нём создаётся папка с названием месяца и в ней файлы. Каждые несколько часов создаются файлы. Каждый месяц папки.
Вот мне и нужно оповещение о новых файлах!!!
Мне не нужно их выводить на форму.
Нужно чтоб прога только проверяла через каждые 30 мин и говорила, что появился новый файл.
Подключение к ФТП организовал, про таймер пока что опусти.
Главное как получить и сохранить список файлов, чтоб при последующей проверке сравнить с этим списком?

← →
Anatoly Podgoretsky © (2008-05-05 12:34) [1]

> Aleksei (05.05.2008 12:28:00) [0]

Получить LIST
Сохранить Save

← →
Aleksei © (2008-05-05 13:05) [2]

> Получить LIST
> Сохранить Save

А можно по подробней код проги

← →
Anatoly Podgoretsky © (2008-05-05 13:11) [3]

> Aleksei (05.05.2008 13:05:02) [2]

А вопрос по подробнее?
Ответ соответствует вопросу.
И не гарантирую, что в дальнейшем захочу что либо писать.

← →
Aleksei © (2008-05-05 14:47) [4]

> А вопрос по подробнее?

Ненашёл я как оформляется List.
Мне хотяб как получить список всех файлов, даже тех что в каталогах и както их сохранить, что при последующем подключении сравнивать старый список и новый.
p.s. Я начинающий

← →
AIK © (2008-05-05 15:07) [5]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19

← →
Anatoly Podgoretsky © (2008-05-05 15:15) [6]

Список строк это TStringList у него есть методы чтения и записи в файл.

← →
Aleksei © (2008-05-05 23:55) [7]

> AIK © (05.05.08 15:07) [5]
> http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19

Для ФТП это не подойдёт, только HDD.

← →
Aleksei © (2008-05-07 00:20) [8]

> Список строк это TStringList у него есть методы чтения и
> записи в файл.

Блин обыскался в инете про idFTP и ничего не подходит для решения моего вопроса.
Может кто-то просветит в данном вопросе.

p.s. Как получить список всех файлов на ФТП включая и в подкаталогах?

← →
Servy © (2008-05-07 00:32) [9]

> Как получить список всех файлов на ФТП включая и в подкаталогах?

Рекурсивно?

← →
Aleksei © (2008-05-07 10:23) [10]

> Рекурсивно?

ДА
Без рекурсии ведь целая поэма получится.

← →
Aleksei © (2008-05-08 16:32) [11]

> Список строк это TStringList у него есть методы чтения и
> записи в файл

Мне предлагают эту прогу написать за 500р. Мне не денег жалко, просто это моё желание написать её. Я обходился и могу обойтись без неё.
Мне просто интересно самому.
з.ы. похоже, никто не поможет

← →
Anatoly Podgoretsky © (2008-05-08 16:48) [12]

> Aleksei (08.05.2008 16:32:11) [11]

У тебя пока уровень недостаточный для данной работы, при том очень недостаточный. Точнее его вообще нет.

← →
anonymouse (2008-05-08 17:01) [13]

Удалено модератором
Примечание: Не тявкать

← →
Aleksei © (2008-05-08 20:57) [14]

> У тебя пока уровень недостаточный для данной работы, при
> том очень недостаточный. Точнее его вообще нет.

Значит, предлагаешь и не пытаться?
Тогда можно тему закрывать. Или даже вообще удалить, она никому ничего полезного не принесёт.
Всем спасибо кто пытался помочь.

← →
palva © (2008-05-08 21:50) [15]

> Значит, предлагаешь и не пытаться?

Кто же такое предлагает? Сначала надо научиться делать простые вещи - без затруднений придумывать структуры данных, рекурсивно их обрабатывать, потом можно потренироваться на директории локального диска, ну а потом FTP.

← →
Плохиш © (2008-05-09 12:04) [16]

> Aleksei © (05.05.08 13:05) [2]
> А можно по подробней код проги

> Aleksei © (08.05.08 16:32) [11]
> Мне просто интересно самому.

Что-то эти фразы как-то между собой не совмещаются.

> Кто же такое предлагает? Сначала надо научиться делать простые
> вещи - без затруднений придумывать структуры данных, рекурсивно
> их обрабатывать, потом можно потренироваться на директории
> локального диска, ну а потом FTP.

Это всё я уже прошёл. И перешёл на FTP, темболее для работы пригодилось бы.

кто может про коментировать каждую строку (что делает).
procedure TMainForm.ChageDir(DirName: string); var LS: TStringList; begin LS:=TStringList.Create; try IdFTP1.ChangeDir(DirName); IdFTP1.TransferType:=ftASCII; CurrentDirEdit.Text:=IdFTP1.RetrieveCurrentDir; DirectoryListBox.Items.Clear; IdFTP1.List(LS); DirectoryListBox.Items.Assign(LS); if DirectoryListBox.Items.Count>0 then if AnsiPos("total", DirectoryListBox.Items[0])>0 then DirectoryListBox.Items.Delete(0); finally LS.Free; end; end; procedure TMainForm.DirectoryListBoxDblClick(Sender: TObject); var Name: string; begin if not IdFTP1.Connected then Exit; Name:=IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].FileName; if IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].ItemType=ditDirectory then ChageDir(Name) else begin IdFTP1.TransferType:=ftBinary; BytesToTransfer:=IdFTP1.Size(Name); end end; procedure TMainForm.DirectoryListBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin if Assigned(IdFTP1.DirectoryListing) and (IdFTP1.DirectoryListing.Count>Index) then begin DirectoryListBox.Canvas.FillRect(Rect); with IdFTP1.DirectoryListing.Items[Index] do begin DirectoryListBox.Canvas.TextOut(Rect.Left, Rect.Top, FileName); end; end; end;

> Aleksei © (12.05.08 22:49) [18]

> кто может про коментировать каждую строку (что делает).

Допустим. Всего $100/час.

--
Regards, LVT.

> кто может про коментировать каждую строку (что делает).

Да любой программист может, если он знает паскаль и в состоянии прочитать документацию по Indy.

А я могу прокомментировать приведенную цитату. Комментировать пишется с двумя м.

за 500 р. лучше не покупай - намучаешся с ней больше :)

если фтп свой пиши на него сервер который будет по запросу выдавать нужную инфу

← →
Mozgan (2008-05-14 14:11) [22]

Объясню....

procedure TForm1.Button1Click(Sender: TObject); var List: TStringList; //Объявляем класс begin list:= TStringList.Create; //создаем список List.Add("Первая строчка"); //добавляем строки в список List.Add("Вторая строчка"); List.Add("третья строчка"); List.Add("Четветая строчка"); List.Add("Пятая строчка"); List.SaveToFile("C:\MyList.txt"); //сохраняем список в файл List.Free; //освобождаем end;

> Mozgan (14.05.08 14:11) [22]
> Объясню....

А зачем мне это? Я умею создавайть файл.

Мне нужно получить список всего с фтп.
А там уже буду мучатся каким способом лучше сделать сравнение списков.

Проверка нового файла на ФТП Найти похожие ветки