<![CDATA[delphi4arab منتديات دلفي للعرب - قسم التعريف بمكونات وادوات دلفي]]> https://delphi4arab.net/forum/ Wed, 11 Nov 2026 01:01:28 +0000 MyBB <![CDATA[Delphi & HTMX]]> https://delphi4arab.net/forum/showthread.php?tid=12690 Fri, 02 Aug 2024 13:04:32 +0100 mo7ammed]]> https://delphi4arab.net/forum/showthread.php?tid=12690
لمن لم يسمع بمكتبة HTMX، فهي مكتبة جافا سكريبت تقوم بإضافة وسومات لل html من خلالها يتم تنفيذ الطلبات على server side، فهي تقلل من كتابة كود الجافا سكريبت، وايضاً تغنيك عن تقسيم كود البرنامج الى front end و backend

هناك عدة مقالات تم انشائها على موقع شركة Embarcadero

https://blogs.embarcadero.com/harnessing...lphi-htmx/
https://blogs.embarcadero.com/harnessing...mx-part-2/
https://blogs.embarcadero.com/running-de...es-part-3/]]>
لمن لم يسمع بمكتبة HTMX، فهي مكتبة جافا سكريبت تقوم بإضافة وسومات لل html من خلالها يتم تنفيذ الطلبات على server side، فهي تقلل من كتابة كود الجافا سكريبت، وايضاً تغنيك عن تقسيم كود البرنامج الى front end و backend

هناك عدة مقالات تم انشائها على موقع شركة Embarcadero

https://blogs.embarcadero.com/harnessing...lphi-htmx/
https://blogs.embarcadero.com/harnessing...mx-part-2/
https://blogs.embarcadero.com/running-de...es-part-3/]]> <![CDATA[اشياء لم يتم التطرق لها في قواعد بيانات فايربيرد]]> https://delphi4arab.net/forum/showthread.php?tid=12496 Sat, 03 Feb 2024 08:16:13 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=12496

الدالة ROW_COUNT 

كود :
BEGIN     SELECT COL FROM TAB INTO :VAR;     IF (ROW_COUNT = 0) THEN       EXCEPTION NO_DATA_FOUND;   END

تعيد عدد الصفوف المتأثرة من جملة الاستعلام او الحذف او التعديل بمعنى العملية التي تم تنفيدها
مثال اخر

كود :
update Figures set Number = 0 where id = :id; if (row_count = 0) then   insert into Figures (id, Number) values (:id, 0);


المؤشرات Explicit Cursors

أصبح من الممكن الآن الإعلان عن مؤشرات متعددة واستخدامها في PSQL. تتوفر المؤشرات الصريحة في بنية DSQL EXECUTE BLOCK وكذلك في الإجراءات والمشغلات المخزنة.

كود :
DECLARE RNAME CHAR(31);     DECLARE C CURSOR FOR ( SELECT RDB$RELATION_NAME                               FROM RDB$RELATIONS );     BEGIN       OPEN C;       WHILE (1 = 1) DO       BEGIN         FETCH C INTO :RNAME;         IF (ROW_COUNT = 0) THEN           LEAVE;         SUSPEND;       END       CLOSE C;     END


مثال اخر

كود :
DECLARE RNAME CHAR(31);     DECLARE FNAME CHAR(31);     DECLARE C CURSOR FOR ( SELECT RDB$FIELD_NAME                            FROM RDB$RELATION_FIELDS                            WHERE RDB$RELATION_NAME = :RNAME                            ORDER BY RDB$FIELD_POSITION );     BEGIN       FOR         SELECT RDB$RELATION_NAME         FROM RDB$RELATIONS         INTO :RNAME       DO       BEGIN         OPEN C;         FETCH C INTO :FNAME;         CLOSE C;         SUSPEND;       END     END

بالامكان الان اسناد القيم الافتراضية في الاجراءات المخزنة
Defaults for Stored Procedure Arguments


كود :
CREATE PROCEDURE P1 (X INTEGER = 123)    RETURNS (Y INTEGER)    AS    BEGIN      Y = X;      SUSPEND;    END

بالامكان استخدام العبارة LEAVE لانهاء حلقة تكرارية او الخروج من تنفيد اي عملية قائمة

كود :
FOR      SELECT COALESCE(RDB$SYSTEM_FLAG, 0), RDB$RELATION_NAME        FROM RDB$RELATIONS        ORDER BY 1      INTO :RTYPE, :RNAME      DO      BEGIN        IF (RTYPE = 0) THEN          SUSPEND;        ELSE          LEAVE; -- exits current loop      END


كود :
CNT = 100;    L1:    WHILE (CNT >= 0) DO    BEGIN      IF (CNT < 50) THEN        LEAVE L1; -- exists WHILE loop      CNT = CNT - l;    END

العبارة ROW_NUMBER

كود :
select     id,     salary,     row_number() over (order by salary)   from employee   order by salary;

تعطي رقم متسلسل للصفوف وتعمل مع عبارة Over التجميعية بما ياتي معها من صيغ مختلفة حسب الطلب

العبارة RANK

كود :
select     id,     salary,     rank() over (order by salary)   from employee   order by salary;

مثل السابقة ولكن تكرر الترقيم بحال كان مكرر لاحظ النتيجة

كود :
rank salary id   -- ------ ----   3  8.00     1   4  9.00     2   1 10.00     3   5 10.00     3   2 12.00     5

العبارة PERCENT_RANK

كود :
select     id,     salary,     rank() over (order by salary),     percent_rank() over (order by salary)   from employee   order by salary;

نفس السابقة وبنسب مئوية


العبارة  cume_dist

كود :
select     id,     salary,     cume_dist() over (order by salary)   from employee   order by salary;

كود :
  cume_dist salary id   -- ------ ---------   3  8.00      0.2   4  9.00      0.4   1  10.00      0.8   5  10.00      0.8   2  12.00        1


وايضا بحال كنت تتعامل مع بيانات من مليون وفوق انصح بهذه الصفحة التي تحدد فيها اصدار فايربيرد وحجم الرام وعدد المستخدمين وما الى ذلك فتولد لك ملفين احدهما

firebird.conf وايضا  databases.conf لان فايربيرد عند التثبيت يتم تثبيته باعدادت افتراضية تكون سيئة وغير مضبوطة لتناسب حجم العمل الذي تعمل عليه

كود :
https://cc.ib-aid.com/democalc.html

سوف تقوم الصفحة باعطاء قيم لاستخدام الرامات وقيم لحجم الصفحات لقاعدة البيانات وامور مهمة لذلك


هذه النصائح مجالات مختلفة، من تحسينات الأجهزة/نظام التشغيل وتهيئة Firebird إلى توصيات تحسين SQL.
أولاً: تحسينات الأجهزة/نظام التشغيل:
  1. استخدام SSD لقاعدة البيانات: نقل قاعدة البيانات إلى SSD سيُحسّن سرعة القراءة والكتابة بشكل كبير.
  2. استخدام RAID 10: إذا كنت تستخدم RAID 1 أو RAID 5، ففكر في استخدام RAID 10، فهو أسرع بنسبة 15-25%.
  3. التحقق من BBU: تأكد من أن بطارية BBU (بطارية احتياطية للذاكرة) في حالة جيدة.
  4. ضبط ذاكرة التخزين المؤقت للكتابة على "write-back": سيُحسّن هذا الأداء عند كتابة البيانات على القرص.
  5. تمكين ذاكرة التخزين المؤقت للقراءة: سيُحسّن هذا الأداء عند قراءة البيانات من القرص.
  6. التحقق من نظام القرص الفرعي: تأكد من أن نظام القرص الفرعي يعمل بشكل صحيح.
  7. استخدام مساحة مؤقتة سريعة: خصص مساحة مؤقتة سريعة (SSD أو محرك RAM) لعمليات الفرز الكبيرة.
ثانياً: تحسينات تهيئة Firebird:
  1. استخدام SuperClassic أو Classic في Firebird 2.5: يُقدم SuperClassic أداءً أفضل للعمليات المتزامنة، بينما يُقدم Classic أداءً أفضل للعمليات المتسلسلة.
  2. استخدام SuperServer 3.0 في Firebird 3: يُقدم SuperServer 3.0 أداءً أفضل للعمليات المتزامنة والمتسلسلة.
  3. ضبط عدد صفحات ذاكرة التخزين المؤقت: اضبط عدد صفحات ذاكرة التخزين المؤقت وفقًا لحجم قاعدة البيانات وحجمها.
  4. ضبط عدد الموصلات: اضبط عدد الموصلات وفقًا لعدد المستخدمين المتزامنين.
  5. ضبط حجم ذاكرة التخزين المؤقت للقراءة/الكتابة: اضبط حجم ذاكرة التخزين المؤقت للقراءة/الكتابة وفقًا لحجم قاعدة البيانات وحجمها.
  6. ضبط مسار الملف المؤقت: خصص مسارًا سريعًا للملفات المؤقتة.
  7. إلغاء تنشيط الميزات غير المستخدمة: قم بإلغاء تنشيط الميزات غير المستخدمة لتحسين الأداء.

والصفحة السابقة تقوم باعطاء اغلب الاعدادات المذكورة لتحسين اداء محرك فايربيرد

وعلى سبيل المثال اعدادات خاصة قدمها بحسب مواصفات معينة تتماشى مع المواصفات التي تم تقديمها فقام بالغاء اشياء وفعل اشياء وزاد او غير في اشياء
ومن تجربتي الخاصة استعلامات كانت تاخذ حوالي 350 ملي ثانية على مليون و500 الف سجل اصبحت تأخذ 128 ملي ثانية
بمعنى ان الاعدادات هذه لا تصلح لاي جهاز بالضرورة

اعدادات لملف ملف  firebird.conf

كود :
ServerMode = Super DefaultDbCachePages = 50K # pages (SuperServer) - increase pages in databases.conf, not here LockMemSize = 20M # bytes (SuperServer) LockHashSlots = 40099 # slots MaxUnflushedWrites = -1 # default for posix (non-Windows) MaxUnflushedWriteTime = -1 # default for posix (non-Windows) UseFileSystemCache = true TempCacheLimit = 256M RemoteServicePort = 3050 InlineSortThreshold = 16384 # use REFETCH plan for big sortings ExtConnPoolSize = 64 # external connections pool size ExtConnPoolLifeTime = 3600 # seconds #set DataTypeCompatibility according Migration Guide https://ib-aid.com/download /docs/fb4migrationguide.html #DataTypeCompatibility = #WireCryptPlugin = ChaCha64, ChaCha, Arc4 #WireCrypt = Enabled (for client) / Required (for server) #WireCompression = false #RemoteAuxPort = 0 #authentication plugin setup #Recommendation - use SELECT * FROM SEC$USERS #to check that you have users for all plugins AuthServer = Srp256, Legacy_Auth UserManager = Srp, Legacy_UserManager #MaxIdentifierByteLength = 252 #MaxIdentifierCharLength = 63 #DefaultTimeZone = #SnapshotsMemSize = 64K # bytes #TipCacheBlockSize = 4M # bytes

اعدادات ملف  databases.conf

كود :
security.db = $(dir_secDb)/security4.fdb { RemoteAccess = false DefaultDbCachePages = 256 } testdb = c:\temp\mydb1.fdb { DefaultDBCachePages = 115536 LockMemSize = 30M TempCacheLimit  =2185M }

كما تجدر الاشارة الى ان الاعدادات التي يتم تقديمها تقوم بتحسين اداء فايربيرد ولكن ليس بالضرورة ان يكون افضل ما يكون ولتحصل على افضل شئ تحتاج الى فهم عمل كل هذه الخيارات وتجرب بنفسك


وهناك اشياء اخرى جديدة واشياء قديمة ومهمة و الذي سوف اضيفه كلما سنحت الفرصة لذلك
العبارة MERGE لدمج من مصدر الى جهة مستهدفة

مثال على الاستخدام

كود :
MERGE INTO books b   USING purchases p   ON p.title = b.title and p.type = 'bk'   WHEN MATCHED THEN     UPDATE SET b.desc = b.desc || '; ' || p.desc   WHEN NOT MATCHED THEN     INSERT (title, desc, bought) values (p.title, p.desc, p.bought);

كود :
MERGE INTO customers c     USING (SELECT * from customers_delta WHERE id > 10) cd     ON (c.id = cd.id)     WHEN MATCHED THEN       UPDATE SET name = cd.name     WHEN NOT MATCHED THEN       INSERT (id, name) values (cd.id, cd.name);

كود :
MERGE INTO numbers      USING (        WITH RECURSIVE r(n) AS (          SELECT 1 FROM rdb$database          UNION ALL          SELECT n+1 FROM r WHERE n < 200        )        SELECT n FROM r      ) t      ON numbers.num = t.n      WHEN NOT MATCHED THEN        INSERT(num) VALUES(t.n);

كيفية الحصول على عدد السجلات لأي استعلام دون تنفيذه؟

كود :
SELECT COUNT(*) FROM ( select * from employee where emp_no > 8 );

عبارة  current_connection تحفظ الاتصال الحالي


كود :
select current_connection from rdb$database

ويمكن اجراء عملية ما بها 

كود :
execute procedure P_Login(current_connection)

للحصول على التاريخ الان والساعة

كود :
select current_date from rdb$database


كود :
select current_time(2) from rdb$database



كود :
select current_time from rdb$database



العبارة  current_role للحصول على صلاحيات المستخدم الحالي

كود :
if (current_role <> 'MANAGER')   then exception only_managers_may_delete; else   delete from Customers where custno = :custno;

للحصول على معرف العملية الحالية


كود :
select current_transaction from rdb$database

كود :
New.Txn_ID = current_transaction;


للحصول على اسم المستخدم الحالي

كود :
create trigger bi_customers for customers before insert as begin   New.added_by  = CURRENT_USER;   New.purchases = 0; end

كود :
create trigger bi_customers for customers before insert as begin   New.added_by  = USER;   New.purchases = 0; end




تستخدم في القوادح لمعرفة اذا كان هناك حدث حذف حصل

كود :
if (deleting) then begin   insert into Removed_Cars (id, make, model, removed)     values (old.id, old.make, old.model, current_timestamp); end


او اضافة او تعديل

كود :
if (inserting or updating) then begin   if (new.serial_num is null) then     new.serial_num = gen_id(gen_serials, 1); end


ماذا لو لم تكن تريد استخدام مولدات الارقام لاستخدامه مع المفاتيح الاساسية بالجداول
هناك طريقة يمكن فعل ذلك بها باستخدام القوادح .
فعند استخدام مولدات الارقام وكان اخر رقم عندك هو مثلا 23000 وقمت بفتح سجل جديد ثم الغيت العملية وعدت واضفت سجل جديد فسيكون الرقم 23002 وليس 23001
ويجب وقتها التدخل برمجيا واعادة الترقيم الى الخلف بمقدر 1 
او استخدام القوادح لاجراء الترقيم كما بالمثال التالي

كود :
if(Coalesce(new.id,0)=0) then new.id = Coalesce((Select max(id) from doc),0)+1; begin

حيث Doc اسم الجدول ويتم وضع هذه السطور في الحدث قبل الاضافة

ولكن لا ينصح بها اذا كانت بياناتك اكبر من مليون ولازالت تنمو لان جملة Max على البيانات الكثيرة فيها بطئ
بخصول حجم الصفحة في اعدادت ملف قاعدة البيانات دور مهم في اداء قاعدة البيانات

[صورة: dmiles841.gif]

[صورة: dmiles842.gif]

عند انشاء قاعدة بيانات جديدة افتراضيا يتم وضعه على 16384 وعند انشاء قاعدة البيانات لا يمكن تغييره بعدها الا بانشاء نسخ احتياطي وعملية استرجاع



العديد من العمليات المستندة إلى الفهرس (تعمل الفهارس بشكل أسرع إذا تم تقليل عمق الفهرس)
  • السجلات العريضة: مع وجود هياكل بيانات عريضة جدًا، أي مع العديد من الأعمدة الطويلة جدًا، يكون قراءة مجموعة البيانات أكثر فعالية. بالنسبة لمجموعات البيانات التي لا تلائم صفحة واحدة، يلزم قراءة عدة صفحات لاسترداد مجموعة بيانات واحدة. وينطبق الأمر نفسه على الكتابة، أي أن الجلب عبر عدة صفحات ضروري.
  • حقول blob الكبيرة: يتم تخزين البيانات واسترجاعها بكفاءة أكبر إذا كان عدد الصفحات التي تحتاج إلى جلبها أقل. مع البيانات blob الأكبر، تكون عمليات الكتابة والقراءة أكثر فعالية أيضًا، حيث يلزم على سبيل المثال 100 عملية وصول لعمود blob بحجم 100 كيلو بايت مع حجم صفحة 1 كيلو بايت. ولكن مع حجم صفحة 8 كيلو بايت، يلزم فقط 13 عملية.
  • حجم صفحة صغير: يكون حجم صفحة صغير كافياً إذا كان العديد من المعاملات يعيد فقط عددًا قليلاً من الأسطر. يمكن الوصول إلى هياكل الجداول النحيل مع صفحات قاعدة بيانات صغيرة بشكل أسرع للقراءة والكتابة حيث يلزم ذاكرة أقل، ويمكن الاحتفاظ بالمزيد من صفحات قاعدة البيانات في ذاكرة التخزين المؤقت. ومع ذلك، لا يُنصح باستخدام قاعدة بيانات بحجم صفحة أقل من 4096 على Windows، حيث أن هذا هو حجم كتلة Windows. لذلك، لا تقدم أحجام الصفحات الأصغر أي ميزات، حيث سيظل Windows يستخرج كتل 4 كيلو بايت.
تأثير حجم صفحة قاعدة البيانات على ذاكرة التخزين المؤقت:
  • يؤثر حجم صفحة قاعدة البيانات بشكل مباشر على مقدار ذاكرة التخزين المؤقت لقاعدة البيانات، والذي يؤثر على جميع النقاط المذكورة أعلاه. إذا تم تحديد حجم صفحة 16 كيلو بايت وحدد ذاكرة التخزين المؤقت لقاعدة بيانات خادم Firebird في firebird.conf بحد أقصى 128,000 صفحة، فسيتم توفير إجمالي ذاكرة تخزين مؤقت 2 غيغابايت لإيواء صفحات البيانات. لا يوفر نفس مواصفات ذاكرة التخزين المؤقت مع حجم صفحة 1 كيلو بايت سوى 180 ميغابايت من ذاكرة التخزين المؤقت. يُرجى الرجوع إلى تكوين الذاكرة للحصول على تفاصيل مواصفات ذاكرة التخزين المؤقت لخادم Firebird Superserver وخادم Classic.

عوامل أخرى يجب مراعاتها:
  • على الرغم من إمكانية إضاعة مساحة معينة بحجم صفحة كبير، إلا أنه لا ينبغي أن يكون هذا مشكلة خطيرة بأسعار الأجهزة الحالية، ويمكن أن يوفر مزايا أكبر في الأداء.
  • الطريقة الوحيدة لتغيير حجم صفحة قاعدة البيانات لاحقًا هي إجراء نسخة احتياطية لقاعدة البيانات يليها استعادة (بند قائمة IBExpert، الخدمات / استعادة قاعدة البيانات) حيث يمكن إعادة تعريف حجم صفحة قاعدة البيانات.
]]>

الدالة ROW_COUNT 

كود :
BEGIN     SELECT COL FROM TAB INTO :VAR;     IF (ROW_COUNT = 0) THEN       EXCEPTION NO_DATA_FOUND;   END

تعيد عدد الصفوف المتأثرة من جملة الاستعلام او الحذف او التعديل بمعنى العملية التي تم تنفيدها
مثال اخر

كود :
update Figures set Number = 0 where id = :id; if (row_count = 0) then   insert into Figures (id, Number) values (:id, 0);


المؤشرات Explicit Cursors

أصبح من الممكن الآن الإعلان عن مؤشرات متعددة واستخدامها في PSQL. تتوفر المؤشرات الصريحة في بنية DSQL EXECUTE BLOCK وكذلك في الإجراءات والمشغلات المخزنة.

كود :
DECLARE RNAME CHAR(31);     DECLARE C CURSOR FOR ( SELECT RDB$RELATION_NAME                               FROM RDB$RELATIONS );     BEGIN       OPEN C;       WHILE (1 = 1) DO       BEGIN         FETCH C INTO :RNAME;         IF (ROW_COUNT = 0) THEN           LEAVE;         SUSPEND;       END       CLOSE C;     END


مثال اخر

كود :
DECLARE RNAME CHAR(31);     DECLARE FNAME CHAR(31);     DECLARE C CURSOR FOR ( SELECT RDB$FIELD_NAME                            FROM RDB$RELATION_FIELDS                            WHERE RDB$RELATION_NAME = :RNAME                            ORDER BY RDB$FIELD_POSITION );     BEGIN       FOR         SELECT RDB$RELATION_NAME         FROM RDB$RELATIONS         INTO :RNAME       DO       BEGIN         OPEN C;         FETCH C INTO :FNAME;         CLOSE C;         SUSPEND;       END     END

بالامكان الان اسناد القيم الافتراضية في الاجراءات المخزنة
Defaults for Stored Procedure Arguments


كود :
CREATE PROCEDURE P1 (X INTEGER = 123)    RETURNS (Y INTEGER)    AS    BEGIN      Y = X;      SUSPEND;    END

بالامكان استخدام العبارة LEAVE لانهاء حلقة تكرارية او الخروج من تنفيد اي عملية قائمة

كود :
FOR      SELECT COALESCE(RDB$SYSTEM_FLAG, 0), RDB$RELATION_NAME        FROM RDB$RELATIONS        ORDER BY 1      INTO :RTYPE, :RNAME      DO      BEGIN        IF (RTYPE = 0) THEN          SUSPEND;        ELSE          LEAVE; -- exits current loop      END


كود :
CNT = 100;    L1:    WHILE (CNT >= 0) DO    BEGIN      IF (CNT < 50) THEN        LEAVE L1; -- exists WHILE loop      CNT = CNT - l;    END

العبارة ROW_NUMBER

كود :
select     id,     salary,     row_number() over (order by salary)   from employee   order by salary;

تعطي رقم متسلسل للصفوف وتعمل مع عبارة Over التجميعية بما ياتي معها من صيغ مختلفة حسب الطلب

العبارة RANK

كود :
select     id,     salary,     rank() over (order by salary)   from employee   order by salary;

مثل السابقة ولكن تكرر الترقيم بحال كان مكرر لاحظ النتيجة

كود :
rank salary id   -- ------ ----   3  8.00     1   4  9.00     2   1 10.00     3   5 10.00     3   2 12.00     5

العبارة PERCENT_RANK

كود :
select     id,     salary,     rank() over (order by salary),     percent_rank() over (order by salary)   from employee   order by salary;

نفس السابقة وبنسب مئوية


العبارة  cume_dist

كود :
select     id,     salary,     cume_dist() over (order by salary)   from employee   order by salary;

كود :
  cume_dist salary id   -- ------ ---------   3  8.00      0.2   4  9.00      0.4   1  10.00      0.8   5  10.00      0.8   2  12.00        1


وايضا بحال كنت تتعامل مع بيانات من مليون وفوق انصح بهذه الصفحة التي تحدد فيها اصدار فايربيرد وحجم الرام وعدد المستخدمين وما الى ذلك فتولد لك ملفين احدهما

firebird.conf وايضا  databases.conf لان فايربيرد عند التثبيت يتم تثبيته باعدادت افتراضية تكون سيئة وغير مضبوطة لتناسب حجم العمل الذي تعمل عليه

كود :
https://cc.ib-aid.com/democalc.html

سوف تقوم الصفحة باعطاء قيم لاستخدام الرامات وقيم لحجم الصفحات لقاعدة البيانات وامور مهمة لذلك


هذه النصائح مجالات مختلفة، من تحسينات الأجهزة/نظام التشغيل وتهيئة Firebird إلى توصيات تحسين SQL.
أولاً: تحسينات الأجهزة/نظام التشغيل:
  1. استخدام SSD لقاعدة البيانات: نقل قاعدة البيانات إلى SSD سيُحسّن سرعة القراءة والكتابة بشكل كبير.
  2. استخدام RAID 10: إذا كنت تستخدم RAID 1 أو RAID 5، ففكر في استخدام RAID 10، فهو أسرع بنسبة 15-25%.
  3. التحقق من BBU: تأكد من أن بطارية BBU (بطارية احتياطية للذاكرة) في حالة جيدة.
  4. ضبط ذاكرة التخزين المؤقت للكتابة على "write-back": سيُحسّن هذا الأداء عند كتابة البيانات على القرص.
  5. تمكين ذاكرة التخزين المؤقت للقراءة: سيُحسّن هذا الأداء عند قراءة البيانات من القرص.
  6. التحقق من نظام القرص الفرعي: تأكد من أن نظام القرص الفرعي يعمل بشكل صحيح.
  7. استخدام مساحة مؤقتة سريعة: خصص مساحة مؤقتة سريعة (SSD أو محرك RAM) لعمليات الفرز الكبيرة.
ثانياً: تحسينات تهيئة Firebird:
  1. استخدام SuperClassic أو Classic في Firebird 2.5: يُقدم SuperClassic أداءً أفضل للعمليات المتزامنة، بينما يُقدم Classic أداءً أفضل للعمليات المتسلسلة.
  2. استخدام SuperServer 3.0 في Firebird 3: يُقدم SuperServer 3.0 أداءً أفضل للعمليات المتزامنة والمتسلسلة.
  3. ضبط عدد صفحات ذاكرة التخزين المؤقت: اضبط عدد صفحات ذاكرة التخزين المؤقت وفقًا لحجم قاعدة البيانات وحجمها.
  4. ضبط عدد الموصلات: اضبط عدد الموصلات وفقًا لعدد المستخدمين المتزامنين.
  5. ضبط حجم ذاكرة التخزين المؤقت للقراءة/الكتابة: اضبط حجم ذاكرة التخزين المؤقت للقراءة/الكتابة وفقًا لحجم قاعدة البيانات وحجمها.
  6. ضبط مسار الملف المؤقت: خصص مسارًا سريعًا للملفات المؤقتة.
  7. إلغاء تنشيط الميزات غير المستخدمة: قم بإلغاء تنشيط الميزات غير المستخدمة لتحسين الأداء.

والصفحة السابقة تقوم باعطاء اغلب الاعدادات المذكورة لتحسين اداء محرك فايربيرد

وعلى سبيل المثال اعدادات خاصة قدمها بحسب مواصفات معينة تتماشى مع المواصفات التي تم تقديمها فقام بالغاء اشياء وفعل اشياء وزاد او غير في اشياء
ومن تجربتي الخاصة استعلامات كانت تاخذ حوالي 350 ملي ثانية على مليون و500 الف سجل اصبحت تأخذ 128 ملي ثانية
بمعنى ان الاعدادات هذه لا تصلح لاي جهاز بالضرورة

اعدادات لملف ملف  firebird.conf

كود :
ServerMode = Super DefaultDbCachePages = 50K # pages (SuperServer) - increase pages in databases.conf, not here LockMemSize = 20M # bytes (SuperServer) LockHashSlots = 40099 # slots MaxUnflushedWrites = -1 # default for posix (non-Windows) MaxUnflushedWriteTime = -1 # default for posix (non-Windows) UseFileSystemCache = true TempCacheLimit = 256M RemoteServicePort = 3050 InlineSortThreshold = 16384 # use REFETCH plan for big sortings ExtConnPoolSize = 64 # external connections pool size ExtConnPoolLifeTime = 3600 # seconds #set DataTypeCompatibility according Migration Guide https://ib-aid.com/download /docs/fb4migrationguide.html #DataTypeCompatibility = #WireCryptPlugin = ChaCha64, ChaCha, Arc4 #WireCrypt = Enabled (for client) / Required (for server) #WireCompression = false #RemoteAuxPort = 0 #authentication plugin setup #Recommendation - use SELECT * FROM SEC$USERS #to check that you have users for all plugins AuthServer = Srp256, Legacy_Auth UserManager = Srp, Legacy_UserManager #MaxIdentifierByteLength = 252 #MaxIdentifierCharLength = 63 #DefaultTimeZone = #SnapshotsMemSize = 64K # bytes #TipCacheBlockSize = 4M # bytes

اعدادات ملف  databases.conf

كود :
security.db = $(dir_secDb)/security4.fdb { RemoteAccess = false DefaultDbCachePages = 256 } testdb = c:\temp\mydb1.fdb { DefaultDBCachePages = 115536 LockMemSize = 30M TempCacheLimit  =2185M }

كما تجدر الاشارة الى ان الاعدادات التي يتم تقديمها تقوم بتحسين اداء فايربيرد ولكن ليس بالضرورة ان يكون افضل ما يكون ولتحصل على افضل شئ تحتاج الى فهم عمل كل هذه الخيارات وتجرب بنفسك


وهناك اشياء اخرى جديدة واشياء قديمة ومهمة و الذي سوف اضيفه كلما سنحت الفرصة لذلك
العبارة MERGE لدمج من مصدر الى جهة مستهدفة

مثال على الاستخدام

كود :
MERGE INTO books b   USING purchases p   ON p.title = b.title and p.type = 'bk'   WHEN MATCHED THEN     UPDATE SET b.desc = b.desc || '; ' || p.desc   WHEN NOT MATCHED THEN     INSERT (title, desc, bought) values (p.title, p.desc, p.bought);

كود :
MERGE INTO customers c     USING (SELECT * from customers_delta WHERE id > 10) cd     ON (c.id = cd.id)     WHEN MATCHED THEN       UPDATE SET name = cd.name     WHEN NOT MATCHED THEN       INSERT (id, name) values (cd.id, cd.name);

كود :
MERGE INTO numbers      USING (        WITH RECURSIVE r(n) AS (          SELECT 1 FROM rdb$database          UNION ALL          SELECT n+1 FROM r WHERE n < 200        )        SELECT n FROM r      ) t      ON numbers.num = t.n      WHEN NOT MATCHED THEN        INSERT(num) VALUES(t.n);

كيفية الحصول على عدد السجلات لأي استعلام دون تنفيذه؟

كود :
SELECT COUNT(*) FROM ( select * from employee where emp_no > 8 );

عبارة  current_connection تحفظ الاتصال الحالي


كود :
select current_connection from rdb$database

ويمكن اجراء عملية ما بها 

كود :
execute procedure P_Login(current_connection)

للحصول على التاريخ الان والساعة

كود :
select current_date from rdb$database


كود :
select current_time(2) from rdb$database



كود :
select current_time from rdb$database



العبارة  current_role للحصول على صلاحيات المستخدم الحالي

كود :
if (current_role <> 'MANAGER')   then exception only_managers_may_delete; else   delete from Customers where custno = :custno;

للحصول على معرف العملية الحالية


كود :
select current_transaction from rdb$database

كود :
New.Txn_ID = current_transaction;


للحصول على اسم المستخدم الحالي

كود :
create trigger bi_customers for customers before insert as begin   New.added_by  = CURRENT_USER;   New.purchases = 0; end

كود :
create trigger bi_customers for customers before insert as begin   New.added_by  = USER;   New.purchases = 0; end




تستخدم في القوادح لمعرفة اذا كان هناك حدث حذف حصل

كود :
if (deleting) then begin   insert into Removed_Cars (id, make, model, removed)     values (old.id, old.make, old.model, current_timestamp); end


او اضافة او تعديل

كود :
if (inserting or updating) then begin   if (new.serial_num is null) then     new.serial_num = gen_id(gen_serials, 1); end


ماذا لو لم تكن تريد استخدام مولدات الارقام لاستخدامه مع المفاتيح الاساسية بالجداول
هناك طريقة يمكن فعل ذلك بها باستخدام القوادح .
فعند استخدام مولدات الارقام وكان اخر رقم عندك هو مثلا 23000 وقمت بفتح سجل جديد ثم الغيت العملية وعدت واضفت سجل جديد فسيكون الرقم 23002 وليس 23001
ويجب وقتها التدخل برمجيا واعادة الترقيم الى الخلف بمقدر 1 
او استخدام القوادح لاجراء الترقيم كما بالمثال التالي

كود :
if(Coalesce(new.id,0)=0) then new.id = Coalesce((Select max(id) from doc),0)+1; begin

حيث Doc اسم الجدول ويتم وضع هذه السطور في الحدث قبل الاضافة

ولكن لا ينصح بها اذا كانت بياناتك اكبر من مليون ولازالت تنمو لان جملة Max على البيانات الكثيرة فيها بطئ
بخصول حجم الصفحة في اعدادت ملف قاعدة البيانات دور مهم في اداء قاعدة البيانات

[صورة: dmiles841.gif]

[صورة: dmiles842.gif]

عند انشاء قاعدة بيانات جديدة افتراضيا يتم وضعه على 16384 وعند انشاء قاعدة البيانات لا يمكن تغييره بعدها الا بانشاء نسخ احتياطي وعملية استرجاع



العديد من العمليات المستندة إلى الفهرس (تعمل الفهارس بشكل أسرع إذا تم تقليل عمق الفهرس)
  • السجلات العريضة: مع وجود هياكل بيانات عريضة جدًا، أي مع العديد من الأعمدة الطويلة جدًا، يكون قراءة مجموعة البيانات أكثر فعالية. بالنسبة لمجموعات البيانات التي لا تلائم صفحة واحدة، يلزم قراءة عدة صفحات لاسترداد مجموعة بيانات واحدة. وينطبق الأمر نفسه على الكتابة، أي أن الجلب عبر عدة صفحات ضروري.
  • حقول blob الكبيرة: يتم تخزين البيانات واسترجاعها بكفاءة أكبر إذا كان عدد الصفحات التي تحتاج إلى جلبها أقل. مع البيانات blob الأكبر، تكون عمليات الكتابة والقراءة أكثر فعالية أيضًا، حيث يلزم على سبيل المثال 100 عملية وصول لعمود blob بحجم 100 كيلو بايت مع حجم صفحة 1 كيلو بايت. ولكن مع حجم صفحة 8 كيلو بايت، يلزم فقط 13 عملية.
  • حجم صفحة صغير: يكون حجم صفحة صغير كافياً إذا كان العديد من المعاملات يعيد فقط عددًا قليلاً من الأسطر. يمكن الوصول إلى هياكل الجداول النحيل مع صفحات قاعدة بيانات صغيرة بشكل أسرع للقراءة والكتابة حيث يلزم ذاكرة أقل، ويمكن الاحتفاظ بالمزيد من صفحات قاعدة البيانات في ذاكرة التخزين المؤقت. ومع ذلك، لا يُنصح باستخدام قاعدة بيانات بحجم صفحة أقل من 4096 على Windows، حيث أن هذا هو حجم كتلة Windows. لذلك، لا تقدم أحجام الصفحات الأصغر أي ميزات، حيث سيظل Windows يستخرج كتل 4 كيلو بايت.
تأثير حجم صفحة قاعدة البيانات على ذاكرة التخزين المؤقت:
  • يؤثر حجم صفحة قاعدة البيانات بشكل مباشر على مقدار ذاكرة التخزين المؤقت لقاعدة البيانات، والذي يؤثر على جميع النقاط المذكورة أعلاه. إذا تم تحديد حجم صفحة 16 كيلو بايت وحدد ذاكرة التخزين المؤقت لقاعدة بيانات خادم Firebird في firebird.conf بحد أقصى 128,000 صفحة، فسيتم توفير إجمالي ذاكرة تخزين مؤقت 2 غيغابايت لإيواء صفحات البيانات. لا يوفر نفس مواصفات ذاكرة التخزين المؤقت مع حجم صفحة 1 كيلو بايت سوى 180 ميغابايت من ذاكرة التخزين المؤقت. يُرجى الرجوع إلى تكوين الذاكرة للحصول على تفاصيل مواصفات ذاكرة التخزين المؤقت لخادم Firebird Superserver وخادم Classic.

عوامل أخرى يجب مراعاتها:
  • على الرغم من إمكانية إضاعة مساحة معينة بحجم صفحة كبير، إلا أنه لا ينبغي أن يكون هذا مشكلة خطيرة بأسعار الأجهزة الحالية، ويمكن أن يوفر مزايا أكبر في الأداء.
  • الطريقة الوحيدة لتغيير حجم صفحة قاعدة البيانات لاحقًا هي إجراء نسخة احتياطية لقاعدة البيانات يليها استعادة (بند قائمة IBExpert، الخدمات / استعادة قاعدة البيانات) حيث يمكن إعادة تعريف حجم صفحة قاعدة البيانات.
]]> <![CDATA[الاجراءات الخارجية UDF في فايربيرد]]> https://delphi4arab.net/forum/showthread.php?tid=12017 Thu, 28 Jul 2022 11:32:22 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=12017

كلما زادت احتياجاتي في برامجي كلما زاد البحث عن حلول
واكتشف ان هناك امور احيانا معقدة تحتاج الى اجراءات معقدة ووجدت ان الفايربيرد لديه شئ يسمى UDF 
طبعا ليس لدي المام كامل ولازلت اجرب وسوف اشرح فقط ما استطعت ان افهمه
الاجراءات الخارجية هي موجودة بمكتبات خارجية DLL عند تنصيب الفايربيرد توجد مكتبة وحيدة مضمنة معه fbudf.dll وموجودة بالمجلد UDF

في ملفات المساعدة يوجد سؤال لماذا الاجراءات الخارجية ولدينا الاجراءات المخزنة
الاجراءات المخزنة تبقى قاصرة احيانا عن اجراء بعض الامور

وهذا لمسته بنفسي فاحيانا يصبح الاجراء مركب ومتداخل ويعترض السيرفر انه غير قادر على تنفيد هذا التركيب المتداخل

مثال

كود :
For Select d1,sun(E1* F4) ,S3,A5 from (Select H1,Sum(O4),sum(p2) From EmpTable);

الاستعلام المركب اذا اضفت له فلترة بالعبارة Where مرتين مرة للعبارة Select الاولى ومرة للعبارة Select الثانية غالبا لن ينفذ السيرفر هذا الاستعلام


ولتفادي هذه المشكلة يمكن اللجؤ الى الاجراءات الخارجية وتنفيذ العمليات المعقدة بشكل منفصل لتخفيف التعقيد على السيرفر في التداخل الذي يحصل عنده وايضا لترتيب وتقليل الشوشرة عليك ايضا في فصل العملية الى عدة عمليات

طبعا لتستخدمها بداخل قاعدة البيانات يجب ان تعلن عن الاجراءات التي تريد ان تستخدمها وتضيفها الى قاعدة البيانات
في برنامج IBexpert او اي برنامج ستجد تحت الجداول والقوادح والاجراءت المخزنة الاجراءات الخارجية UDF's






[صورة: attachment.php?aid=4663]

يمكنك من هنا الاعلان عن الاجراء الخارجي مرئيا
او فتح نافذة SQL-editor وكتابته يدويا مثل

كود :
DECLARE EXTERNAL FUNCTION ADDMONTH     TIMESTAMP,     INTEGER RETURNS TIMESTAMP ENTRY_POINT 'addMonth' MODULE_NAME 'fbudf';

هذا اجراء لاضافة شهور معينة الى التاريخ

ستلاحظ عند كتابة الاستعلامات انه يخبرك ان هذا الاجراء هو اجراء خارجي

[صورة: attachment.php?aid=4662]


طبعا في الملجد UDF بمجلد سيرفر الفايربيرد ستجلد ملفات نصية SQL فيها بيان بكل الاجراءات الموجودة بالمكتبة والتي يمكن استخدامها

بعد الاعلان عن الاجراء يمكنك استخدامه في الاستعلامات بشكل طبيعي مثل

كود :
select      addmonth(Emp.mdate,5) from Emp group by Emp.mdate

هناك الكثير من الاجراءات التي يمكن استخدامها والكثير من المكتبات الي يمكن اضافتها

هنا درس لمكتبات يمكن استخدامها تحوي العشرات وربما المئات من الاجراءات

كود :
https://blogs.embarcadero.com/user-defined-functions-with-interbase/

و من هنا يمكنك تحميل  المكتبة المجانية

كود :
http://freeadhocudf.org/index_eng.html

ومن هنا يمكنك مطالعة كل الاجراءات التي تحويها

كود :
http://freeadhocudf.org/documentation_english/dok_eng_inhalt.html


لاحظ جزء بسيط من الاجراءات التي تحويها

كود :
DECLARE EXTERNAL FUNCTION F_ARABIC2ROMAN     INTEGER     RETURNS CSTRING(255) FREE_IT     ENTRY_POINT 'arabic2roman' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_CONVERTFROM33     CSTRING(255)     RETURNS INTEGER FREE_IT     ENTRY_POINT 'convertfrom33' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_CONVERTFROMBASE     CSTRING(255) ,     INTEGER ,     CSTRING(255)     RETURNS INTEGER FREE_IT     ENTRY_POINT 'convertfrombase' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_CONVERTTO33     INTEGER     RETURNS CSTRING(255) FREE_IT     ENTRY_POINT 'convertto33' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_CONVERTTOBASE     INTEGER ,     INTEGER ,     CSTRING(255)     RETURNS CSTRING(255) FREE_IT     ENTRY_POINT 'converttobase' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_AC2SQM     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'ac2sqm' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_AR2SQM     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'ar2sqm' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_BAR2PA     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'bar2pa' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_BAR2TORR     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'bar2torr' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_BBL2L     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'bbl2l' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_BHP2KW     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'bhp2kw' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_C2F     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'c2f' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CAL2J     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'cal2j' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CBL2M     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'cbl2m' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CBM2RT     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'cbm2rt' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CH2M     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'ch2m' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CT2G     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'ct2g' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CUB2CUYD     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'cum2cuyd' MODULE_NAME 'FreeAdhocUDF';

مثال من الاجراء الاول على سبيل المثال

كود :
select  F_ARABIC2ROMAN(1) from Emp

يعيد الحرف I من الحروف الانجليزية

واعتقد بالامكان استخدام حتى مكتبات النظام ويندوز نفسه لانك لو لاحظت التالي

كود :
DECLARE EXTERNAL FUNCTION RDB$GET_CONTEXT     VARCHAR(80) NULL,     VARCHAR(80) NULL RETURNS VARCHAR(255) FREE_IT ENTRY_POINT 'get_context' MODULE_NAME 'system_module';

في الـ MODULE_NAME تكتب اسم المكتبة اللتي تريدها 

 كما ان بالامكان انشاء ملف DLL بالدلفي واستخدام الاجراءات التي فيه من داخل قاعدة البيانات او من قبل سيرفر الفايربيرد

وهنا مثال على الاستخدام

كود :
https://firebirdsql.org/en/writing-udfs-for-interbase/


وتبقى ملاحظة صغيرة عند اضافة مكتبات جديدة System32  او مجلد Bin للسيرفر اغلق برنامج ادارة قواعد البيانات وافتحه من جديد للتعرف عليها

.jpg   111.jpg (الحجم : 21.19 ك ب / التحميلات : 97)

.jpg   222.jpg (الحجم : 26.62 ك ب / التحميلات : 102) ]]>

كلما زادت احتياجاتي في برامجي كلما زاد البحث عن حلول
واكتشف ان هناك امور احيانا معقدة تحتاج الى اجراءات معقدة ووجدت ان الفايربيرد لديه شئ يسمى UDF 
طبعا ليس لدي المام كامل ولازلت اجرب وسوف اشرح فقط ما استطعت ان افهمه
الاجراءات الخارجية هي موجودة بمكتبات خارجية DLL عند تنصيب الفايربيرد توجد مكتبة وحيدة مضمنة معه fbudf.dll وموجودة بالمجلد UDF

في ملفات المساعدة يوجد سؤال لماذا الاجراءات الخارجية ولدينا الاجراءات المخزنة
الاجراءات المخزنة تبقى قاصرة احيانا عن اجراء بعض الامور

وهذا لمسته بنفسي فاحيانا يصبح الاجراء مركب ومتداخل ويعترض السيرفر انه غير قادر على تنفيد هذا التركيب المتداخل

مثال

كود :
For Select d1,sun(E1* F4) ,S3,A5 from (Select H1,Sum(O4),sum(p2) From EmpTable);

الاستعلام المركب اذا اضفت له فلترة بالعبارة Where مرتين مرة للعبارة Select الاولى ومرة للعبارة Select الثانية غالبا لن ينفذ السيرفر هذا الاستعلام


ولتفادي هذه المشكلة يمكن اللجؤ الى الاجراءات الخارجية وتنفيذ العمليات المعقدة بشكل منفصل لتخفيف التعقيد على السيرفر في التداخل الذي يحصل عنده وايضا لترتيب وتقليل الشوشرة عليك ايضا في فصل العملية الى عدة عمليات

طبعا لتستخدمها بداخل قاعدة البيانات يجب ان تعلن عن الاجراءات التي تريد ان تستخدمها وتضيفها الى قاعدة البيانات
في برنامج IBexpert او اي برنامج ستجد تحت الجداول والقوادح والاجراءت المخزنة الاجراءات الخارجية UDF's






[صورة: attachment.php?aid=4663]

يمكنك من هنا الاعلان عن الاجراء الخارجي مرئيا
او فتح نافذة SQL-editor وكتابته يدويا مثل

كود :
DECLARE EXTERNAL FUNCTION ADDMONTH     TIMESTAMP,     INTEGER RETURNS TIMESTAMP ENTRY_POINT 'addMonth' MODULE_NAME 'fbudf';

هذا اجراء لاضافة شهور معينة الى التاريخ

ستلاحظ عند كتابة الاستعلامات انه يخبرك ان هذا الاجراء هو اجراء خارجي

[صورة: attachment.php?aid=4662]


طبعا في الملجد UDF بمجلد سيرفر الفايربيرد ستجلد ملفات نصية SQL فيها بيان بكل الاجراءات الموجودة بالمكتبة والتي يمكن استخدامها

بعد الاعلان عن الاجراء يمكنك استخدامه في الاستعلامات بشكل طبيعي مثل

كود :
select      addmonth(Emp.mdate,5) from Emp group by Emp.mdate

هناك الكثير من الاجراءات التي يمكن استخدامها والكثير من المكتبات الي يمكن اضافتها

هنا درس لمكتبات يمكن استخدامها تحوي العشرات وربما المئات من الاجراءات

كود :
https://blogs.embarcadero.com/user-defined-functions-with-interbase/

و من هنا يمكنك تحميل  المكتبة المجانية

كود :
http://freeadhocudf.org/index_eng.html

ومن هنا يمكنك مطالعة كل الاجراءات التي تحويها

كود :
http://freeadhocudf.org/documentation_english/dok_eng_inhalt.html


لاحظ جزء بسيط من الاجراءات التي تحويها

كود :
DECLARE EXTERNAL FUNCTION F_ARABIC2ROMAN     INTEGER     RETURNS CSTRING(255) FREE_IT     ENTRY_POINT 'arabic2roman' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_CONVERTFROM33     CSTRING(255)     RETURNS INTEGER FREE_IT     ENTRY_POINT 'convertfrom33' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_CONVERTFROMBASE     CSTRING(255) ,     INTEGER ,     CSTRING(255)     RETURNS INTEGER FREE_IT     ENTRY_POINT 'convertfrombase' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_CONVERTTO33     INTEGER     RETURNS CSTRING(255) FREE_IT     ENTRY_POINT 'convertto33' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_CONVERTTOBASE     INTEGER ,     INTEGER ,     CSTRING(255)     RETURNS CSTRING(255) FREE_IT     ENTRY_POINT 'converttobase' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_AC2SQM     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'ac2sqm' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_AR2SQM     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'ar2sqm' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_BAR2PA     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'bar2pa' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_BAR2TORR     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'bar2torr' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_BBL2L     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'bbl2l' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_BHP2KW     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'bhp2kw' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_C2F     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'c2f' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CAL2J     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'cal2j' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CBL2M     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'cbl2m' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CBM2RT     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'cbm2rt' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CH2M     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'ch2m' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CT2G     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'ct2g' MODULE_NAME 'FreeAdhocUDF'; DECLARE EXTERNAL FUNCTION F_C_CUB2CUYD     DOUBLE PRECISION     RETURNS DOUBLE PRECISION FREE_IT     ENTRY_POINT 'cum2cuyd' MODULE_NAME 'FreeAdhocUDF';

مثال من الاجراء الاول على سبيل المثال

كود :
select  F_ARABIC2ROMAN(1) from Emp

يعيد الحرف I من الحروف الانجليزية

واعتقد بالامكان استخدام حتى مكتبات النظام ويندوز نفسه لانك لو لاحظت التالي

كود :
DECLARE EXTERNAL FUNCTION RDB$GET_CONTEXT     VARCHAR(80) NULL,     VARCHAR(80) NULL RETURNS VARCHAR(255) FREE_IT ENTRY_POINT 'get_context' MODULE_NAME 'system_module';

في الـ MODULE_NAME تكتب اسم المكتبة اللتي تريدها 

 كما ان بالامكان انشاء ملف DLL بالدلفي واستخدام الاجراءات التي فيه من داخل قاعدة البيانات او من قبل سيرفر الفايربيرد

وهنا مثال على الاستخدام

كود :
https://firebirdsql.org/en/writing-udfs-for-interbase/


وتبقى ملاحظة صغيرة عند اضافة مكتبات جديدة System32  او مجلد Bin للسيرفر اغلق برنامج ادارة قواعد البيانات وافتحه من جديد للتعرف عليها

.jpg   111.jpg (الحجم : 21.19 ك ب / التحميلات : 97)

.jpg   222.jpg (الحجم : 26.62 ك ب / التحميلات : 102) ]]> <![CDATA[Smart Mobile Studio]]> https://delphi4arab.net/forum/showthread.php?tid=11742 Tue, 04 Jan 2022 02:55:19 +0100 wadoud]]> https://delphi4arab.net/forum/showthread.php?tid=11742


للتعرف أكثر من هنا]]>


للتعرف أكثر من هنا]]> <![CDATA[شركة الفا كنترول تستعرض عضلاتها لمكوناتها]]> https://delphi4arab.net/forum/showthread.php?tid=10349 Thu, 01 Aug 2019 08:43:37 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=10349 وطبعا هذه المكونات مرفقة معنا بالقسم هنا للتثبيت

رابط الصفحة التي فيها الاستعراض

http://www.alphaskins.com/ademos.php


في المثال هنا وطبعا لا يحتاج ان تكون مثبت دلفي للتجربة 

http://www.alphaskins.com/sfiles/askindemo.zip


ستجدون خيار فوق كما بالصورة تحت  Custom DPI هو للتحكم بحجم البرنامج واعطاء برنامجك حجم ليتناسب مع احجام الشاشة
بينما يلهث الاخرون حول حلول لتناسب حجم الشاشة يقدم لكم هذا في الدلفي على طبق من الذهب .
لانك كمبرمج دلفي وباسكال تعتبر مبرمج ذهبي ونادر ايضا .
جربوه واعطوني انطباعكم ورأيكم

[صورة: amegademo.png]



في مثال اخر تظهر بشكل بسيط وسهل وظريف محتوى قاعدة البيانات مع صورة السجل في شكل تلميح Hint بمجرد مرور الفأرة

[صورة: dbhints.png]




كما تستعرض امكانيات حتى ادواتها القياسية التي خرجت بها عن المألوف مثلا ازرار لها ازرار صغيرة تحمل ارقام هي مفيدة مثلا زر يحمل عنوان الاصناف له زر او تلميح فيه رقم 560 اي عدد الاصناف

[صورة: a118.png]


كما انها لم تنسى اعطائكم التركيز على الشئ الذي تعملون عليه وتشويش الخلفية او حتى اعطائكم رسائل مختلفة متميزة للتفاعل
حتى الشريط العلوي للنافذة تحت تصرفك لاظافة ما تريد من ازرار وقوائم كما هنا بالصورة تحت العنوان Show panel

[صورة: splitviewdemo.png]


هل تعتقدون ان المكونات تأتي بشكل جامد وتابث ، لا طبعا مثلا عندكم المكون Tap يأتي بخيارات كثيرة حتى تتلائم مع العمل الذي تقوم به

[صورة: spagectrldemo.jpg]

كما تقدم Popup Control  التي تعطيك ميزات رائعة في تصميم واجهة مشروعك وتوفر مساحات كبيرة وايضا دعم من اليمين لليسار للمكونات

 
.jpg   13.jpg (الحجم : 159.32 ك ب / التحميلات : 19)

الحديث عنها يطول وافضل الاكتشاف الفردي لها]]> وطبعا هذه المكونات مرفقة معنا بالقسم هنا للتثبيت

رابط الصفحة التي فيها الاستعراض

http://www.alphaskins.com/ademos.php


في المثال هنا وطبعا لا يحتاج ان تكون مثبت دلفي للتجربة 

http://www.alphaskins.com/sfiles/askindemo.zip


ستجدون خيار فوق كما بالصورة تحت  Custom DPI هو للتحكم بحجم البرنامج واعطاء برنامجك حجم ليتناسب مع احجام الشاشة
بينما يلهث الاخرون حول حلول لتناسب حجم الشاشة يقدم لكم هذا في الدلفي على طبق من الذهب .
لانك كمبرمج دلفي وباسكال تعتبر مبرمج ذهبي ونادر ايضا .
جربوه واعطوني انطباعكم ورأيكم

[صورة: amegademo.png]



في مثال اخر تظهر بشكل بسيط وسهل وظريف محتوى قاعدة البيانات مع صورة السجل في شكل تلميح Hint بمجرد مرور الفأرة

[صورة: dbhints.png]




كما تستعرض امكانيات حتى ادواتها القياسية التي خرجت بها عن المألوف مثلا ازرار لها ازرار صغيرة تحمل ارقام هي مفيدة مثلا زر يحمل عنوان الاصناف له زر او تلميح فيه رقم 560 اي عدد الاصناف

[صورة: a118.png]


كما انها لم تنسى اعطائكم التركيز على الشئ الذي تعملون عليه وتشويش الخلفية او حتى اعطائكم رسائل مختلفة متميزة للتفاعل
حتى الشريط العلوي للنافذة تحت تصرفك لاظافة ما تريد من ازرار وقوائم كما هنا بالصورة تحت العنوان Show panel

[صورة: splitviewdemo.png]


هل تعتقدون ان المكونات تأتي بشكل جامد وتابث ، لا طبعا مثلا عندكم المكون Tap يأتي بخيارات كثيرة حتى تتلائم مع العمل الذي تقوم به

[صورة: spagectrldemo.jpg]

كما تقدم Popup Control  التي تعطيك ميزات رائعة في تصميم واجهة مشروعك وتوفر مساحات كبيرة وايضا دعم من اليمين لليسار للمكونات

 
.jpg   13.jpg (الحجم : 159.32 ك ب / التحميلات : 19)

الحديث عنها يطول وافضل الاكتشاف الفردي لها]]> <![CDATA[خبير تثبيت حزم دلفي يعمل على جميع النسخ]]> https://delphi4arab.net/forum/showthread.php?tid=10262 Fri, 21 Jun 2019 23:16:42 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=10262



كود :
https://www.davidghoyle.co.uk/WordPress/?page_id=1361
]]>



كود :
https://www.davidghoyle.co.uk/WordPress/?page_id=1361
]]> <![CDATA[Package Viewer]]> https://delphi4arab.net/forum/showthread.php?tid=10260 Fri, 21 Jun 2019 23:05:51 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=10260



إقتباس :https://www.davidghoyle.co.uk/WordPress/?page_id=1299


Download
[size=small]You can download the code and BPL files for this Open Tools API project below for RAD Studio 2006 to XE2, XE7, XE10 and XE10.1.[/size]
كود :
http://www.davidghoyle.co.uk/WordPress/wp-content/uploads/2016/05/DGHPackageViewer-1.0c-2006-XE10.2.zip

كود :
https://github.com/DGH2112/Package-Viewer
]]>



إقتباس :https://www.davidghoyle.co.uk/WordPress/?page_id=1299


Download
[size=small]You can download the code and BPL files for this Open Tools API project below for RAD Studio 2006 to XE2, XE7, XE10 and XE10.1.[/size]
كود :
http://www.davidghoyle.co.uk/WordPress/wp-content/uploads/2016/05/DGHPackageViewer-1.0c-2006-XE10.2.zip

كود :
https://github.com/DGH2112/Package-Viewer
]]> <![CDATA[Graphics32_RBC]]> https://delphi4arab.net/forum/showthread.php?tid=10004 Thu, 17 Jan 2019 09:54:22 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=10004 إقتباس :https://github.com/uparlayan/Graphics32_RBC
مكونات مجانية

[صورة: 40005929-d2840ed0-57a1-11e8-86c7-92c325726bd5.gif]]]> إقتباس :https://github.com/uparlayan/Graphics32_RBC
مكونات مجانية

[صورة: 40005929-d2840ed0-57a1-11e8-86c7-92c325726bd5.gif]]]> <![CDATA[ماهذا البرنامج وماهي وظيفته]]> https://delphi4arab.net/forum/showthread.php?tid=9980 Sun, 30 Dec 2018 19:00:18 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=9980
حيث يبدو انه يعطي معلومات عن المكونات


[صورة: z0BuxqO.jpg]]]>
حيث يبدو انه يعطي معلومات عن المكونات


[صورة: z0BuxqO.jpg]]]> <![CDATA[TDUMP]]> https://delphi4arab.net/forum/showthread.php?tid=9754 Fri, 21 Sep 2018 01:57:14 +0100 AX302]]> https://delphi4arab.net/forum/showthread.php?tid=9754
كما في العنوان Embar9adero (Turbo Dump)  TDUMP , اداة تقوم بعمل دامب للملفات 

صورة للاداة 


[صورة: cJcQHtQ.png]


تجدها في مسار تثبيث الدلفي 

وهنا صورة للملف الناتج 

[صورة: S7Wy51S.png]


من الموقع الرسمي 

PHP كود :
http://docwiki.embarcadero.com/RADStudio/Tokyo/en/TDUMP.EXE,_the_File_Dumping_Utility 
]]>
كما في العنوان Embar9adero (Turbo Dump)  TDUMP , اداة تقوم بعمل دامب للملفات 

صورة للاداة 


[صورة: cJcQHtQ.png]


تجدها في مسار تثبيث الدلفي 

وهنا صورة للملف الناتج 

[صورة: S7Wy51S.png]


من الموقع الرسمي 

PHP كود :
http://docwiki.embarcadero.com/RADStudio/Tokyo/en/TDUMP.EXE,_the_File_Dumping_Utility 
]]> <![CDATA[EK RTF report]]> https://delphi4arab.net/forum/showthread.php?tid=9527 Wed, 13 Jun 2018 19:07:03 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=9527
PHP كود :
http://www.128byte.ru/ 


يسمح تقرير EK RTF باستخدام كل إمكانيات MS Word لإنشاء التقارير ومعاينتها وتحريرها وطباعتها من تطبيقات دلفي.
كيفية استخدامها:
  • إنشاء قالب التقرير
  • احفظه بتنسيق RTF
  • تحضير البيانات في التطبيق
  • توليد تقرير باستخدام مكون Ek RTF
الخصائص الرئيسية:
  • تصميم قالب مرئي مع جميع ميزات MS Word
  • يعمل مع أي نوع من مجموعة البيانات جيدًا مثل البيانات غير المنضمة
  • وظائف قوية محددة للمستخدم
[صورة: ekrtf_how_it_works.png]

[صورة: 001_form.png]

الكود لانشاء التقرير
PHP كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
  (* check report template file *)
  if not FileExists(EkRTF1.InFile) then
  begin
    if RTFDialog.Execute then begin
       EkRTF1.InFile := RTFDialog.FileName;
    end else exit;
  end;
  (* create report *)
  EkRTF1.ClearVars;
  EkRTF1.CreateVar('database_name',dbname);
  EkRtf1.ExecuteOpen([Customers],SW_SHOW);
end; 
]]>
PHP كود :
http://www.128byte.ru/ 


يسمح تقرير EK RTF باستخدام كل إمكانيات MS Word لإنشاء التقارير ومعاينتها وتحريرها وطباعتها من تطبيقات دلفي.
كيفية استخدامها:
  • إنشاء قالب التقرير
  • احفظه بتنسيق RTF
  • تحضير البيانات في التطبيق
  • توليد تقرير باستخدام مكون Ek RTF
الخصائص الرئيسية:
  • تصميم قالب مرئي مع جميع ميزات MS Word
  • يعمل مع أي نوع من مجموعة البيانات جيدًا مثل البيانات غير المنضمة
  • وظائف قوية محددة للمستخدم
[صورة: ekrtf_how_it_works.png]

[صورة: 001_form.png]

الكود لانشاء التقرير
PHP كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
  (* check report template file *)
  if not FileExists(EkRTF1.InFile) then
  begin
    if RTFDialog.Execute then begin
       EkRTF1.InFile := RTFDialog.FileName;
    end else exit;
  end;
  (* create report *)
  EkRTF1.ClearVars;
  EkRTF1.CreateVar('database_name',dbname);
  EkRtf1.ExecuteOpen([Customers],SW_SHOW);
end; 
]]> <![CDATA[TMS Aurelius]]> https://delphi4arab.net/forum/showthread.php?tid=9526 Wed, 13 Jun 2018 18:55:54 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=9526 ويبدو يستحق النشر والتعريف به
PHP كود :
https://www.tmssoftware.com/site/aureliusblog.asp 

يمكنك من استخدام ثقنية Linq او شئ شبيه بها في عملية البحث بالبيانات
PHP كود :
Manager.Find<TOrder>  
  .CreateAlias('OrderDetails', 'd')  
  .Select(TProjections.ProjectionList  
    .Add(Linq['OrderDate'].Year.Group.As_('Group'))  
    .Add((Linq['d.UnitPrice'] * Linq['d.Quantity']).Sum.As_('Value'))  
  )  
  .Where(Linq['OrderDate'].Year._In([1997, 1998]))  
  .OrderBy('Value')   

وايضا انشاء الكلاسس والبحث فيها
PHP كود :
type  
  TContact = class  
  private  
    FId: integer;  
    FName: string;  
    FCountry: TCountry;  
  public  
    property Id: integer read FId write FId;  
    property Name: string read FName write FName;  
    property Country: TCountry read FCountry write FCountry;  
  end;   

PHP كود :
// Get all contacts  
MyContacts := Manager.Find<TContact>.List;  
  
// Get name of country of first contact:  
FirstContactCountryName := MyContacts[0].Country.Name;   

اي انك لم تعد في حاجة الى استخدام جمل الاستعلام التقليدية مثل

PHP كود :
SELECT A.ID AS A_ID, A.NAME AS A_NAME, A.COUNTRY_ID AS A_COUNTRY_ID, B.ID AS B_ID, B.NAME AS B_NAME
FROM CONTACT A LEFT JOIN COUNTRY B ON (B.ID = A.COUNTRY_ID) 

مع امور اخرى كثيرة يمكن مراجعتها بالرابط فوق]]> ويبدو يستحق النشر والتعريف به
PHP كود :
https://www.tmssoftware.com/site/aureliusblog.asp 

يمكنك من استخدام ثقنية Linq او شئ شبيه بها في عملية البحث بالبيانات
PHP كود :
Manager.Find<TOrder>  
  .CreateAlias('OrderDetails', 'd')  
  .Select(TProjections.ProjectionList  
    .Add(Linq['OrderDate'].Year.Group.As_('Group'))  
    .Add((Linq['d.UnitPrice'] * Linq['d.Quantity']).Sum.As_('Value'))  
  )  
  .Where(Linq['OrderDate'].Year._In([1997, 1998]))  
  .OrderBy('Value')   

وايضا انشاء الكلاسس والبحث فيها
PHP كود :
type  
  TContact = class  
  private  
    FId: integer;  
    FName: string;  
    FCountry: TCountry;  
  public  
    property Id: integer read FId write FId;  
    property Name: string read FName write FName;  
    property Country: TCountry read FCountry write FCountry;  
  end;   

PHP كود :
// Get all contacts  
MyContacts := Manager.Find<TContact>.List;  
  
// Get name of country of first contact:  
FirstContactCountryName := MyContacts[0].Country.Name;   

اي انك لم تعد في حاجة الى استخدام جمل الاستعلام التقليدية مثل

PHP كود :
SELECT A.ID AS A_ID, A.NAME AS A_NAME, A.COUNTRY_ID AS A_COUNTRY_ID, B.ID AS B_ID, B.NAME AS B_NAME
FROM CONTACT A LEFT JOIN COUNTRY B ON (B.ID = A.COUNTRY_ID) 

مع امور اخرى كثيرة يمكن مراجعتها بالرابط فوق]]> <![CDATA[TMS Echo]]> https://delphi4arab.net/forum/showthread.php?tid=9525 Wed, 13 Jun 2018 18:39:40 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=9525 ماذا تعمل، أو ماذا تفعل؟
فهو يسمح لك بوجود قاعدتي بيانات أو أكثر ومزامنة البيانات بينهما. يمكن إرسال التغييرات التي تجريها على قاعدة بيانات عميل واحد (إدراج ، تحديثات ، حذف) إلى قاعدة بيانات أخرى. إنه ثنائي الاتجاه ، لذا يمكنك إرسال وتلقي التغييرات بين قواعد البيانات.

PHP كود :
https://www.tmssoftware.com/site/tmsecho.asp 



[صورة: tms_echo_demo.gif]


[صورة: echo_process.png]]]> ماذا تعمل، أو ماذا تفعل؟
فهو يسمح لك بوجود قاعدتي بيانات أو أكثر ومزامنة البيانات بينهما. يمكن إرسال التغييرات التي تجريها على قاعدة بيانات عميل واحد (إدراج ، تحديثات ، حذف) إلى قاعدة بيانات أخرى. إنه ثنائي الاتجاه ، لذا يمكنك إرسال وتلقي التغييرات بين قواعد البيانات.

PHP كود :
https://www.tmssoftware.com/site/tmsecho.asp 



[صورة: tms_echo_demo.gif]


[صورة: echo_process.png]]]> <![CDATA[هل رأيتم مكون TAdvStringGrid عن قرب]]> https://delphi4arab.net/forum/showthread.php?tid=9524 Wed, 13 Jun 2018 18:35:05 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=9524 https://www.tmssoftware.com/site/advgrid.asp
[صورة: advgrid45_small.png]

بنهاية الصفحة ستجدون حوالي 92 وظيفة وميزة مشروحة بالصور والامثلة لكل ما يمكن عمله]]> https://www.tmssoftware.com/site/advgrid.asp
[صورة: advgrid45_small.png]

بنهاية الصفحة ستجدون حوالي 92 وظيفة وميزة مشروحة بالصور والامثلة لكل ما يمكن عمله]]> <![CDATA[ZylSerialPort]]> https://delphi4arab.net/forum/showthread.php?tid=9523 Wed, 13 Jun 2018 16:11:15 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=9523 وصف
ZylSerialPort هو مكون متعدد مؤشرات الترابط وغير متزامن للتوصيل إلى المنافذ التسلسلية في Delphi و C ++ Builder. تم ترميز هذه المكتبة بتنسيق غير متزامن ومتعدد الارتباطات. وهذا يعني أن عملية تلقي المعلومات من المنفذ التسلسلي في الخلفية وواجهة المستخدم الخاصة بالتطبيق الخاص بك لا يتم تجميدها أو تعليقها أثناء قراءة البيانات ولا تزال قادرة على التفاعل مع المستخدمين. باستخدام هذا المكون ، يمكنك بسهولة قراءة وكتابة المعلومات من الأجهزة التسلسلية الخارجية مثل الماسحات الضوئية لبصمات الأصابع ومودم الفاكس والطابعات وقارئات الباركود ووحدات GSM وأجهزة GPS والمزيد.
بالإضافة إلى المنافذ التسلسلية ، ستتمكن من الحصول على بيانات من منفذ USB بالإضافة إلى منافذ أخرى ، مثل irDA و bluetooth.ويرجع ذلك إلى أن هذه الأجهزة لديها عادة برامج تشغيل لإعادة توجيه البيانات إلى منافذ المنافذ التسلسلية ، ويمكن للمكوِّن الاتصال بسهولة بالجهاز الوجهة عبر هذا المنفذ الظاهري. إذا لم يكن منفذ USB الخاص بجهازك يحتوي على مثل هذه الميزة ، فحاول استخدام وحدة تحكم USB توفر مثل هذا المنفذ الظاهري ، مثل محولات FTDI أو USB / RS-232.
يمكن استخدام هذا المكون في Delphi وفي C ++ Builder ولديه أمثلة في كلتا اللغتين. نحن نشجع المبرمجين في دلفي و ++ C على نسيان معالجة الأخطاء وإعادة اختراع العجلة للتواصل مع البوابات التسلسلية.

PHP كود :
http://componentwanted.com/author/s-c-zyl-soft-s-r-l/ 


[صورة: shut-down-expert-howto.png]






[صورة: s-c-zyl-soft-s-r-l]]]> وصف
ZylSerialPort هو مكون متعدد مؤشرات الترابط وغير متزامن للتوصيل إلى المنافذ التسلسلية في Delphi و C ++ Builder. تم ترميز هذه المكتبة بتنسيق غير متزامن ومتعدد الارتباطات. وهذا يعني أن عملية تلقي المعلومات من المنفذ التسلسلي في الخلفية وواجهة المستخدم الخاصة بالتطبيق الخاص بك لا يتم تجميدها أو تعليقها أثناء قراءة البيانات ولا تزال قادرة على التفاعل مع المستخدمين. باستخدام هذا المكون ، يمكنك بسهولة قراءة وكتابة المعلومات من الأجهزة التسلسلية الخارجية مثل الماسحات الضوئية لبصمات الأصابع ومودم الفاكس والطابعات وقارئات الباركود ووحدات GSM وأجهزة GPS والمزيد.
بالإضافة إلى المنافذ التسلسلية ، ستتمكن من الحصول على بيانات من منفذ USB بالإضافة إلى منافذ أخرى ، مثل irDA و bluetooth.ويرجع ذلك إلى أن هذه الأجهزة لديها عادة برامج تشغيل لإعادة توجيه البيانات إلى منافذ المنافذ التسلسلية ، ويمكن للمكوِّن الاتصال بسهولة بالجهاز الوجهة عبر هذا المنفذ الظاهري. إذا لم يكن منفذ USB الخاص بجهازك يحتوي على مثل هذه الميزة ، فحاول استخدام وحدة تحكم USB توفر مثل هذا المنفذ الظاهري ، مثل محولات FTDI أو USB / RS-232.
يمكن استخدام هذا المكون في Delphi وفي C ++ Builder ولديه أمثلة في كلتا اللغتين. نحن نشجع المبرمجين في دلفي و ++ C على نسيان معالجة الأخطاء وإعادة اختراع العجلة للتواصل مع البوابات التسلسلية.

PHP كود :
http://componentwanted.com/author/s-c-zyl-soft-s-r-l/ 


[صورة: shut-down-expert-howto.png]






[صورة: s-c-zyl-soft-s-r-l]]]>