IdFTP:получить список с иконками

[tiger]

хотел в список ListView получить список файлов с определенной директории ftp сервера вместе с иконками и типом файла. пробовал по-разному через SHGetFileInfo, но оно у меня ничего не выводит вот код, если знаете подскажите пожалуйста!

procedure TForm1.FindFiles(direc:string);
  var
  LS: TStringList;
  i:integer;
  Icon: TIcon;
  ListItem: TListItem;
  FileInfo: SHFILEINFO;
    begin
    LS := TStringList.Create;
    IdFTP1.ChangeDir(direc);
    IdFTP1.TransferType := ftASCII;
    Dir.Text := IdFTP1.RetrieveCurrentDir;
    ListView1.Items.Clear;
    Icon := TIcon.Create;
    ListView1.Items.BeginUpdate;
    IdFTP1.List(LS);
      for i:=0 to IdFtp1.DirectoryListing.Count-1 do
       begin
        with ListView1.Items.Add do
        begin
        Caption:=IdFtp1.DirectoryListing.Items[i].FileName;
        SubItems.Add(inttostr(IdFtp1.DirectoryListing.Items[i].Size));
        SHGetFileInfo(PChar(IdFtp1.DirectoryListing.Items[i].FileName), 0, FileInfo,SizeOf(FileInfo), SHGFI_TYPENAME);
        SubItems.Add(FileInfo.szTypeName);
       SubItems.Add(DatetoStr(IdFtp1.DirectoryListing.Items[i].ModifiedDate));
       SubItems.Add(IdFtp1.DirectoryListing.Items[i].UserPermissions);
       SubItems.Add(IdFtp1.DirectoryListing.Items[i].OwnerPermissions);
      SHGetFileInfo(PAnsiChar(IdFtp1.DirectoryListing.Items[i].FileName), 0, FileInfo,SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
      icon.Handle := FileInfo.hIcon;
      ImageIndex := ImageList1.AddIcon(Icon);
      DestroyIcon(FileInfo.hIcon);
  end;
     end;
    ListView1.Items.EndUpdate;
    LS.Free;
end;

[X11]

Ты определись в чём проблема. То ли проблема в получении файла, то ли проблема в рисовании значка в ListView

[tiger]

Сообщение от X11

Ты определись в чём проблема. То ли проблема в получении файла, то ли проблема в рисовании значка в ListView

в получении иконок к файлам проблема! со списками все нормально.

[Stilet]

в получении иконок к файлам проблема!

Вполне логичная проблема.
Дело в том что обычно иконки к файлам прописаны в реестре, где указано, какому расширению какая иконка пренадлежит. Но эти записи могу быть разные на разных компьютерах. Там откуда ты получаешь на некое расширение может быть привязана иконка, некой программы, которой у тебя нет. Так что я бы на твоем месте либо совместил список иконок своей машины со списком иконок на удаленной машине именно того сеанса, у которого ты файлы исследуешь, либо забыл об идее иконок, как о нестабильной.

[X11]

Сообщение от tiger

в получении иконок к файлам проблема! со списками все нормально.

Тогда ты ошибся разделом.


А по твоему вопросу уверен, что здесь есть ответ.