Connect Delphi to MySql

لربط دلفي بـ MySQL، ستحتاج إلى استخدام مكون الوصول إلى قاعدة البيانات أو المكتبة التي تدعم MySQL، مثل dbExpress أو FireDAC

 FireDAC هو إطار عمل قوي للوصول إلى البيانات مقدم من Embarcadero ويدعم مجموعة واسعة من أنظمة قواعد البيانات بما في ذلك MySQL. مدونة نيما 9إliك كيفية توصيل دلفي بـ MySQL باستخدام FireDAC:

  1. تثبيت MySQL Server: إذا لم تكن قد قمت بذلك بالفعل، فقم بتثبيت وتكوين MySQL Server على جهازك أو على خادم بعيد. يمكنك تنزيل MySQL Server من موقع MySQL الرسمي.

  2. تثبيت MySQL Connector/ODBC: MySQL Connector/ODBC هو برنامج تشغيل يمكّن تطبيقات Delphi من الاتصال بقواعد بيانات MySQL باستخدام واجهة ODBC (اتصال قاعدة البيانات المفتوحة). قم بتنزيل وتثبيت MySQL Connector/ODBC من موقع MySQL الإلكتروني.

  3. إعداد قاعدة بيانات MySQL: قم بإنشاء قاعدة بيانات MySQL وحدد الجداول وطرق العرض والإجراءات المخزنة حسب الحاجة لتطبيقك.

  4. إنشاء مشروع دلفي جديد: افتح دلفي وأنشئ مشروعًا جديدًا.

  5. إضافة مكونات FireDAC: أضف مكونات FireDAC إلى مشروعك. يمكنك العثور عliها في علامة التبويب "FireDAC" في "لوحة الأدوات" في Delphi IDE.

  6. تكوين اتصال FireDAC: قم بتكوين مكون اتصال FireDAC للاتصال بقاعدة بيانات MySQL الخاصة بك. قم بتعيين الخصائص المناسبة مثل معرف السائق، قاعدة البيانات، اسم المستخدم، كلمة المرور، الخادم و المنفذ.

  7. اكتب تعliمات برمجية للوصول إلى بيانات MySQL: اكتب تعliمات برمجية لتنفيذ استعلامات SQL، واسترداد البيانات من جداول MySQL، وتنفيذ عمات قاعدة البيانات حسب حاجة التطبيق الخاص بك.

إiكمثال بسيط يوضح كيفية توصيل دلفي بـ MySQL باستخدام FireDAC:


unit MainForm;

interface

uses
  System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait,
  FireDAC.Comp.Client, Data.DB, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    FDConnection1: TFDConnection;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDConnection1.DriverName := 'MySQL';
  FDConnection1.Params.Values['Database'] := 'your_database_name';
  FDConnection1.Params.Values['User_Name'] := 'your_username';
  FDConnection1.Params.Values['Password'] := 'your_password';
  FDConnection1.Params.Values['Server'] := 'your_mysql_server_address';
  FDConnection1.Params.Values['Port'] := '3306'; // Default MySQL port
  FDConnection1.Connected := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Query: TFDQuery;
begin
  Query := TFDQuery.Create(nil);
  try
    Query.Connection := FDConnection1;
    Query.SQL.Text := 'SELECT * FROM your_table_name';
    Query.Open;
    Memo1.Lines.Clear;
    while not Query.Eof do
    begin
      Memo1.Lines.Add(Query.FieldByName('Column1').AsString + ' - ' + Query.FieldByName('Column2').AsString);
      Query.Next;
    end;
  finally
    Query.Free;
  end;
end;

end.


في هذا المثال، لدينا نموذج بسيط يحتوي على مكون TFDConnection (FDConnection1)، وTButton (Button1)، وTMemo (Memo1). عند النقر فوق الزر، ينفذ التطبيق استعلام SQL على قاعدة بيانات MySQL ويعرض النتائج في مكون المذكرة.
تأكد من استبدال العناصر النائبة مثل 'your_database_name'، و'your_username'، و'your_password'، و'your_mysql_server_address' و'your_table_name' بمعلومات قاعدة البيانات الفعliة الخاصة بك.

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