Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Скачать файлы с сайта

Автор: Budy 16.6.2005, 18:14

:Приветствую
У меня возникла неб. проблема, мне необходимо со своего сайта закачать на комп все чего там есть. Файлов много и по одному их долго "сохранять". По фтп тоже не выход - трафик по времени. Осталась посл решение, написать прогу:
Обычно для копирования файлов я пользуюсь такой штукой:

Код


procedure CopyThis(Dir,FName: string);
begin
//Проверяем есть ли папка (если нету - создаем) и копируем файл 
end;

procedure copyfiles(dir: string);
var
  f: TSearchRec;    
begin
  if FindFirst(dir+'*.*',faAnyFile,F)=0 then
  repeat
    if(F.Name<>'.')and(F.Name<>'..')then
      begin
        if F.Attr=faDirectory then copyfiles(dir+f.Name+'\')else
          CopyThis(dir,f.Name);
      end;
  until FindNext(F)<>0;
end;

Дык вот, подскажите плз, как мона с сайта так копировать. Ну или как то подругому? Очень очень прошу, помогите!

Автор: _hunter 16.6.2005, 18:33

не совсем понятно что нужно ( особенно учитывая "По фтп тоже не выход - трафик по времени" )
интересует как с сайта файл забрать или как его забрать бесплатно? ;)

Автор: z-END 16.6.2005, 18:34

Цитата(Budy @ 16.6.2005, 19:14)

По фтп тоже не выход - трафик по времени

передача по фтп дает самый маленький прирост размера. так что, раз ты решил писать прогу, то пиши фтп клиент. smile

Автор: RA 16.6.2005, 22:33

Мда.
http://shop.mariuana.it/images/ganjarock_candies.jpg

Автор: Poseidon 18.6.2005, 01:43

Цитата(Budy @ 16.6.2005, 18:14)

Дык вот, подскажите плз, как мона с сайта так копировать

Насчет закачки файла с сети посмотри тут: http://vingrad.ru/DELPHI-DLP-001025
А вот насчет того, что бы получить ссыку на все имеющиеся файлы, то нужно подумать. smile

А не проще воспользоваться каким-нибудь "качком"? Телепортом например или тем же ФлешГетом (он же вроде так умеет, хотя...)

RAdmin, это к чему было?

Автор: RA 18.6.2005, 02:14

Poseidon Я снача тоже хотел ответить на этот вопрос, а потом внимательно его перечитал. smile

Вопрос нужно в юмор перенести.

Автор: Poseidon 18.6.2005, 02:25

Да, не спорю, ситуация смешная. Но вдруг Budy не до смеха smile

(простите, не выдержал) и ему срочняк нужна помощь smile

? В общем не будем флудить! Если перенесут тему в юмор, тогда и оторвемся, а сейчас примем серьезный вид и загрузим Дельфи smile

.А то если так над каждым вопросом смеятся, то ничего хорошего не выйдет smile

Автор: Budy 1.7.2005, 09:08

Ага, вовсе не смешно, двайте лучше думать как их скачать то?!

Автор: RA 1.7.2005, 09:44

Budy Никак. Ведь у тебя нет доступа в Интернет через другие сети типа x25 или Fidonet. Такчто халявно тебе их не скачать. smile

Автор: _hunter 1.7.2005, 10:04

Budy, скачать КАК?

Автор: RA 1.7.2005, 10:06

_hunter Халявно как еще.

Автор: Budy 3.7.2005, 15:19

_hunter, RAdmin, то есть никак?
Добавлено @ 15:20
ЗЫ.Я конечно чего надо уже скачал, но все же вопрос остается все еще в силе!

Автор: SoWa 4.7.2005, 10:00

Вот что: Пускай на сайте лежит файл с описанием и адресами других файлов. Качаешь его, а потом узнав инфу, все остальные.