[BCB C++] SelectDirectory z możliwością utworzenia

[Darek_C++]

Witam ponownie,
poniższy kod:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

        String Dodir1;
        if(SelectDirectory("Wybierz folder","",Dodir1))
        {
                LabeledEdit11->Text = Dodir1+"\\"; ;
        }

Wywołuje "te ładniejsze" okno katalogów, ale bez możliwości tworzenia katalogu.

PYTANIE Czy możemy zmienić tak by była taka możliwość ?

[Corvis]

W helpie Buildera masz przykład:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

uses FileCtrl;
const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\Windows';
  if FileCtrl.SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

 

W delphi ale chyba dasz rade ?

[Darek_C++]

Tak, ale te okno co się pojawia z dodatkowymi opcjami jest inne niż bez dodatkowych opcji i jest "brzydnie" i nieczytelne
I nie ma (przynajmniej ja nie widzę) opcji tworzenia nowego folderu

[Corvis]

Tak wygląda funkcja której trzeba użyć w C++

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

Boolean SelectDirectory(const AnsiString Caption, const BSTR Root, AnsiString Directory, TSelectDirExtOpts Options = [sdNewUI], TWinControl * Parent = nil);

Czyli:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String Directory;
SelectDirectory("Otwórz", String("2").w_str(), Directory, TSelectDirExtOpts() << sdNewUI << sdNewFolder );
 

Nie mam pojęcia co to jest

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 const BSTR Root

Zobacz http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/FileCtrl_TSelectDirExtOpts.html

[Darek_C++]

Dokładnie o to "Takie Okno" mi chodziło ....

[polymorphism]

Nie mam pojęcia co to jest

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

const BSTR Root

To jest wskaźnik na specjalny unikodowy ciąg znakowy, używany w interfejsach COM. Różnica między zwykłym ciągiem znakowym a BSTR jest taka, że ten drugi zawiera długość ciągu. Dlatego też to:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

SelectDirectory(..., String("2").w_str(), ...);

jest nieprawidłowe. Tak powinno być:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

SelectDirectory(..., WideString(L"c:\\"), ...);

Według tego co wyczytałem w dokumentacji, WideString ma przeciążony operator konwersji na BSTR, więc powinno być dobrze.

[Mironas]

Witam wszystkich.
Skoro już o SelectDirectory to też mam parę pytań:

1. Czy można przed wywołaniem SelectDirectory ustalić jego pozycję i rozmiar?
2. Czy drzewko katalogów z SelectDirectory da się zastosować na swojej formie tak jak zwykłe TTreeView?
3. Do czego służy parametr 'TWinControl* Parent'?
4. Wiem co to jest parametr 'root' (np "C:\\") ale o co chodzi z tym 'WideString(L"2")'?

[polymorphism]

Jeśli SelectDirectory jest tym samym co SHBrowseForFolder, to:

1. nie.
2. nie.
3. okno-rodzic.
4. heh, pewnie mu wcześniej wyrzucało błąd, bo zły typ pustego stringa podawał, więc musiał coś tam dać, no i cudem zadziałało

[Mironas]

Tak, ale ja chciałem dowiedzieć co daje: WideString(L"2")
Jeśli jako parametr root wpiszę "" (ciąg pusty) to pokazuje strukturę od pulpitu. Jeśli wpiszę "C:\\" to pokazuje dysk C.
A jeśli wpiszę WideString(L"2") - pokazuje znowu od pulpitu, więc czemu to służy?

[polymorphism]

No to przecież napisałem czemu to służy Po prostu dał '2', bo musiał^(?) coś wpisać, żeby działało _{(oczywiście spekuluje, nie jestem Corvisem)}. Jeśli chodzi o klasę WideString, to zwróć uwagę, że według Corvisa^*) drugi parametr jest typu const BSTR, zatem nie możesz w tym parametrze dać ot tak jakiś literał tekstowy, ponieważ nie zaszłaby poprawnie konwersja łańcuchów const char* const BSTR. Wymaganą konwersję spokojnie wykona klasa WideString, i dlatego jest w kodzie, który podałem (poprawiłem swój kod, żeby nie było tej kontrowersyjnej dwójki ).

_{*) tak patrze na dokumentację VCL-a na stronach embarcadero i nie widzę wersji z BSTR, jest za to wersja z WideStringiem.}

[Mironas]

No właśnie ta dwójka mnie zmyliła. U mnie też jest WideString i poprawnie działa L"C:\\" jak też "C:\\" (bez 'L').
Szkoda że nie można drzewka katalogów użyć jak TTreeView. Bardzo brakuje takiego komponentu.
Dzięki za odpowiedzi.

[polymorphism]

Poszukaj sobie w sieci jakichś kodów, które realizują directory-tree-view, niekoniecznie z wykorzystaniem VCL-a (w sumie WinAPI pozostaje tylko). Na pewno znajdziesz coś darmowego.

[Cyfrowy Baron]

Jeszcze moja propozycja pozwalająca używać nowego typu okna do wyboru katalogu:

SHBrowseForFolder.png

Własna funkcja:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#include "shlobj.h"
String __fastcall ExecuteFolder(String sTitle)
{
 BROWSEINFO info;
 wchar_t szDir[MAX_PATH];
 wchar_t szDisplayName[MAX_PATH];
 LPITEMIDLIST pidl;
 LPMALLOC pShellMalloc;

 String Result;

 if(SHGetMalloc(&pShellMalloc) == NO_ERROR)
 {
  memset(&info, 0x00,sizeof(info));
  info. hwndOwner = NULL;
  info.pidlRoot = NULL;
  info.pszDisplayName = szDisplayName;
  info.lpszTitle = sTitle.c_str();
  info.ulFlags =  BIF_RETURNONLYFSDIRS | BIF_NEWDIALOGSTYLE | BIF_USENEWUI;
  info.lpfn = 0;
  pidl = SHBrowseForFolder(&info);


  if(pidl)
  {
   if(SHGetPathFromIDList(pidl, szDir))
   {
        Result = szDir;
   }

   pShellMalloc->Free(pidl);
  }
  pShellMalloc->Release();
 }

 return Result;
}

Wywołanie funkcji:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

Edit1->Text =  ExecuteFolder("Wybierz folder");

Nie można określić katalogu startowego.

---

jest nieprawidłowe. Tak powinno być:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

SelectDirectory(..., WideString(L"c:\\"), ...);

Ta konwersja jest zbędna, wystarczy przekazać wartość typu UnicodeString. Jeśli wskażesz w ten sposób katalog początkowy to okno dialogowe nie pozwoli wybierać katalogów poniżej tego wybranego. Wskaż np. katalog c:\windows, a będziesz mógł wybierać tylko podkatalogi katalogu Windows. Jeśli przekażesz pusty ciąg znaków to katalogiem początkowym będzie ten określony w parametrze Dir. Jeśli Dir również będzie pusty to katalogiem startowym będzie Pulpit.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 String RootDir = ""; /* lub np. "c:\\Windows" */
 String Dir = "C:\\Program Files";

 if( SelectDirectory("Wybierz katalog", RootDir, Dir, TSelectDirExtOpts() << sdNewFolder << sdNewUI, NULL) )
 {
        Edit1->Text = Dir;
 }
}

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button8Click(TObject *Sender)
{
 wchar_t SpecDir[MAX_PATH];
 SHGetSpecialFolderPath(NULL, SpecDir, CSIDL_PERSONAL, 0); /* CSIDL_PERSONAL = Moje Dokumenty */

 String RootDir = SpecDir;
 String Dir;

 if( SelectDirectory("Wybierz katalog", RootDir, Dir, TSelectDirExtOpts() << sdNewFolder << sdNewUI, NULL) )
 {
        Edit1->Text = Dir;
 }
}

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button8Click(TObject *Sender)
{
 wchar_t SpecDir[MAX_PATH];
 SHGetSpecialFolderPath(NULL, SpecDir, CSIDL_MYPICTURES, 0); /* CSIDL_PERSONAL = Moje Dokumenty\Moje obrazy */

 String RootDir = "";
 String Dir = SpecDir;

 if( SelectDirectory("Wybierz katalog", RootDir, Dir, TSelectDirExtOpts() << sdNewFolder << sdNewUI << sdShowEdit, NULL) )
 {
        Edit1->Text = Dir;
 }
}

---

2. Czy drzewko katalogów z SelectDirectory da się zastosować na swojej formie tak jak zwykłe TTreeView?

W pakiecie komponentów LMD Tools znajdziesz komponenty LMDShellFolder i LMDShellTree, które połączone działają jak to TreeView z okna dialogowego SelectDirectory. Możliwości komponentu LMDShellTree są jednak dużo większe.

LMDShellTree.png

[polymorphism]

Ta konwersja jest zbędna, wystarczy przekazać wartość typu UnicodeString.

W dokumentacji nie widzę, żeby UnicodeString miał przeciążony operator konwersji na BSTR, zatem dla parametru typu BSTR to, co podałeś, nie musi działać. Tyle tylko, jak już wcześniej wspomniałem, w dokumentacji nie ma wersji z typem BSTR. Nie wiem, skąd Corvis ją wygrzebał.

[Cyfrowy Baron]

ie wiem, skąd Corvis ją wygrzebał.

Prawdopodobnie z wcześniejszych wersji środowiska, tych sprzed UnicodeString.