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)

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

Нету.

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

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

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