[guvlaka]

Здравствуйте!
Можете помочь с решением проблемы?
Хочу создать программу которая на форме имеет ComboBox1 и 2, ListBox и Memo. Также имеется база из папок в которых находятся под папки, в них лежат тхт файлы. Задача заключается в том чтобы ComboBox1 отображал папки, ComboBox2 отображал под папки папки, ListBox1 отображает список тхт файлов из под папки, а Memo1 отображал выбранный тхт-шник!

[Kailon]

Мне кажется, что через компоненты FileListBox, DirectoryListBox, DriveComboBox с закладки Win32, будет интереснее реализовать.
Подгружать в Memo можно как-нибудь так:

Код:

procedure TForm1.FileListBox1DblClick(Sender: TObject);
var
  NameFile: String;
begin
  NameFile := FileListBox1.FileName;
  Memo1.Lines.LoadFromFile(NameFile);
end;

[guvlaka]

А Вы можете помочь с реализацией этой задумки?

[guvlaka]

Забыл уточнить один нюанс(
файлы должны быть зашифрованы, а проходя через программу расшифровываться!

[Kailon]

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

Забыл уточнить один нюанс(
файлы должны быть зашифрованы, а проходя через программу расшифровываться!

Нормальный такой нюанс... Но это не проблема. Выбирайте алгоритм шифрования и вперед.

[guvlaka]

[IMG][/IMG]
примерно вот так она будет выглядеть!

[Kailon]

А Вы можете помочь с реализацией этой задумки?

Да, пожалуйста
Reading TXT.zip

[Alegun]

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

Мне кажется, что через компоненты FileListBox, DirectoryListBox, DriveComboBox с закладки Win32, будет интереснее реализовать...

А можно и по-старинке, с обычными комбиками выполнить подобное, их наполнение на основе фаундфёст/фаунднекст, вот пример

[NumLock]

загрузить список файлов в ListBox из папки:

Код:

SendMessage(ListBox1.Handle, LB_DIR, $3f, Integer(PChar('c:\Windows\System32\*.dll')));

зашифровать\расшифровать данные:

Код:

CryptAcquireContext()
CryptCreateHash()
CryptHashData()
CryptEncryptCrypt()/CryptDecrypt()
CryptDestroyKey()
CryptDestroyHash()
CryptReleaseContext()

[guvlaka]

А есть способ закрыть доступ к базе?

[NumLock]

можно тогда микро-СУБД использовать