VPF::Получить список директорий FTP - Форум программистов

maestro2k

Дата 18.6.2006, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Как получить список директорий FTP сервера пользууясь WinInet?

Mechanic

Дата 18.6.2006, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: нет
Всего: 7

Цитата(MSDN said)

Directory enumeration is performed by using the FtpFindFirstFile and InternetFindNextFile functions. FtpFindFirstFile uses the session handle created by InternetConnect to find the first file that matches the given search criteria and returns a handle to continue the directory enumeration. InternetFindNextFile uses the handle returned by FtpFindFirstFile to return the next file that matches the original search criteria. The application should continue to call InternetFindNextFile until there are no more files left in the directory.

Подробнее...

Если нужно полное дерево директорий, то как и на локальном диске - лучше всего рекурсивной функой.
FtpFindFirstFile, InternetFindNextFile по-ходу не шибко отличаются от FindFirstFile, FindNextFile.

--------------------

Tell me the extensions of the files You backup and I'll tell You who You are.. ©Mch

maestro2k

Дата 20.6.2006, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Самое главное чтоб была инфа о директориях (т.е. доступна для зписи или для чтения т.п.)
Дайте пример плиз.

maestro2k

Дата 27.8.2006, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Код


var
 FtpHandle,InetHandle, hFind: HInternet;
 s:WIN32_FIND_DATA;

procedure TForm1.Button2Click(Sender: TObject);
begin
   InetHandle := InternetOpen(PChar('FTP'), 0, nil, nil, 0);
    FtpHandle := InternetConnect(InetHandle, PChar('10.10.11.8'), 21, PChar('Anonymous'),
        PChar('qwerty.ru'), INTERNET_SERVICE_FTP, 0, 255);
   if not Assigned(FtpHandle) then
      InternetCloseHandle(InetHandle)
   else

        try
        hFind:= FtpFindFirstFile(FtpHandle, PChar('*.*'), s, FTP_TRANSFER_TYPE_BINARY, 255);
        except
        exit;
     end;
     ListBox1.Items.Add(s.cFileName + ' | ' + intToStr(s.dwFileAttributes));
     while InternetFindNextFile(hFind, @s) do
     begin
       ListBox1.Items.Add(s.cFileName + ' | ' + intToStr(s.dwFileAttributes))
     end;
  InternetCloseHandle(InetHandle);
end;

Как мне узнать возможна ли запись файла в некую директорию??? s.dwFileAttributes - возвращает помоему не то значение

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »