delphi4arab منتديات دلفي للعرب - مصادر دلفي مفتوحة تعليمية

DelphiWebDriver

Sun, 16 Nov 2025 20:01:52 +0100

السلام عليكم

مشروع جديد ينطلق حديثا لمن يرغب في التجريب / المشاركة , المشروع عبارة عن WebDriver للدلفي و راح يكون شبيه بعض الشيء ل Selenium الخاص بلغة Python , المشروع جديد و قد يحتوي على العديد من الاخطاء , كدلك repo على github ليس مستقر لانه قيد التطوير , اية اخطاء / افكار / مشاركات... مرحب بها
رابط المشروع :

كود :
https://github.com/DA213/DelphiWebDriver

قناة جد رائعة لتعلم مختلف المواضيع في الدلفي

Wed, 03 Sep 2025 09:17:43 +0100

السلام عليكم ورحمة الله وبركاته .

هذه قناة جد رائعة لتعلم مختلف المواضيع في الدلفي،

مشاهدة ممتعة للجميع.

https://www.youtube.com/@emailx45/playlists

إستخدام مكتبة OpenSSL لتوليد مفاتيح RSA والتشفير وفك التشفير في دلفي لويندوز وأندرويد

Sat, 07 Dec 2024 23:31:03 +0100

استخدام مكتبة OpenSSL في لغة دلفي لتوليد مفاتيح RSA (المفتاح العام والمفتاح الخاص) واستخدامها في تشفير وفك تشفير البيانات بشكل آمن. قمت بإنشاء وحدة TRSAOpenSSL التي تتضمن مجموعة من الوظائف ل:

توليد المفاتيح:
- توليد مفتاح عام ومفتاح خاص باستخدام OpenSSL. يتم استخدام هذه المفاتيح لتشفير وفك تشفير البيانات بشكل آمن.
توليد مفتاح عشوائي (RealKey):
- يتم توليد مفتاح عشوائي (أو مفتاح سري) بطول 32 بايت واستخدامه في التشفير.
تشفير المفتاح السري باستخدام المفتاح العام:
- بعد توليد المفتاح السري، يتم تشفيره باستخدام المفتاح العام للعميل الآخر (أي استخدام المفتاح العام لكل عميل لتشفير المفتاح السري للعميل الآخر).
فك تشفير المفتاح السري باستخدام المفتاح الخاص:
- يتم استخدام المفتاح الخاص للعميل لفك تشفير المفتاح السري المرسل إليه من العميل الآخر.
التعامل مع البيانات باستخدام الترميز Base64:
- يتم تحويل المفاتيح إلى تنسيق Base64 لتسهيل عرضها وتخزينها في واجهة المستخدم.

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

قم بإنشاء كائنين من TRSAOpenSSL لكل عميل (A و B).
استخدم الدوال لتوليد المفاتيح، ثم قم بتبادل المفاتيح العامة بين العملاء.
قم بتشفير المفاتيح السرية باستخدام المفتاح العام للعميل الآخر، وفك تشفيرها باستخدام المفتاح الخاص.
يتم عرض جميع المفاتيح (العامة والخاصة والمشفرة) في واجهة المستخدم باستخدام Memo و Edit.

rsa.part2.rar (الحجم : 652.02 ك ب / التحميلات : 20)

rsa.part1.rar (الحجم : 1 م ب / التحميلات : 13)

برنامج انشاء وطباعة Code bar

Tue, 05 Mar 2024 20:11:12 +0100

السلام عليكم

كود سورس لبرنامج إنشاء وطباعة Code Bar

رابط تحميل البرنامج

استئصال وعلاج مرض وراثي

Thu, 16 Nov 2023 18:40:39 +0100

السلام عليكم ورحمة الله

ربما قراتم انني قلت في موضوع انني اخاطب امبركاديرو دائما لتحديث حزمة الـ VCL القديمة
هذه الحزمة التي توارتثها الكثير من المكونات بنقصها وعيوبها مثل مكونات StyleControls و مكونات كثيرة أخرى

فأي مكون تجده يرث مثلا

كود :
type
  TNewEdit = class(TEdit)

او

كود :
type
  TNewDBGrid = class(TDBGrid)

فغالبا ستجده ورث كذلك العيوب ايضا ولم يعالجها ، بينما بعض المكونات عالجت المشكلة مثل مكونات Devexpress وايضا AlphaControl ومكونات اخرى
الان لدينا مشروع استئصال هذا المرض من هذه المكونات ولن نعتمد على امبركاديرو
لدينا الكثير من العمليات الجراحية على العديد من المكونات ولكن سوف نبداء بمكون DBGrid وايضا Tedit وبعدها سوف نرى Tdate

NewStanderedVcl.rar (الحجم : 6.1 ك ب / التحميلات : 16)

وبداية عملت المشروع واضفت له بعض الخصائص مثلا في المكون Tedit اضفت الخاصية VerticalAlignment لمعالجة وضع النص بحال كان المكون ارتفاعه اكثر من المعدل الطبيعي ويحتاج الى البحث اكثر ولا تعمل حتى الان هذه الخاصية بالشكل المطلوب

وايضا اضفت للمكون DBGrid الخاصية DefaultRowHeight وهي تعمل جيدا فقط تحتاج الى بعض التعديلات

والان كل من يمر من هنا فليعالج ما يمكن علاجه وبالمشاركة من الجميع سوف نحل مشكلة هذه الحزمة

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

كود :
unit DBGrid1;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.Grids, Vcl.DBGrids;

type
 TMyDBGrid = class(TDBGrid);

type
  TNewDBGrid = class(TDBGrid)

  private
    FDefaultRowHeight:Integer;
  protected
     procedure SetDefaultRowHeight(const Value: Integer);
     procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
     property DefaultRowHeight: Integer read FDefaultRowHeight write SetDefaultRowHeight default 21;
  end;





procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TNewDBGrid]);
end;

{ TNewDBGrid }

constructor TNewDBGrid.Create(AOwner: TComponent);
begin
  inherited;
  FDefaultRowHeight := 21;
  TMyDBGrid(self).DefaultRowHeight := 21;
end;

procedure TNewDBGrid.Paint;
begin
  inherited;
   if TMyDBGrid(self).DefaultRowHeight <> FDefaultRowHeight then
   TMyDBGrid(self).DefaultRowHeight := FDefaultRowHeight;
end;

procedure TNewDBGrid.SetDefaultRowHeight(const Value: Integer);
begin

  if FDefaultRowHeight <> Value then begin
    FDefaultRowHeight := Value;
    TMyDBGrid(self).DefaultRowHeight := FDefaultRowHeight;
  end;

end;

end.

طباعة فورم، واستدعاء الحاسبة، دلفي سدني

Sat, 08 Jul 2023 23:15:51 +0100

عندما ترغب كمبوبكس؛ لتختار منه مثلاً طباعة، استدعاء الحاسبة، عرض برنامج فورم آخر، أو ترغب زراً؛ لتصغير الفورم وتكبيره ليتوافق وشاشة اللاب توب، إليك الكود:

========== الكمبوبكس ========

1- سو فورم جديد وضع عليه TPrintDailog و TcheckBox

ومن خاصية ComboBox تختار Items وتكتب :

حاسبة

طباعة

عرض فورم3

اضغط على TComboBox على الفورم وفي الحدث

OnlClick اضغط على ComboBox1Click

وادخل الكود التالي:

if ComboBox1.ItemIndex = 0 then

WinExec('calc.exe /C DIR *.*', SW_SHOWNORMAL);

if ComboBox1.ItemIndex = 1 then

if PrintDialog1.Execute then

Form2.Print;

if ComboBox1.ItemIndex = 2 then

Form3.Show;

end;

انتهى

========= تصغير الفورم وتكبيره =========

2- اضغط على مكون TcheckBox لتصغير الفورم وتكبيره، وادخل الكود التالي:

rocedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked then scaleBy(80,100) else scaleBy(100,80) ;

end;

انتهى

osrm-backend

Sat, 08 Jul 2023 20:16:16 +0100

السلام عليكم

كود :
OSRM stands for Open Source Routing Machine, it is an open-source routing engine that provides fast, accurate, and customizable routing services.

Dennis Luxen initially developed it at the Karlsruhe Institute of Technology in Germany, and many organizations and communities around the world have adopted it.

تثبيت osrm-backend كسرفر فى جهازك المحلى

1-
تحميل osrm-backend على حسب نضام التشغيل لديك مثلا ويندوز

كود :
https://github.com/Project-OSRM/osrm-backend/releases

فك الضغط مثلا فى

PHP كود :
C:\OSRM 

و اضافة المجلد profiles الى
C:\OSRM\binding
تجد المجلد فى المرفقات

2-
تحميل الخريطة OPENSTREETMAP

كود :
https://download.geofabrik.de/

انا حملت خريطة الجزائر و اسمها algeria-latest.osm.pbf
و وضعها فى المجلد
C:\OSRM\binding

3-
نفتح منفد الاوامر CMD و ننفد الاوامر التالية بالترتيب

كود :
cd C:\OSRM\binding

كود :
osrm-extract algeria-latest.osm.pbf -p profiles/car.lua

كود :
osrm-partition algeria-latest.osm.pbf

كود :
osrm-customize algeria-latest.osm.pbf

ثم تنفيد HTTP SERVER

كود :
osrm-routed algeria-latest.osm --algorithm mld

تنفيد http request
يكون بالشكل التالى

كود :
http://localhost:5000/nearest/v1/driving/2.936507,36.731211

osrm api

كود :
http://project-osrm.org/docs/v5.5.1/api/#general-options

profiles.rar (الحجم : 56.79 ك ب / التحميلات : 8)

اتاحة الرمزين > و < في الحواسيب الصغيرة

Mon, 10 Apr 2023 21:27:44 +0100

هذا البرنامج يتيح استعمال الزرين > و < المهمين بالنسبة للمبرمجين و الغير متاحين في الحواسيب الصغيرة ذات لوحة مفاتيح الفرنسية ... الملف يحتوي على البرنامج بالاضافة الى مكتبة صغير dll التي تقوم بالعملية, يمكن برمجة اطلاق البرنامج اليا مع بدء الوندوز.‏
لكتابة الرمزين يجب الضغط على alt التي على اليمين ثم احد الرمزين < او > ثم اطلاق alt ...بالتوفيق.

kbhook.zip (الحجم : 2.28 ك ب / التحميلات : 11)

حل لقفل سجل عند قيام احد بتعديل ذلك السجل لقواعد البيانات التي لا تدعم هذا

Fri, 31 Mar 2023 03:31:14 +0100

السلام عليكم

اجريت تجربة على قاعدة بيانات أكسس للتوضيح

والمشروع يوضح كل شئ

Access Event.rar (الحجم : 93.84 ك ب / التحميلات : 56)

666.jpg (الحجم : 27.95 ك ب / التحميلات : 100)

رسائل مخصصة بديل MessageDlg

Wed, 07 Sep 2022 10:45:24 +0100

يمكن إضافة الوحدة التالية لمشروعك ، مع المجلد الخاص بالأصوات ( نفس مسار تطبيقك) و الاستمتاع برسائل بشكل أفضل .

الإستخدام :

كود :
ShowMyMessage('What do you think the opposite of blue is? See how much you know about the many ways we can describe the opposite of blue?',MMtAlert,MBtnYesNo);

أو إستخدامها مع شرط :

كود :
if ShowMyMessage('What do you think the opposite of blue is? See how much you know about the many ways we can describe the opposite of blue?',MMtAlert,MBtnYesNo)=mrYes;

كما يمكن إستخدامها ك Toast Message :

كود :
ShowMyMessage('What do you think the opposite of blue is? See how much you know about the many ways we can describe the opposite of blue?',MMtAlert,MBtnYesNo,True);

كما يمكن تعديل الأصوات بتعديل الملفات الموجودة في مجلد ال

Sounds.rar (الحجم : 635.87 ك ب / التحميلات : 81)
Sounds.
MyMessageWindow.rar (الحجم : 58.28 ك ب / التحميلات : 71)

رسائل الواتس بواسط دلفي.

Tue, 09 Nov 2021 13:37:11 +0100

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

- ملاحظة : تعديل زمن التأخير يعتمد على سرعة الإنترنت لدى المستخدم .. القيم المذكورة ليست ملطقة و يمكن تعديلها .، كما تم الإفتراض بإن المستخدم يستخدم متصفح ال Chrome .

كود :
procedure SendToWhatssApp(BtMap: TBitmap; Txt1: string;Contact:String);
var
  URL:string;

  Wndh,ChrWh:HWND;
  origin : cardinal;
begin
if  InternetGetConnectedState(@origin,0) then        // Check the internet connectivity
begin
URL := 'https://wa.me/'+Contact;
ShellExecute(HInstance, 'open', PChar(url), nil, nil, SW_NORMAL);
Clipboard.Assign(BtMap);          // In case you want to send Bmp...

Sleep(20000);        //Wait 5 Sencods to open the application ....
Wndh:=FindWindow('Chrome_WidgetWin_1','WhatsApp') ;    //Get WhatsApp Handle

  IF  Wndh<>0 then
  begin

  PastObj;
  Sleep(1500);
  Clipboard.AsText:=Txt1 ;          // Text from clipboard... you can assign direct to Txt1 the required text..
  Sleep(1000)    ;
  PastObj;
  Sleep(1000)    ;

  PostMessage(Wndh,WM_KEYDOWN,VK_RETURN, 0);



  end else ShowMessage('Please Run WhatsApp in Order to Procced With messeging');
  end

    else ShowMessage('There is no Active internet Connection , Please Connect to the netowrk and try again later');
      Clipboard.Clear;
  end;
procedure PastObj;
begin
keybd_event(VK_Control,MapVirtualKey(VK_Control,0),0,0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'),0), 0, 0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'),0), KEYEVENTF_KEYUP,0);
keybd_event(VK_Control,MapVirtualKey(VK_Control,0),KEYEVENTF_KEYUP,0) ;
end;

عنصر ProgressBar بكافة الأشكال

Mon, 08 Nov 2021 07:39:17 +0100

أخوتي الأعزاء ..

أقدم هذا العنصر الذي قمت بعمله مؤخراً للجميع ، يعمل على بيئة دلفي 7 ، حاولت من خلاله تغطية أكثر الأشكال المتعارف عليها لل ProgressBar ، أتمنى ان يكون مفيد للجميع.

- مرفق مثال توضيحي لبعض أشكاله .

- ملاحظة : العنصر يرث من TGraphicControl و ليس من TwinControl .

- تم إضافة بعض المؤثرات سيتم رفعها بعد الإنتهاء من إختباراتها .

الرابط للنسخ الأحدث من العنصر :

https://github.com/Issamdnn/IssamProgressBar

MyProgressbar.rar (الحجم : 10.43 ك ب / التحميلات : 149)

Demo.rar (الحجم : 167.22 ك ب / التحميلات : 173)

معرفة ip الخارجي

Fri, 25 Jun 2021 23:23:11 +0100

معرفة ip الخارجي

– استعمال المكون WebBrowser وذلك بالإتصال بالموقع الذي يعطينا ip الخاص بنا ، نأخذ نص الابي من صفحة html

كود :
https://mega.nz/file/BH4EBTaD#UOeUk-fjOtFszJiH8s9QOQQwaWVYUsMIgxVD1Uz4BTk

تحريك Form1 مع Form2

Fri, 25 Jun 2021 22:40:50 +0100

تحريك Form1 مع Form2

كود :
https://mega.nz/file/0CwQUbSb#cY9OBGhPqcyTy57G2qcCWCZZ0q8_OPMm_TM9QebDJVc

ساعة رقمية بخلفية شفافة

Fri, 25 Jun 2021 22:34:43 +0100

ساعة رقمية بخلفية شفافة

كود :
https://mega.nz/file/oe4CVbqT#y4axN6QTH-Sjo8LCK1cCcXcaanfKHcZ1SouxjVTI37s