DzDirSeek

Dzdirseek

مكون دلفي غير المرئي للبحث في الملفات في الدلائل

• ما الجديد
• مقدمة
• التثبيت
• كيفية استخدام
• ملكيات
• كائن tdsresultitem
• النتيجة كقائمة السلسلة
• وظائف عالمية

ما الجديد

• 09/12/2021 (الإصدار 3.5)

  • دلفي 11 دعم التثبيت التلقائي.

انقر هنا لعرض Changelog بأكمله

• 03/13/2021 (الإصدار 3.4)

  • تمت إزالة compinstall.exe من مصادر المكونات بسبب تحذير إيجابي AV الخاطئ (يمكنك الآن الحصول عليه مباشرة من مستودع التثبيت).

• 02/01/2021 (الإصدار 3.3)

  • تمت إزالة Delphi XE2 من قائمة البيئات حيث لم يكن من الممكن تجميعها في هذا الإصدار.

• 12/18/2020 (الإصدار 3.2)

  • تطبيق تثبيت مكون محدث (مكالمة ثابتة إلى RSVARs.bat عندما يتم تثبيت Delphi في مسار يحتوي على أحرف مسافات).

• 12/17/2020 (الإصدار 3.1)

  • New IncludeDirItem Property لتضمين عناصر الدلائل في نتائج البحث.
  • تتضمن الخصائص التي تم تغييرها IncludeHiddenFiles وتشمل IncludeSystemFiles إلى SearchHiddenFiles و SearchSystemFiles .
  • تغيرت TDSFile إلى TDSResultItem .

• 12/17/2020 (الإصدار 3.0)

  • ResultList جديدة باستخدام كائن TDSFile جديد مخصص. إذا كنت ترغب في الحصول على قائمة سلاسل ، يمكنك استخدام طريقة جديدة GetResultStrings .
  • IncludeHiddenFiles NewHiddenfiles وتشمل خصائص IncludeSystemFiles .

• 11/22/2020 (الإصدار 2.0)

  • Inclusions جديدة Exclusions خصائص.
  • تطبيق العرض التجريبي.

• 10/31/2020 (الإصدار 1.3)

  • شملت Delphi 10.4 دعم التثبيت التلقائي.

• 10/27/2020 (الإصدار 1.2)

  • تم إصلاح إصدارات Delphi السابقة (على الأقل على XE2 و XE3 و XE4 و XE5). كان يسبب خطأ في تجميع الحزمة.

• 10/26/2020 (الإصدار 1.1)

  • تم تحديث compinstall إلى الإصدار 2.0 (يدعم الآن Github Auto-update)

• 05/03/2020

  • تم تحديث compinstall إلى الإصدار 1.2

مقدمة

عند استخدام Delphi والعمل مع الملفات والأدلة ، تحتاج في النهاية إلى البحث والحصول على قائمة بالملفات في دليل ، أو حتى البحث عن الملفات الفرعية.

يمكن أن يكون هذا صعبًا بعض الشيء باستخدام وظائف FindFirst القديمة و FindNext . الآن System.IOUtils TDirectory.GetFiles جديدة overloads

ولكن ، حتى باستخدام أساليب GetFiles ، إذا كنت بحاجة إلى بعض المعلمات المتقدمة مثل المشاريع الفرعية ، فستحتاج إلى تكرار جميع الدلائل. أيضًا إذا كنت ترغب في تحديد القناع الذي يتضمن جزءًا من سلسلة Path String ، فستحتاج إلى العمل مع سلاسل في الكود الخاص بك في كل مرة تحتاج فيها إلى هذا المورد.

لذلك ، قررت إنشاء هذا المكون لتصبح وسيلة سهلة للبحث عن الملفات.

التثبيت

التثبيت التلقائي

1. تنزيل مكون مثبت من: https://github.com/digao-dalpiaz/compinstall/release/latest
2. ضع compinstall.exe في مجلد مصادر مستودع المكونات.
3. أغلق Delphi IDE وقم بتشغيل تطبيق compinstall.exe .

تثبيت يدوي

1. فتح حزمة dzdirseek في دلفي.
2. تأكد من تحديد منصة Win32 وإصدار التكوين.
3. ثم بناء وتثبيت .
4. إذا كنت ترغب في استخدام منصة Win64 ، فحدد هذا النظام الأساسي وإنشاء مرة أخرى.
5. أضف الإصدار sub-path win32 إلى مسارات المكتبة في الأدوات الخيارات باستخدام خيار 32 بت ، وإذا قمت بتجميعها إلى 64 بت منصة ، فأضف إصدار Win64 sub path باستخدام خيار 64 بت.

يدعم Delphi Xe3..delphi 11

كيفية استخدام

فقط املأ الخصائص المطلوبة Seek طريقة الاتصال.

ثم يمكنك قراءة ResultList الممتلكات العامة للحصول على جميع الملفات التي تم العثور عليها. تحتوي هذه القائمة على كائنات TDSResultItem .

ملكيات

Dir: String = مسار للبحث

Inclusions: TStrings = إذا تم تحديد أي سطر ، فإن المكون سوف يبحث فقط عن الأقنعة المحددة هنا ، وفقًا لبناء القناع الموضح أدناه.

Exclusions: TStrings = مباشرة بعد التحقق Inclusions ، إذا كان الملف يتطابق مع أقنعة Exclusions (وفقًا لبناء القناع الموضح أدناه) ، فسيتم استبعاده من البحث.

بناء جملة الأقنعة:

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

إذا كنت تستخدم السلسلة <F> مع قناع ، فسيتم اعتبارها فقط جزء اسم الملف من المسار. هذا مفيد عندما يمكن الخلط بين القناع مع جزء الدليل.

مثال: لنفترض أن هناك مسار C: myapp. داخل هذا المجلد ، يوجد مجلد آخر C: myapp المجلد الفرعي. داخل هذا المجلد الأخير ، يوجد ملف يسمى my_app_file.txt.

لذلك ، إذا كنا بحاجة إلى استبعاد جميع الملفات التي تحتوي على النص "تطبيق" ، فيمكننا تحديد خاصية Masks: *app* . ولكن في هذه الحالة ، سيتم استبعاد المجلد أيضًا ، لأنه يطابق *app* ، وافتراض أننا نريد تضمين هذا الدليل لأن هناك ملفات أخرى بأسماء مختلفة أخرى. في هذه الحالة ، يمكننا استخدام <F>*app* . هذا سوف ينظر فقط في جزء اسم الملف عندما يتحقق المكون من الأقنعة.

هذه الخصائص تعتمد على تمكين خاصية usemask .

Sorted: Boolean = إذا تم تمكينها ، فسيسترجع الدلائل والملفات المرتبة أبجديًا. (خطأ افتراضي)

SubDir: Boolean = إذا تم تمكينها ، فسيقوم بمسح الملفات في جميع المخرجين الفرعي داخل مسار البحث. (صواب افتراضي)

UseMask: Boolean = إذا تم تمكينه ، فسيأخذ في الاعتبار خصائص Inclusions Exclusions . إذا تم تعطيله ، فسيسترجع دائمًا جميع الملفات. (التمكين الافتراضي).

IncludeHiddenFiles = إذا تم تمكينه ، فسيتضمن ملفات ومجلدات مخفية (تعمل فقط على منصة Windows).

IncludeSystemFiles = إذا تم تمكينه ، فسيتضمن ملفات النظام والمجلدات (تعمل فقط على نظام Windows Platform).

كائن tdsresultitem

عند تشغيل دليل الدليل ، سيتم استرداد النتيجة في خاصية ResultList ، والتي تحتوي على كائنات TDSResultItem . يمكنك تكرار هذه القائمة للحصول على خصائص النتائج.

خصائص tdsresultitem

BaseDir = مسار الدليل المستخدم عند بدء البحث.

RelativeDir = مسار الدليل بدون بادئة الدليل الأساسي.

Name = جزء اسم الملف فقط.

Size = حجم الملف بالبايت.

Attributes = سمات الملف (مثل خاصية tsearchrec.attr).

Timestamp = ملف آخر تاريخ الكتابة والوقت.

IsDir = إذا كان العنصر دليلًا (يظهر فقط إذا كانت خاصية IncludeDirItem صحيحة عند تنفيذ البحث).

النتيجة كقائمة السلسلة

إذا كنت ترغب في الحصول على قائمة سلاسل مسار الملف فقط ، فيمكنك استخدام طريقة GetResultStrings :

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

حيث تمثل الممتلكات Kind :

• RKCOMPLETE: ستتضمن النتيجة مسار الملف الكامل (مسار البحث + المخرج الفرعي + اسم الملف)
• rkrelative: ستتضمن النتيجة فقط المسار النسبي ، بدون مسار البحث (اسم الملف الفرعي + اسم الملف)
• rkonlyname: ستتضمن النتيجة فقط اسم الملف ، دون مسار البحث أو المخرجين الفرعيين.

وظائف عالمية

 // 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;