Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

FindFirst в сети [D7]

SergProger © (2005-12-25 16:22:00)
Люди, помогите! Вот есть инет-адрес, например, www.yandex.ru, так вот как составить список всех файлов, имеющихся в этой папке. С файлами на компе всё просто - используется FindFirst, FindNext и т.д. Есть ли аналоги этим процедурам для сети?

vidiv (2005-12-26 08:20:00) [1]
Перечислить файлы находящиеся в папке веб-сервера в общем случаеневозможно

menart (2005-12-26 07:02:00) [2]
Тебе нужен HTML парсер и вылавливать ссылки.
Я так понял тебе нужен offline закачик, типа offline exploer'а

Eraser (2005-12-26 01:09:00) [3]

> SergProger © (25.12.05 16:22)

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

Нету.

Anatoly Podgoretsky (2005-12-25 17:12:00) [4]
И где тут FindFirst?

SergProger (2005-12-25 16:59:00) [5]
Вот есть у меня код:

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 16:31:00) [6]
Точно также если протокол SMB

jack128 (2005-12-25 16:26:00) [7]
SergProger © (25.12.05 16:22)
например, www.yandex.ru, так вот как составить список всех файлов, имеющихся в этой папке
www.yandex.ru - это папка?? Круто

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »