OpenDialog -bledne pobieranie sciezki oraz nazwy pliku

[Bishamoth]

Witam
Pytanie powinno byc bardzo proste:

Kod: Zaznacz cały

void __fastcall TForm1::OpenDialog1SelectionChange(TObject *Sender)
{
AnsiString Dir;
AnsiString File;
File=OpenDialog1->FileName;
Dir=OpenDialog1->GetNamePath();
Label1->Caption=File;
Label2->Caption=Dir;
}

Wedlug tego kodu, zaraz po odpaleniu OpenDialog i zaznaczeniu jakiegokolwiek pliku, w Label1 powinna sie pojawic nazwa zaznaczonego pliku, a w Label2 Sciezka do zaznaczonego pliku. Jest jednak inaczej; w Label1 pojawia sie cala sciezka do pliku, a w Label2 widnieje napis OpenDialog1. Czy ktos moze mi wytlumaczec, czemu to dziala w ten sposob, i jak to zrobic aby wszystko bylo na swoim miejscu?

System: Windows XP Professional SP3
Kompilator: BCB v6 Enterprise

[Cyfrowy Baron]

Jest jednak inaczej; w Label1 pojawia sie cala sciezka do pliku,

OpenDialog->FileName zawsze zwraca pełną ścieżkę dostępu do pliku wraz z nazwą pliku.

GetNamePath występuje niemal we wszystkich komponentach i zawsze zwraca nazwę obiektu, nigdy nie zwraca nazwy katalogu. To co chcesz zrobić, czyli wyświetlić tylko nazwę zaznaczonego pliku oraz nazwę katalogu należy zrobić tak:

Kod: Zaznacz cały


void __fastcall TForm1::OpenDialog1SelectionChange(TObject *Sender)
{
 
 int attrib = FileGetAttr(OpenDialog1->FileName);
 String nameFD = ExtractFileName(OpenDialog1->FileName);
                           
  if(attrib & faDirectory)
  {
   if(!nameFD.IsEmpty())
   { 
    Label2->Caption = nameFD;
    Label1->Caption = ExtractFileDrive(OpenDialog1->FileName) + "\\";
   }
   else
   {
    Label2->Caption = ExtractFileDrive(OpenDialog1->FileName) + "\\";
    Label1->Caption = "";
   }
  }
  else
  {
   Label2->Caption = ExtractFilePath(OpenDialog1->FileName);
   Label1->Caption = nameFD;
  }
} 

---

Przypuszczam, że wiesz, iż z OpenDialog korzysta się w taki sposób:

Kod: Zaznacz cały


void __fastcall TForm1::Button1Click(TObject *Sender)
{
 String fileName;
 if(OpenDialog1->Execute())
 {
   fileName = OpenDialog1->FileName;
 }
}
 

---

System: Windows XP Professional SP3
Kompilator: BCB v6 Enterprise

Te dane wprowadź do swojego profilu.

[Bishamoth]

Dziekuje za wytlumaczenie Wszystko dziala.
Dane juz wpisalem do profilu.

[moderasura]

Nie wiem czy to pasuje do tego tematu ale głowy nikt nie urwie chyba

Wyczytałem w artykule Barona (Umieszczanie programu w programie, czyli coś w rodzaju instalatora.) i tam jest podany na sztywno zapis do wybranego dysku i nazwa pliku.Jest jakaś mozliwość zapisywania w inny sposób? Przykład Barona

Kod: Zaznacz cały

ExtractExe(ID_APPL, "C:\\Wypakowane.exe");

jak to się zapisuje za pomocą wyżej przedstawionego kodu?

[Cyfrowy Baron]

Jest jakaś mozliwość zapisywania w inny sposób?

Czego w inny sposób? Chodzi o ścieżkę do wypakowania pliku?

[moderasura]

Chodzi mi o to by wypakować plik z zasobów do podanej ścieżki. np. mam przycisk pobieram ścieżkę do pliku exe w pole Edit1 i chciał bym wypakować tam dany plik włącznie z podfolderami itp ...Nie w tym miejscu gdzie znajduje sie program z zasobami tylko do tego wybranego przez użytkownika nie wiem czy wyraziłem sie jasno

[Cyfrowy Baron]

Takie pytania mnie załamują!

Funkcja ExtractExe oczekuje dwóch argumentów, pierwszy to identyfikator zasobu, a drugi to nazwa pliku pod którą zostanie zapisany wypakowywany zasób. Jeżeli podajesz tylko nazwę pliku to wypakowywany zasób zostanie zapisany w katalogu z program, jeżeli podasz pełną ścieżkę to zasób zostanie wypakowany do tej ścieżki. W przykładzie, który podałeś zasób jest wypakowywany bezpośrednio na dysk C:, gdyż taka lokalizacja została tam określona "C:\\Wypakowane.exe". Jeżeli chesz dać użytkownikowi możliwość określania lokalizacji to posłuż się komponentem TOpenDialog:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if( OpenDialog1->Execute() )
{
  ExtractExe(ID_APPL, OpenDialog1->FileName);
}

[moderasura]

Dzięki za wskazówkę
Można jeszcze tak zapisać z folderami i podfolderami może komuś sie przyda

Kod: Zaznacz cały

void __fastcall TForm2::Button1Click(TObject *Sender)
{
AnsiString sciezka = ExtractFilePath(OpenDialog1->FileName);

ForceDirectories(sciezka+"\\folder\\folder2");

ExtractExe(ID_APPL1, sciezka + "\\folder\\folder2\\plik.dat");

}

[Cyfrowy Baron]

Można jeszcze tak zapisać z folderami i podfolderami może komuś sie przyda

Tak jak zapisałeś nie jest dobrze. Okno OpenDialog wywołuje się funkcją Execute, a FileName nie zawiera nazwy katalogu lecz ścieżkę dostępu do pliku, więc nie można tworzyć folderu poprzez dodanie do FileName kolejnych ścieżek, gdyż np.

FileName = c:\nazwapliku.exe

gdy dodasz: sciezka+"\\folder\\folder2 otrzymasz:

c:\nazwapliku.exe\folder\folder2

Poza tym pomyliłem się w swoim ostatnim poście i do wypakowania pliku należy posłużyć się nie OpenDialog lecz SaveDialog, czyli:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if( SaveDialog1->Execute() )
{
  ExtractExe(ID_APPL, SaveDialog1->FileName);
}

Zauważ, że po wywołaniu okna SaveDialog można w nim tworzyć nowe katalogi, więc takie sztuczne definiowanie katalogu nie ma sensu, chyba że chcesz wymusić w podanej lokalizacji utworzenie kolejnych katalogów. W takiej sytuacji należy posłużyć się oknem do wybierania katalogów a nie plików:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#include "FileCtrl.hpp"


void __fastcall TForm2::Button1Click(TObject *Sender)
{
 String Dir; /* można nadać ścieżkę początkową, np: String Dir = "c:\\program files"; */

 if( SelectDirectory( Dir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt, NULL ) )
 {
   if( ForceDirectories( Dir + "\\folder\\folder2" ) )
   {
     ExtractExt( ID_APPL1, Dir + "\\folder\\folder2\\plik.dat");
  }
  else
  {
    Application->MessageBox( ("Nie udało się utworzyć podkatalogu w katalogu '" + Dir + "'.").c_str(), "Błąd tworzenie podkatalogu", MB_OK | MB_ICONSTOP);
    return;
  }
 }  
}

Dopiero tak jest poprawnie.