<![CDATA[delphi4arab منتديات دلفي للعرب - تمارين دلفي وحلول]]>

<![CDATA[delphi4arab منتديات دلفي للعرب - تمارين دلفي وحلول]]> https://delphi4arab.net/forum/ Wed, 11 Nov 2026 05:01:49 +0000 MyBB <![CDATA[UDP Discovery (الإكتشاف الأوتوماتيكي للسرفر من طرف الكلاينت)]]> https://delphi4arab.net/forum/showthread.php?tid=12971 Mon, 08 Sep 2025 00:11:25 +0100 brave]]> https://delphi4arab.net/forum/showthread.php?tid=12971 --
المسابقة هي:
من بإمكانه عمل مثال و لو بسيط حول موضوع ال UDP Discovery (الإكتشاف الأوتوماتيكي للسرفر من طرف الكلاينت)
--
لدينا سرفر على الديسكطوب مثلا و لدينا عميلين بنفس الناتوارك أو الشبكة متصلين بنفس الراوتر سواء عبر الكابل أو عبر الوايفاي
--
المطلوب :
على كلى العميلين الإتصال بالسرفر أوتوماتيكيا من دون تدخل المستخدم في إدخال الهوست و البورت ( ServerIP and ServerPort)
--
ملاحظة:
أحد العميلين يعمل على الأندرويد متصل على الوايفاي و الآخر يعمل على الديسكطوب أين الحاسوب متصل بالكابل و ليس الوايفاي (فقط من باب تجربة المثال على الحالتين معا) و المكتبة المستعملة يجب أن تكون Indy طبعا.
--
و حظ أطيب للجميع..

https://github.com/user-attachments/asse...415784cb5a

[صورة: 0d9609ab-f7f7-45e3-bb3b-b4415784cb5a]

[صورة: 0d9609ab-f7f7-45e3-bb3b-b4415784cb5a]

]]> --
المسابقة هي:
من بإمكانه عمل مثال و لو بسيط حول موضوع ال UDP Discovery (الإكتشاف الأوتوماتيكي للسرفر من طرف الكلاينت)
--
لدينا سرفر على الديسكطوب مثلا و لدينا عميلين بنفس الناتوارك أو الشبكة متصلين بنفس الراوتر سواء عبر الكابل أو عبر الوايفاي
--
المطلوب :
على كلى العميلين الإتصال بالسرفر أوتوماتيكيا من دون تدخل المستخدم في إدخال الهوست و البورت ( ServerIP and ServerPort)
--
ملاحظة:
أحد العميلين يعمل على الأندرويد متصل على الوايفاي و الآخر يعمل على الديسكطوب أين الحاسوب متصل بالكابل و ليس الوايفاي (فقط من باب تجربة المثال على الحالتين معا) و المكتبة المستعملة يجب أن تكون Indy طبعا.
--
و حظ أطيب للجميع..

https://github.com/user-attachments/asse...415784cb5a

[صورة: 0d9609ab-f7f7-45e3-bb3b-b4415784cb5a]

]]> <![CDATA[تطوير التطبيقات: التمرين الأول.]]> https://delphi4arab.net/forum/showthread.php?tid=12156 Sun, 27 Nov 2022 21:44:53 +0100 d4arab]]> https://delphi4arab.net/forum/showthread.php?tid=12156 تطوير التطبيقات: التمرين الأول.

المطلوب:
كتابة و بناء تطبيق يتعامل مع هيكل ملفات JSON و يقوم بالاتصال بالنت عن طريق اوامر الــ API التي يوفرها الموقع و اظهار للمستخدم النتيجة.

مثلا:
كلمة arab بعد تمريريها لقيمة (endpoint) name ترجع لك بعض الدول التي يحمل اسمها كلمة arab

PHP كود :
https://restcountries.com/v2/name/arab 

]]> تطوير التطبيقات: التمرين الأول.

المطلوب:
كتابة و بناء تطبيق يتعامل مع هيكل ملفات JSON و يقوم بالاتصال بالنت عن طريق اوامر الــ API التي يوفرها الموقع و اظهار للمستخدم النتيجة.

مثلا:
كلمة arab بعد تمريريها لقيمة (endpoint) name ترجع لك بعض الدول التي يحمل اسمها كلمة arab

PHP كود :
https://restcountries.com/v2/name/arab 

]]> <![CDATA[حصان طروادة في المفتاح الفريد]]> https://delphi4arab.net/forum/showthread.php?tid=11744 Wed, 05 Jan 2022 12:48:28 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=11744

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

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

مثلا هذا الرقم 0000131008202109

اول خمس ارقام محجوزة لرقم الفاتورة 00001
الرقم السادس 3 يمثل نوع الفاتورة او الحركة
بعدها تاريخ الفاتورة 10082021 = 10-08-2021
بعدها رقم المورد 09
وطبعا باجراء بسيط يمكن تفكيك الرقم واخراج محتواه
وهكذا هناك الكثير من المعلومات تكون قريبة منك اذا احتجتها

مجرد فكرة عابرة اردت مشاركتكم اياها

.gif

Animation.gif (الحجم : 83.31 ك ب / التحميلات : 128) ]]>

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

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

Animation.gif (الحجم : 83.31 ك ب / التحميلات : 128) ]]> <![CDATA[مشروع بين برنامج دلفي و المتصفح الويب]]> https://delphi4arab.net/forum/showthread.php?tid=11701 Sun, 12 Dec 2021 21:26:49 +0100 larbiparadox]]> https://delphi4arab.net/forum/showthread.php?tid=11701
الفكرة راودتني منذ مدة ، أردت أن أقترحها كمشروع

تعتمد متصفحات الويب على نوع من الحماية من شركة google وهي Recaptcha و Hcaptcha

[صورة: 528228572.png]

* الفكرة وهي لما يطلب منك المتصفح تجاوز Hcaptcha ، يتم الضغط على الصور أليا من المتصفح يرسل الصورة إلى برنامج دلفي ليتعرف عليها

* تبسيط الأمر : سنعتمد على Extensions المتصفح ، نحمل Tampermonkey يساعدنا ببرمجة كود بواسطة لغة JavaScript لقراءة محتوى الصفحة و ربطها بالبرنامج الذي سنصممه بالدلفي ، من جهة الدلفي سنعتمد على مكون sgcWebSockets

شرح الفكرة :

- بدلفي ستكون لدينا قاعدة بيانات تحتوي على حقل لحفظ الصورة و ثلاث حقول اخرى لحفظ تسمية الصورة حسب لغة المتصفح. و بواسطة مكون sgcWebSocketServer1 سيكون لدينا سرفر لربطه مع المتصفح

مثال
[صورة: 841270098.png]

من جهة المتصفح

[صورة: 117322870.png]

- بواسطة لغة JavaScript عندما تظهر لنا الصفحة تطلب منا تأكيد بأنك لست ألي لتجاوزها . سيقوم الكود بالضغط على القفل كما في الصورة نقطة رقم 1 و بعد الضغط . نقرأ ما يطلب منا بالضغط عليه كما في الاسم نقطة رقم 2 و الصورة رقم 3 ، ولمعرفة لغة المتصفح نقطة5 و ورقم 4 لذهاب الى باقي الصور

* الفكرة لما تأتي الصورة إلى برنامج الدلفي بصيغة base64 يقوم بحفظها ، اذا كانت موجدة من قبل لا يحفظها ، بعدها يتم تسمية الصور يدويا ، لإستفادة منهم فيما بعد . و يقوم بالرد بواسطة Request بإرسال إسم الصورة

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

* ملاحظة : جميع لغات البرمجة لها نغس المبدأ تختلف في الصيغ و بيئة البرمجة

* + يمكن المساهمة أو إبداء الرأي ، أو يحذف]]>
الفكرة راودتني منذ مدة ، أردت أن أقترحها كمشروع

تعتمد متصفحات الويب على نوع من الحماية من شركة google وهي Recaptcha و Hcaptcha

[صورة: 528228572.png]

من جهة المتصفح

[صورة: 117322870.png]

- بواسطة لغة JavaScript عندما تظهر لنا الصفحة تطلب منا تأكيد بأنك لست ألي لتجاوزها . سيقوم الكود بالضغط على القفل كما في الصورة نقطة رقم 1 و بعد الضغط . نقرأ ما يطلب منا بالضغط عليه كما في الاسم نقطة رقم 2 و الصورة رقم 3 ، ولمعرفة لغة المتصفح نقطة5 و ورقم 4 لذهاب الى باقي الصور

* الفكرة لما تأتي الصورة إلى برنامج الدلفي بصيغة base64 يقوم بحفظها ، اذا كانت موجدة من قبل لا يحفظها ، بعدها يتم تسمية الصور يدويا ، لإستفادة منهم فيما بعد . و يقوم بالرد بواسطة Request بإرسال إسم الصورة

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

* ملاحظة : جميع لغات البرمجة لها نغس المبدأ تختلف في الصيغ و بيئة البرمجة

* + يمكن المساهمة أو إبداء الرأي ، أو يحذف]]> <![CDATA[تمرين (حللني ان استطعت) رقم 01]]> https://delphi4arab.net/forum/showthread.php?tid=11604 Sun, 07 Nov 2021 15:05:31 +0100 I3CT]]> https://delphi4arab.net/forum/showthread.php?tid=11604 سلسلة تمارين حللني ان استطعت تتمثل في اخذ عينة، تحليلها، فهمها و محاولة اعادة كتابتها برمجيا...

العينة كتبت و بنيت عمدا لكي تكون صغيرة الحجم لتسهيل عملية التحليل...

عينة اليوم:
[صورة: XMLtcMo.gif]

العينة في المرفقات...
.rar

challenge#01.rar (الحجم : 2.48 ك ب / التحميلات : 22) ]]> سلسلة تمارين حللني ان استطعت تتمثل في اخذ عينة، تحليلها، فهمها و محاولة اعادة كتابتها برمجيا...

العينة كتبت و بنيت عمدا لكي تكون صغيرة الحجم لتسهيل عملية التحليل...

عينة اليوم:
[صورة: XMLtcMo.gif]

العينة في المرفقات...
.rar

challenge#01.rar (الحجم : 2.48 ك ب / التحميلات : 22) ]]> <![CDATA[انشاء جدول ومولد ارقام وتحديد قيمة له ثم انشاء قادح لقواعد بيانات فايربيرد]]> https://delphi4arab.net/forum/showthread.php?tid=10949 Mon, 06 Jul 2020 17:12:41 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=10949

PHP كود :

with UniSQL1 do
begin
    SQL.Clear;
    SQL.Add('Create TABLE tab1(');
    SQL.Add(     EMP_NO EMPNO NOT NULL,');
    SQL.Add('    FIRST_NAME "FIRSTNAME" NOT NULL,');
    SQL.Add('    LAST_NAME  "LASTNAME" NOT NULL,');
    SQL.Add('    PHONE_EXT  VARCHAR(4) COLLATE NONE,');
    SQL.Add('    PRIMARY KEY (EMP_NO)');
    SQL.Add(')');
    try
        Execute;
    except
        on E:Exception do
            raise Exception.Create('ERROR 1:' + sLineBreak + E.Message);
    end;

    SQL.Clear;
    SQL.Add('CREATE GENERATOR gen_tab1_EMP_NO;');
    try
        Execute;
    except
        on E:Exception do
            raise Exception.Create('ERROR 2:' + sLineBreak + E.Message);
    end;

    SQL.Clear;
    SQL.Add('SET GENERATOR gen_tab1_EMP_NO TO 0;');
    try
        Execute;
    except
        on E:Exception do
            raise Exception.Create('ERROR 3:' + sLineBreak + E.Message);
    end;

    SQL.Clear;
    SQL.Add('CREATE TRIGGER SET_EMP_NO FOR tab1 ACTIVE BEFORE INSERT POSITION 0 AS');
    SQL.Add('BEGIN');
    SQL.Add('    if (new.emp_no is null) then');
    SQL.Add('        new.emp_no = gen_id(gen_tab1_EMP_NO, 1);');
    SQL.Add('END'
    try
        Execute;
    except
        on E:Exception do
            raise Exception.Create('ERROR 4:' + sLineBreak + E.Message);
    end;
end;

]]>

PHP كود :

with UniSQL1 do
begin
    SQL.Clear;
    SQL.Add('Create TABLE tab1(');
    SQL.Add(     EMP_NO EMPNO NOT NULL,');
    SQL.Add('    FIRST_NAME "FIRSTNAME" NOT NULL,');
    SQL.Add('    LAST_NAME  "LASTNAME" NOT NULL,');
    SQL.Add('    PHONE_EXT  VARCHAR(4) COLLATE NONE,');
    SQL.Add('    PRIMARY KEY (EMP_NO)');
    SQL.Add(')');
    try
        Execute;
    except
        on E:Exception do
            raise Exception.Create('ERROR 1:' + sLineBreak + E.Message);
    end;

    SQL.Clear;
    SQL.Add('CREATE GENERATOR gen_tab1_EMP_NO;');
    try
        Execute;
    except
        on E:Exception do
            raise Exception.Create('ERROR 2:' + sLineBreak + E.Message);
    end;

    SQL.Clear;
    SQL.Add('SET GENERATOR gen_tab1_EMP_NO TO 0;');
    try
        Execute;
    except
        on E:Exception do
            raise Exception.Create('ERROR 3:' + sLineBreak + E.Message);
    end;

    SQL.Clear;
    SQL.Add('CREATE TRIGGER SET_EMP_NO FOR tab1 ACTIVE BEFORE INSERT POSITION 0 AS');
    SQL.Add('BEGIN');
    SQL.Add('    if (new.emp_no is null) then');
    SQL.Add('        new.emp_no = gen_id(gen_tab1_EMP_NO, 1);');
    SQL.Add('END'
    try
        Execute;
    except
        on E:Exception do
            raise Exception.Create('ERROR 4:' + sLineBreak + E.Message);
    end;
end;

]]> <![CDATA[شاشة ظهور او مقدمة لبرنامجك احترافية]]> https://delphi4arab.net/forum/showthread.php?tid=10351 Thu, 01 Aug 2019 15:04:50 +0100 Delphi4Us]]> https://delphi4arab.net/forum/showthread.php?tid=10351 نسيت لقد غيرت المؤقت الى 9 ثوان وهي كثيرة قوموا بارجاعها الى 2 فهي كافية
كما ان هناك عدة صور اخرى مع المشروع جربوا ان تغير المسار اليها ولاحظو النتيجة

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

[size=small]
.jpg

2.jpg (الحجم : 222.57 ك ب / التحميلات : 277) [/size]

لاحظوا ايضا ان الصورة تأخذ العلامة المائية فتندمج مع الخلفية

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

[size=small]
.jpg

1.jpg (الحجم : 252.04 ك ب / التحميلات : 262) [/size]

للتحميل
[size=small]
.rar

AlphaSplash.rar (الحجم : 81.29 ك ب / التحميلات : 228) [/size]]]> نسيت لقد غيرت المؤقت الى 9 ثوان وهي كثيرة قوموا بارجاعها الى 2 فهي كافية
كما ان هناك عدة صور اخرى مع المشروع جربوا ان تغير المسار اليها ولاحظو النتيجة

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

[size=small]
.jpg

[size=small]
.jpg

1.jpg (الحجم : 252.04 ك ب / التحميلات : 262) [/size]

للتحميل
[size=small]
.rar

AlphaSplash.rar (الحجم : 81.29 ك ب / التحميلات : 228) [/size]]]> <![CDATA[تمرين دلفي استبدال المكونات]]> https://delphi4arab.net/forum/showthread.php?tid=10279 Mon, 01 Jul 2019 11:12:48 +0100 S.FATEH]]> https://delphi4arab.net/forum/showthread.php?tid=10279 برمج اداة بسيطة تقوم باستبدال جميع مكونات TDBEdit بمكون TEdit
الاداة ستكون بسيطة يقوم المستخدم بتحديد مسار ملف pas و الاداة تقوم باستبدال مكونات TDBEdit بمكون TEdit

تلميحات تجدها هنا

http://delphi4arab.net/forum/showthread.php?tid=10272
http://delphi4arab.net/forum/showthread.php?tid=10273]]> برمج اداة بسيطة تقوم باستبدال جميع مكونات TDBEdit بمكون TEdit
الاداة ستكون بسيطة يقوم المستخدم بتحديد مسار ملف pas و الاداة تقوم باستبدال مكونات TDBEdit بمكون TEdit

تلميحات تجدها هنا

http://delphi4arab.net/forum/showthread.php?tid=10272
http://delphi4arab.net/forum/showthread.php?tid=10273]]> <![CDATA[التحدي]]> https://delphi4arab.net/forum/showthread.php?tid=9339 Sat, 28 Apr 2018 15:33:08 +0100 chamsderreche]]> https://delphi4arab.net/forum/showthread.php?tid=9339 انه تحدي بسيط يجب عليك برمجة لعبة سؤال جواب
مدة التحدي أسبوع

.rar

Project2.rar (الحجم : 425.88 ك ب / التحميلات : 60) ]]> انه تحدي بسيط يجب عليك برمجة لعبة سؤال جواب
مدة التحدي أسبوع

.rar

Project2.rar (الحجم : 425.88 ك ب / التحميلات : 60) ]]> <![CDATA[التحدي رقم 2]]> https://delphi4arab.net/forum/showthread.php?tid=9324 Mon, 16 Apr 2018 15:44:14 +0100 AX302]]> https://delphi4arab.net/forum/showthread.php?tid=9324 التحدي سهل فقط عليك ايجاد كلمة السر - مدة التحدي يوم واحد بالتوفيق للجميع Big Grin

D4A_Chall_02.zip (الحجم : 9.74 ك ب / التحميلات : 37) ]]> التحدي سهل فقط عليك ايجاد كلمة السر - مدة التحدي يوم واحد بالتوفيق للجميع Big Grin

D4A_Chall_02.zip (الحجم : 9.74 ك ب / التحميلات : 37) ]]> <![CDATA[أين الخطأ 3]]> https://delphi4arab.net/forum/showthread.php?tid=9321 Sat, 14 Apr 2018 14:44:00 +0100 chamsderreche]]> https://delphi4arab.net/forum/showthread.php?tid=9321 أين الخطأ في هذا الكود مدة التمرين يوم واحد

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var a :integer;
begin
a:=inputbox('a','a','0')
messagebox(a*a);
end; 

]]> أين الخطأ في هذا الكود مدة التمرين يوم واحد

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var a :integer;
begin
a:=inputbox('a','a','0')
messagebox(a*a);
end; 

]]> <![CDATA[أين الخطأ 2]]> https://delphi4arab.net/forum/showthread.php?tid=9317 Wed, 11 Apr 2018 17:59:57 +0100 chamsderreche]]> https://delphi4arab.net/forum/showthread.php?tid=9317 أين الخطأ في هذا الكود

PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
var
c:integer;
begin
c:=0;
for c:=1 to 80000
c:=c+1;
showmessage(inttostr(c));
end; 

مدة التمرين يوم واحد والله ولي التوفيق]]> أين الخطأ في هذا الكود

PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
var
c:integer;
begin
c:=0;
for c:=1 to 80000
c:=c+1;
showmessage(inttostr(c));
end; 

مدة التمرين يوم واحد والله ولي التوفيق]]> <![CDATA[الرسم بواسطة canvas]]> https://delphi4arab.net/forum/showthread.php?tid=9313 Tue, 10 Apr 2018 19:49:38 +0100 chamsderreche]]> https://delphi4arab.net/forum/showthread.php?tid=9313 التمرين ببساطة انشاء برنامج يقوم برسم شكل ما معروف في حياتنا اليومية مثل سيارة أو حاسوب ب canvas
والله ولي التوفيق

.rar

telephone.rar (الحجم : 177.28 ك ب / التحميلات : 50) ]]> التمرين ببساطة انشاء برنامج يقوم برسم شكل ما معروف في حياتنا اليومية مثل سيارة أو حاسوب ب canvas
والله ولي التوفيق

.rar

telephone.rar (الحجم : 177.28 ك ب / التحميلات : 50) ]]> <![CDATA[أين الخطأ]]> https://delphi4arab.net/forum/showthread.php?tid=9306 Fri, 06 Apr 2018 21:03:22 +0100 chamsderreche]]> https://delphi4arab.net/forum/showthread.php?tid=9306 هناك خطأ في هذا الكود حاولوا اكتشافه مدة التمرين يوم واحد والله ولي التوفيق

PHP كود :
procedure squareroot(a : Integer);
begin
    showmessage(inttostr(sqrt(a)));
end;
end. 

]]> هناك خطأ في هذا الكود حاولوا اكتشافه مدة التمرين يوم واحد والله ولي التوفيق

PHP كود :
procedure squareroot(a : Integer);
begin
    showmessage(inttostr(sqrt(a)));
end;
end. 

]]> <![CDATA[التحدي الشبه مستحيل]]> https://delphi4arab.net/forum/showthread.php?tid=9304 Fri, 06 Apr 2018 20:24:55 +0100 chamsderreche]]> https://delphi4arab.net/forum/showthread.php?tid=9304 السلام عليكم ،
يجب عليكم لحل التمرين صنع برنامج يقوم بحل المعادلات من الدرجة الأولى والثانية حسب اختيار المستخدم ، شرط أن يحل المعادلات من الدرجة الثانية حتى و لو كانت الحلول في مجموعة الأعداد العقدية أو المركبة C ،مثل الملف المرفق
والله ولي التوفيق

آسف نسيت ، مدة التمرين يوم واحد

.rar

الملف.rar (الحجم : 252.08 ك ب / التحميلات : 16) ]]> السلام عليكم ،
يجب عليكم لحل التمرين صنع برنامج يقوم بحل المعادلات من الدرجة الأولى والثانية حسب اختيار المستخدم ، شرط أن يحل المعادلات من الدرجة الثانية حتى و لو كانت الحلول في مجموعة الأعداد العقدية أو المركبة C ،مثل الملف المرفق
والله ولي التوفيق

آسف نسيت ، مدة التمرين يوم واحد

.rar

الملف.rar (الحجم : 252.08 ك ب / التحميلات : 16) ]]>