На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> FtpFindFirstFile не находит файлы на сервере
    Процедура не находит файлы на сервере. Где я ошибся?

    ExpandedWrap disabled
      procedure RemoteUpdateListing;
      var
        F: TWin32FindData;
        Enum: HInternet;
        R: Bool;
        Item: TListItem;
        Icon: TIcon;
        FileName: string;
        FileSize: Integer;
      begin
        Icon := nil;
        Enum := nil;
        Form1.RemoteListView.Items.BeginUpdate;
        try
          Icon := TIcon.Create;
      //    ClearRemoteImageList;
          Form1.RemoteListView.Items.Clear;
          if FRemotePath <> '/' then
          begin
            Item := Form1.RemoteListView.Items.Add;
            Item.Caption := '..';
            Item.SubItems.Add('');
            Item.SubItems.Add('File Folder');
            Item.ImageIndex := 0;
          end;
          Enum := FtpFindFirstFile(FtpHandle, PChar(FRemotePath + '*.*'), F, 0, 255);
          R := Enum <> nil;
          while R do
          begin
            FileName := F.cFileName;
            Item := Form1.RemoteListView.Items.Add;
            Item.Caption := FileName;
            FileSize := (F.nFileSizeHigh shl 32) or (F.nFileSizeLow);
            if F.dwFileAttributes and faDirectory = faDirectory then
            begin
              Item.SubItems.Add('');
              Item.SubItems.Add('File Folder');
              Item.ImageIndex := 0;
            end
            else begin
              Item.SubItems.Add(FileSizeToString(FileSize));
              Item.SubItems.Add(GetFileTypeDescription(FRemotePath + FileName, True));
              Icon.Handle := GetFileTypeIcon(FRemotePath + FileName, True);
              Item.ImageIndex := Form1.RemoteViewImages.AddIcon(Icon);
            end;
            R := InternetFindNextFile(Enum, @F);
          end;
        finally
          InternetCloseHandle(Enum);
          Form1.RemoteListView.Items.EndUpdate;
        //  FreeAndNil(Icon);
        end;
      end;
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0171 ]   [ 17 queries used ]   [ Generated: 28.03.24, 09:17 GMT ]