DzDirSeek

Dzdirseek

Komponen non-visual Delphi untuk mencari file di direktori

• Apa yang baru
• Perkenalan
• Menginstal
• Cara menggunakan
• Properti
• Objek TDSResultitem
• Hasil sebagai Daftar String
• Fungsi Global

Apa yang baru

• 09/12/2021 (Versi 3.5)

  • Dukungan Instal Otomatis Delphi 11.

Klik di sini untuk melihat seluruh changelog

• 03/13/2021 (Versi 3.4)

  • Dihapus compinstall.exe dari sumber komponen karena AV peringatan positif palsu (sekarang Anda bisa mendapatkannya langsung dari repositori compinstall).

• 02/01/2021 (Versi 3.3)

  • Dihapus Delphi Xe2 dari daftar lingkungan karena tidak pernah mungkin untuk dikompilasi dalam versi ini.

• 12/18/2020 (Versi 3.2)

  • Aplikasi Penginstal Komponen yang Diperbarui (panggilan tetap ke rsvars.bat ketika Delphi diinstal di jalur yang berisi karakter spasi).

• 12/17/2020 (Versi 3.1)

  • Properti baru IncludeDirItem untuk memasukkan item direktori dalam hasil pencarian.
  • Properti yang diubah IncludeHiddenFiles dan IncludeSystemFiles untuk SearchHiddenFiles dan SearchSystemFiles .
  • Mengubah TDSFile ke TDSResultItem .

• 12/17/2020 (versi 3.0)

  • ResultList Baru Menggunakan Objek TDSFile Kustom Baru. Jika Anda ingin mendapatkan hasil dalam daftar string, Anda dapat menggunakan metode baru GetResultStrings .
  • Baru IncludeHiddenFiles dan IncludeSystemFiles properti.

• 11/22/2020 (Versi 2.0)

  • Inclusions baru dan properti Exclusions .
  • Termasuk aplikasi demo.

• 10/31/2020 (Versi 1.3)

  • Termasuk Dukungan Instal Otomatis Delphi 10.4.

• 10/27/2020 (Versi 1.2)

  • Memperbaiki versi Delphi sebelumnya (setidaknya pada tag paket Xe2, Xe3, Xe4 dan Xe5). Itu menyebabkan kesalahan kompilasi paket.

• 10/26/2020 (Versi 1.1)

  • Compinstall yang Diperbarui ke Versi 2.0 (sekarang mendukung pembaruan otomatis GitHub)

• 05/03/2020

  • Compinstall yang Diperbarui ke Versi 1.2

Perkenalan

Saat menggunakan Delphi dan bekerja dengan file dan direktori, pada akhirnya Anda perlu mencari dan mendapatkan daftar file dalam direktori, atau bahkan mencari file di sub-direktori.

Ini bisa sedikit sulit menggunakan fungsi FindFirst dan FindNext lama. Sekarang kami memiliki metode baru yang berlebihan TDirectory.GetFiles , tersedia di unit System.IOUtils .

Tetapi, bahkan menggunakan metode GetFiles, jika Anda memerlukan beberapa parameter canggih seperti termasuk sub-direktori, Anda perlu mengulangi semua direktori. Juga jika Anda ingin menentukan topeng yang menyertakan beberapa bagian dari string path, Anda harus bekerja dengan string dalam kode Anda setiap kali Anda membutuhkan sumber daya ini.

Jadi, saya memutuskan untuk membangun komponen ini untuk menjadi cara mudah untuk mencari file.

Menginstal

Instalasi otomatis

1. Unduh Penginstal Komponen dari: https://github.com/digao-dalpiaz/compinstall/releases/latest
2. Masukkan compinstall.exe ke dalam folder Sumber Repositori Komponen.
3. Tutup Aplikasi Delphi IDE dan Jalankan CompinStall.exe .

Instalasi manual

1. Buka Paket Dzdirseek di Delphi.
2. Pastikan platform Win32 dan konfigurasi rilis dipilih.
3. Kemudian bangun dan instal .
4. Jika Anda ingin menggunakan platform Win64, pilih platform ini dan bangun lagi.
5. Tambahkan Rilis Sub-Path Win32 ke jalur perpustakaan di Opsi Option menggunakan opsi 32-bit, dan jika Anda telah dikompilasi ke platform 64 bit, tambahkan rilis sub-path Win64 menggunakan opsi 64-bit.

Mendukung Delphi Xe3..Delphi 11

Cara menggunakan

Cukup isi properti yang diinginkan dan Seek metode panggilan.

Kemudian Anda dapat membaca ResultList properti publik untuk mendapatkan semua file yang ditemukan. Daftar ini berisi objek TDSResultItem .

Properti

Dir: String = path to pencarian

Inclusions: TStrings = Jika ada baris yang ditentukan, komponen hanya akan mencari topeng yang ditentukan di sini, sesuai dengan sintaks mask yang dijelaskan di bawah ini.

Exclusions: TStrings = Tepat setelah Inclusions memeriksa, jika file cocok dengan topeng Exclusions (sesuai dengan sintaks mask yang dijelaskan di bawah), maka itu akan dikecualikan dari pencarian.

Sintaks Maskes:

 *.txt
myapp.exe
*xyz*.doc
myfile?.rtf
*sub_path*
first_path*
path1path2file.avi
<F>*abc*

Jika Anda menggunakan string <F> dengan mask, itu akan dianggap hanya bagian nama file dari jalur. Ini berguna ketika topeng bisa dikacaukan dengan bagian direktori.

Contoh: Mari kita asumsikan ada jalur C: myApp. Di dalam folder ini ada folder lain C: myApp subfolder. Di dalam folder terakhir ini, ada file yang disebut my_app_file.txt.

Jadi, jika kita perlu mengecualikan semua file yang berisi teks "aplikasi", kita dapat menentukan di properti Maskes: *app* . Tetapi dalam hal ini, folder akan dikecualikan juga, karena mereka cocok dengan aplikasi *app* , dan dengan asumsi bahwa kami ingin memasukkan direktori ini karena ada file lain dengan nama lain yang berbeda. Dalam hal ini, kita dapat menggunakan <F>*app* . Ini hanya akan mempertimbangkan bagian nama file ketika komponen memeriksa topeng.

Properti ini tergantung pada properti Usemask yang diaktifkan.

Sorted: Boolean = jika diaktifkan, itu akan mengambil direktori dan file yang diurutkan secara abjad. (default false)

SubDir: Boolean = jika diaktifkan, itu akan memindai file di semua sub-direktori di dalam jalur pencarian. (default true)

UseMask: Boolean = jika diaktifkan, itu akan mempertimbangkan Inclusions dan Exclusions properti. Jika dinonaktifkan, itu akan mengambil selalu semua file. (diaktifkan default).

IncludeHiddenFiles = jika diaktifkan, itu akan mencakup file dan folder tersembunyi (hanya berfungsi pada platform windows).

IncludeSystemFiles = jika diaktifkan, itu akan mencakup file sistem dan folder (hanya berfungsi pada platform Windows).

Objek TDSResultitem

Saat Anda menjalankan pencarian direktori, hasilnya akan diambil dalam properti ResultList , yang berisi objek TDSResultItem . Anda dapat mengulangi daftar ini untuk mendapatkan properti hasil.

Properti TDSResultitem

BaseDir = jalur direktori yang digunakan saat pencarian dimulai.

RelativeDir = jalur direktori tanpa awalan direktori dasar.

Name = hanya bagian nama file.

Size = ukuran file dalam byte.

Attributes = atribut file (sama dengan properti tsearchrec.attr).

Timestamp = File tanggal dan waktu tulis terakhir.

IsDir = jika item adalah direktori (hanya muncul jika properti IncludeDirItem adalah benar ketika pencarian dieksekusi).

Hasil sebagai Daftar String

Jika Anda hanya ingin mendapatkan daftar string path file, Anda dapat menggunakan metode GetResultStrings :

 procedure GetResultStrings (S: TStrings; Kind: TDSResultKind);

Di mana properti Kind mewakili:

• RKComplete: Hasilnya akan menyertakan jalur file lengkap (jalur pencarian + sub-direktori + nama file)
• RKRelative: Hasilnya hanya akan mencakup jalur relatif, tanpa jalur pencarian (sub-direktori + nama file)
• RKOnLyName: Hasilnya hanya akan mencakup nama file, tanpa jalur pencarian atau sub-direktori.

Fungsi Global

 // Returns bytes in megabytes string format, with two decimal places.
function BytesToMB (X: Int64): string;

// Returns file size in bytes.
function GetFileSize ( const aFileName: string): Int64;

// Returns if an attribute enumerator contains a specific attribute (use System.SysUtils consts: faReadOnly, faHidden, faDirectory...)
function ContainsAttribute (AttributesEnum, Attribute : Integer): Boolean;