Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.048 c