Folder Lock

[antonio559]

Czy istnieje mozliwosc zablokowania folderu za pomoca hasla dla bezposredniego otwarcia i swobodne czytanie z poziomu aplikacji

[Cyfrowy Baron]

Niestety nie! Zamiast folderu możesz użyć archiwum ZIP, bez stosowania kompresji pobieranie i zapisywanie plików będzie przebiegało bardzo szybko. Archiwum możesz zabezpieczyć hasłem. Niektóre rodzaje plików jak np. pliki tekstowe, grafiki można wczytywać bezpośrednio do pamięci bez wypakowywania ich na dysk, co w zasadzie wygląda tak jakbyś czytał plik bezpośrednio z katalogu.
Gdybyś się na to zdecydował to polecam komponent TZipForge.

[antonio559]

Dzieki Baronie. Jednak istnieja takie programy jak Folder Lock i jakos sobioe daja rade z katalogami. Nie wiem jak moze w API. Niemniej jednak podzialam z komponentami Twojej sugestii. Nie zamykajmy watku. Byc moze cos jeszcze sie dowiem lub opisze swoje doswiadczenia. Pozdrawiam

[Cyfrowy Baron]

Nie wiem jak działają te programy, ale Windows nie ma takiej funkcji, więc to musi być tylko jakaś prosta sztuczka.

[polymorphism]

Jednak istnieja takie programy jak Folder Lock i jakos sobioe daja rade z katalogami.

Pytanie, czy są to katalogi, czy może pliki-kontenery, które z poziomu aplikacji/trybu użytkownika widziane są jako katalogi. Takie rozwiązanie wiąże się z napisaniem odpowiedniego drivera (file system filter driver?).

[Cyfrowy Baron]

Pytanie, czy są to katalogi, czy może pliki-kontenery, które z poziomu aplikacji/trybu użytkownika widziane są jako katalogi.

Sprawdziłem jeden z takich programów i zablokowane katalogi wogóle nie są widziane, nie ma do nich dostępu - znikają, ale z całą zawartością. Co to są pliki-kontenery, czy mogą przechowywać bardzo duże, dowolne pliki?

[polymorphism]

Tak, o takie pliki mi chodziło. Generalnie mowa o wirtualnym systemie plików (VFS). Z drugiej strony można by to jeszcze inaczej zrealizować, bez zabawy z VFS. Po prostu driver kontrolowałby dostęp i widzialność plików czy katalogów. Pliki musiałyby być (de)kodowane w locie, żeby na innym systemie nie było możliwe ich odczytanie, wszak bez drivera maskującego byłyby widzialne.

[Cyfrowy Baron]

W programie który testowałem istniała usługa systemowa, która jak sądzę kontrolowała dostęp do katalogu. Jednakże po wyłączeniu usługi katalog się nie pojawił, wręcz przeciwnie teoretycznie istniał, gdyż nie można było w tej samej lokalizacji utworzyć pliku o tej samej nazwie - system wyświetlał komunikat, że folder o takiej nazwie już istnieje, niemniej jednak nie dało się w żaden sposób wejść do tegoż folderu, np. z linii komend.

[antonio559]

Witam. Zainstalowalem komponent ZipForge i z tego co do tej pory rozszyfrowalem to pieknie realizuje archiwizacje pojedynczych plikow natomiast co do arciwizacji calego katalogu nie bardzo wiem czy to mozliwe. Demo tez nie rozwiazuje tego problemu. Moze ktos mial juz z tym do czynienia, prosze o informacje.Pozdrawiam

[Cyfrowy Baron]

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 ZipForge1->FileName = "c:\\Temp\\Paczka.zip"; // lokalizacja i nazwa dla spakowanego archiwum

 ZipForge1->OpenArchive(fmCreate);
 ZipForge1->Password = "hasło";

 ZipForge1->CompressionMode = 9; // 0-9 9 - maksymalny stopień kompresji
 ZipForge1->EncryptionMethod = caAES_256; // metoda szyfrowania - tutaj najwyższa

 ZipForge1->BaseDir = "c:\\katalog z plikami\\";  // katalog z plikami do spakowania
 ZipForge1->AddFiles("*.*", faAnyFile, "");

 ZipForge1->CloseArchive();

W powyższym przykładzie spakowana zostanie zawartość katalogu z lokalizacji "c:\\katalog z plikami\\", a archiwum zostanie utworzone w lokalizacji "c:\\Temp\\" w pliku o nazwie Pcaczka.zip. W tym przykładzie archiwum Paczka.zip będzie jednak zawierało tylko pliki z katalogu "c:\\katalog z plikami\\", ale samego katalogu już nie.

Jeżeli chcesz umieścić w archiwum również katalog to właściwości BaseDir musisz przekazać ścieżkę dostępu do katalogu nadrzędnego, czyli w przykładzie tylko "c:\\" gdyż "katalog z plikami" znajduje się bezpośrednio na dysku c:, który jest dla niego katalogiem nadrzędnym. By jednak nie spakować do archiwum całej zawartości dysku c: musisz funkcji AddFiles ustawić maskę tak by pakowała tylko "katalog z plikami". Reszta pozostaje bez zmian:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 ZipForge1->BaseDir = "c:\\";  // katalog nadrzędny
 ZipForge1->AddFiles("katalog z plikami\\*.*", faAnyFile, "");

Jeżeli w pakowanym katalogu znajdują się podkatalogi to zostaną również spakowane.

Jak spakować dwa katalogi z cała zawartością znajdujące się np. bezpośrednio na dysku c:?

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 ZipForge1->BaseDir = "c:\\";  // katalog nadrzędny
 ZipForge1->AddFiles("katalog z plikami\\*.*", faAnyFile, "");
 ZipForge1->AddFiles("drugi katalog\\*.*", faAnyFile, "");

Wystarczy wielokrotnie wywołać funkcję AddFiles.

[antonio559]

Dzieki Baronie. Tak popelnilem blad w rozumowaniu. Usilnie probowalem zabezpieczyc katalog haslem a takze zarchiwizowac katalog z haslem. To bylo bezsensowne. Wystarczy utworzyc archiwum a w nim potrzebne pliki i potraktowac to archiwum jako taki sobie folder. I wszystkie operacje ZipForge maja sens. Mimo wszystko dziekuje za pomoc. Bede dalej probowal. Pozdrawiam wszystkich

[sebaskow]

Witam.

Wtrącę się i zapytam czy ten komponent ( ZipForge ) posiada możliwość śledzenia postępu pakowania-szyfrowania tak aby włączyć jakiś pasek do programu ?

[Cyfrowy Baron]

Komponent ma zdarzenia OnFileProgress dla wyświetlania postępu pojedynczego pliku i OnOverallProgress dla wyświetlania postępu wielu plików, czyli dla całkowitego postępu pakowania.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::ZipForge1FileProgress(TObject *Sender, UnicodeString FileName,
                  double Progress, TZFProcessOperation Operation, TZFProgressPhase ProgressPhase,
                  bool &Cancel)
{
 if( ProgressPhase == ppProcess )
  Label1->Caption = "Rozpoczynam pakowanie pliku: " + FileName;

 if( ProgressPhase == ppProcess )
   ProgressBar1->Position = Progress;


 Application->ProcessMessages();

 if( ProgressPhase == ppEnd )
   ShowMessage("Spakowano");
}

Najlepiej jest jednak zastosować dwa paski postępu, z których pierwszy będzie pokazywał postęp pakowania pliku, a drugi całkowity postęp pakowania. W tym celu trzeba zrobić obsługę obydwu zdarzeń.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::ZipForge1FileProgress(TObject *Sender, UnicodeString FileName,
                  double Progress, TZFProcessOperation Operation, TZFProgressPhase ProgressPhase,
                  bool &Cancel)
{
 if( ProgressPhase == ppProcess )
  Label1->Caption = "Rozpoczynam pakowanie pliku: " + FileName;

 if( ProgressPhase == ppProcess )
   ProgressBar1->Position = Progress;

 Application->ProcessMessages();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ZipForge1OverallProgress(TObject *Sender, double Progress,
                  TZFProcessOperation Operation, TZFProgressPhase ProgressPhase,
          bool &Cancel)
{
 if( ProgressPhase == ppProcess )ProgressBar2->Position = Progress;

 if( ProgressPhase == ppEnd ) ShowMessage("Spakowano");
}

[sebaskow]

Dziękuję.

Właśnie o to mi chodziło.



Pozdrawiam

[antonio559]

Witam. Ale sie napisalem i wszystko w kanal.
Przetestowalem pokowanie plikow do archiwum. Wszystko dziala poprawnie lecz po otwarciu archiwum wszystkie nazy plikow sa dostepne. Dopiero proba otwarcia jakiegokolwiek pliku wymaga podania hasla. Inna sprawa jest dodanie pliku do archiwum np z Total Commandera plik zostanie dodany lecz juz nie bedzie zabezpieczony. Terza w druga strone. Wyciagniecie pliku z archiwum. Na podstawie pola bazy danych wypakowalem dany plik.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

// Sciezka dostepu do archiwum
 Archiver->FileName = ExtractFilePath(Application->ExeName)+ "105_0555.ZIP";
// Pelna sciezka
//"c:\\Program Files\\CodeGear\\RAD Studio\\5.0\\Projekt\\Archiwizacja\\105_0555.ZIP";

  Archiver->OpenArchive(fmOpenRead + fmShareDenyWrite);
// BaseDir - sciezka dla rozpakowanego pliku Bez podania wypakuje na sciezce exe-ka
//Archiver->BaseDir = "c:\\Program Files\\CodeGear\\RAD Studio\\5.0\\Projekt\\Archiwizacja";
//ShowMessage(ABSTable1->FieldByName("Nazwa")->AsString);
// Przypisanie zmiennej pola bazy danych
abc = ABSTable1->FieldByName("Nazwa")->AsString;
//ShowMessage(abc);
// Wypakowanie z archiwum
Archiver->ExtractFiles(abc);
// Zamniecie archiwum
  Archiver->CloseArchive();
// Ladowanie do Image
Image1->Picture->LoadFromFile(ExtractFilePath(Application->ExeName)+abc);
//Image1->Picture->LoadFromFile("c:\\Program Files\\CodeGear\\RAD Studio\\5.0\\Projekt\\Archiwizacja\\"+abc);

Troche to nie ladne. Wiem ze istnieje mozliwosc wypakowania do pamieci ale nie wiem jak wypakowac i jak dodac do Image.
Image zostaje wywolane w nowym oknie i po zamknieciu okna plik zostanie skasowany.
Inna sprawa jest dodanie pliku do istniejacego archiwum. Niby mi sie udalo lecz nie wiem czy to bedzie prawidlowe. Niestety nie posiadam teraz kodu programu do tej operacji. Zamieszcze go pozniej