виртуальные файлы и папки по текстам

[KWNlnc]

делаю уделеный доступ.

получаю адреса к файлам и папкам. примерно так...

C:\
Documents and Settings\
Program Files\
WINDOWS\

как мне это все реализовать в вируальных папках.

скажем чтобы это было так... как будто я копаюсь у себя в компьютере. (проводник) а не путями в memo1

??? помогите....

[W0LF]

Поддержую, хотел бы узнать как такое зделать...

[Человек_Борща]

Мои мысли:
взять TreeView ..
читать каталоги на клиенте(где-то там)...
первое название это имя каталога в дереве..
Все что после / это подкаталоги..
инфу на сервере в обработку...

к примеру так..
Клиент забирает пути каталогов..
те же
C:\
Documents and Settings\
Program Files\
WINDOWS\

посылает на сервер в обработчик..
Обрабатывет..
Первое это имя ветки..
на примере C:\Windows
C:\ становиться иминем ветки...
все что после \ становится под каталогами...
и частями ветви..
так можно сформировать проводник на сервере...

а при переходе по ветви формировать строковые ссылки..
из
С:\ --|
|-Windows

в c:\windows и посылать на клиент..

это мои мысли...
Но думаю это реально.

[raxp]

...это возможно ...пробуйте, UDP файловый менеджер ...сервер-клиент (собственно, различия нет) ...функционал определения размера файлов-каталогов не добавлен, реализация на начальном уровне, руки так и не дошли делалось для работы со второй машиной по радиоканалу, пока не появился anyplacecontrol

реализовано:
. навигация по удаленному ПК, при наличии второй такой-же
. перекидывание файлов туда-сюда
. индикация включения удаленной машины
. дополнительный icmp пинг (делалось для проверки доступности роутера прова)
. и т.д. и т.п.

в файле <fm.ini> указать host=ip удаленной машины

[KWNlnc]

народ. я не вижу этого! ((( как сделать это примерно как в ShellListView1 ??? помогите. скиньте исходник.

[W0LF]

Перевод списка файлов и каталогов из TStringList в TreeView с построением дерева каталогов.

Автор: Радионов Алексей
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Перевод списка файлов/каталогов из TStringList в
TreeView с построением "дерева каталогов"

Иногда бывает нужно построить "дерево каталогов" по
заданному списку файлов и папок (причем физически
эти файлы и каталоги могут не существовать).
Представляемый здесь код занимается именно этим.

Зависимости: sysutils, classes, comctrls
Автор:       Радионов Алексей (Alx2), alx@argo.mv.ru, ICQ:113442587, Ульяновск
Copyright:   Alx2
Дата:        3 июля 2002 г.
***************************************************** }

procedure FillTreeViewWithFiles(TreeView1: TTreeView; Strs: TStringList);
var
  CachedStrs: TStringList; // CachedStrs вводится для ускорения поиска
  // в уже готовом дереве.

  procedure AddItem(Lev: Integer; ParentNode: TTreeNode; S: string);
    function FindNodeWithText(AParent: TTreeNode; const S: string): TTreeNode;
    var
      K: Integer;
      fStr: string;
      tmpNode: TTreeNode;
    begin
      Result := nil;
      fStr := S + IntToStr(Integer(AParent));
      K := CachedStrs.IndexOf(fStr);
      if K > -1 then
        Result := Pointer(CachedStrs.Objects[K])
      else
      begin
        if AParent <> nil then
          tmpNode := AParent.getFirstChild
        else
          tmpNode := TreeView1.Items.GetFirstNode;
        while tmpNode <> nil do
        begin
          if tmpNode.Text = S then
          begin
            Result := tmpNode;
            CachedStrs.AddObject(fStr, Pointer(tmpNode));
            break;
          end;
          tmpNode := tmpNode.getNextSibling;
        end;
      end
    end;

  var
    prefix: string;
    ID: Integer;
    aNode: TTreeNode;
  begin
    if S = '' then
      Exit;
    ID := Pos('\', S);
    prefix := '';
    if ID > 0 then
      prefix := Copy(S, 1, ID - 1)
    else
    begin
      prefix := S;
      S := '';
    end;

    aNode := FindNodeWithText(ParentNode, prefix);

    if aNode = nil then
    begin
      aNode := TreeView1.Items.AddChild(ParentNode, prefix);
    end;

    AddItem(Lev + 1, aNode, Copy(S, ID + 1, Length(S)));

  end;

var
  K: Integer;
begin
  CachedStrs := TStringList.Create;
  CachedStrs.Duplicates := dupIgnore;
  CachedStrs.Sorted := True;
  try
    TreeView1.Items.BeginUpdate;
    TreeView1.SortType := stNone;
    for K := 0 to Strs.Count - 1 do
      AddItem(0, nil, Strs[K]);
  finally
    TreeView1.Items.EndUpdate;
    CachedStrs.Free;
  end;
end;

Пример использования: 
// Построим, например, "дерево каталогов" по трем файлам:
procedure TForm1.Button1Click(Sender: TObject);
var
  Strs: TStringList;
begin
  Strs := TStringList.Create;
  try
    Strs.Add('D:\Program Files\Borland\Delphi6\Source\Vcl\Printers.dcu');
    Strs.Add('D:\Program Files\Borland\Delphi6\Source\Vcl\WinHelp.dcu');
    Strs.Add('C:\WINNTS\system\BORLNDMM.DLL');
    FillTreeViewWithFiles(TreeView1, Strs);
  finally
    Strs.Free;
  end;
end;

[KWNlnc]

А как это сделать именно в папка а не в трее... в трее это уже известно. please help

[Stilet]

Я что-то не понял что такое виртуальная папка...

[raxp]

...обычный бэкдур ваяют

[KWNlnc]

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

Я что-то не понял что такое виртуальная папка...

вообщем это должно выглядить как будто это "файлы или папки"
скажем

C:\delphi\
C:\delphi\Папка\
C:\delphi\Блокнот.txt