Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

FindFirst в сети   Найти похожие ветки 

 
SergProger ©   (2005-12-25 16:22) [0]

Люди, помогите! Вот есть инет-адрес, например, www.yandex.ru, так вот как составить список всех файлов, имеющихся в этой папке. С файлами на компе всё просто - используется FindFirst, FindNext и т.д. Есть ли аналоги этим процедурам для сети?


 
jack128 ©   (2005-12-25 16:26) [1]

SergProger ©   (25.12.05 16:22)
например, www.yandex.ru, так вот как составить список всех файлов, имеющихся в этой папке

www.yandex.ru - это папка?? Круто


 
Anatoly Podgoretsky ©   (2005-12-25 16:31) [2]

Точно также если протокол SMB


 
SergProger ©   (2005-12-25 16:59) [3]

Вот есть у меня код:

uses
 WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var
 hSession, hURL: Pointer;
 Buffer: array [1..1024] of Byte;
 F: File;
 sAppName: String;
 BufferLen: Cardinal;
begin
 sAppName:=ExtractFileName(Application.ExeName);
 hSession:=InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
   nil, nil, 0);
 try
   hURL:=InternetOpenURL(hSession, PChar(Edit1.Text), nil, 0, 0, 0);
   try
     AssignFile(F, Edit2.Text);
     Rewrite(F, 1);
     Repeat
       InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
       BlockWrite(F, Buffer, BufferLen);
     Until BufferLen = 0;
     CloseFile(f);
   finally
     InternetCloseHandle(hURL);
   end;
 finally
   InternetCloseHandle(hSession);
 end;
end;

Он качает только один файл, а как его применить для целой папки?


 
Anatoly Podgoretsky ©   (2005-12-25 17:12) [4]

И где тут FindFirst?


 
Eraser ©   (2005-12-26 01:09) [5]


> SergProger ©   (25.12.05 16:22)


>  Есть ли аналоги этим процедурам для сети?

Нету.


 
menart ©   (2005-12-26 07:02) [6]

Тебе нужен HTML парсер и вылавливать ссылки.
Я так понял тебе нужен offline закачик, типа offline exploer"а


 
vidiv ©   (2005-12-26 08:20) [7]

Перечислить файлы находящиеся в папке веб-сервера в общем случае невозможно



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

Текущий архив: 2006.01.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.081 c
10-1110973750
OlegM
2005-03-16 14:49
2006.01.15
Как в Excele ширину колонок задавать в пикслях?


14-1134722550
Daria
2005-12-16 11:42
2006.01.15
telnet


14-1135080322
director_filiala
2005-12-20 15:05
2006.01.15
Как купить пакет ПО Delphi


14-1135025224
ArtemESC
2005-12-19 23:47
2006.01.15
Словари и оболочки...


2-1135325317
bva
2005-12-23 11:08
2006.01.15
Отключить программно Ctrl+Alt+Del