delphi4arab منتديات دلفي للعرب

السلام عليكم

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

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

و عليكم السلام ورحمة الله وبركاته.
جميل جدا ، بارك الله فيك و جعله الله في موازين حسناتك.

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

هل تم ازالة الربط

شكر ا حتى ولم اجد اي ملف

السلام عليكم

لإنشاء وطباعة الباركود (Code Bar) في دلفي (Delphi)، يمكنك استخدام مكتبات خارجية مثل `TBarcode` أو `DelphiBarcode` أو `FastReport` إذا كنت ترغب في إنشاء تقارير تحتوي على باركود. فيما يلي مثال بسيط باستخدام مكتبة `TBarcode`:

الخطوات:

1. تنزيل وإضافة مكتبة TBarcode:
- قم بتنزيل مكتبة `TBarcode` من الإنترنت.
- أضف الوحدة (`Unit`) إلى مشروعك في دلفي.

2. إنشاء الباركود:
- استخدم مكون `TBarcode` لإنشاء الباركود.

3. طباعة الباركود:
- استخدم مكون `TPrintDialog` لطباعة الباركود.

مثال عملي:

PHP كود :
```delphi
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Barcode, Printers;

type
  TForm1 = class(TForm)
    Barcode1: TBarcode;
    Button1: TButton;
    PrintDialog1: TPrintDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  BarcodeBitmap: TBitmap;
begin
  // إنشاء صورة الباركود
  BarcodeBitmap := TBitmap.Create;
  try
    Barcode1.Text := '123456789012';  // النص الذي تريد تحويله إلى باركود
    Barcode1.DrawBarcode(BarcodeBitmap.Canvas, 0, 0);

    // عرض صورة الباركود في النافذة (اختياري)
    Canvas.Draw(10, 10, BarcodeBitmap);

    // طباعة الباركود
    if PrintDialog1.Execute then
    begin
      Printer.BeginDoc;
      try
        Printer.Canvas.Draw(100, 100, BarcodeBitmap);
      finally
        Printer.EndDoc;
      end;
    end;
  finally
    BarcodeBitmap.Free;
  end;
end;

end.
``` 

شرح الكود:

1. إنشاء الباركود:
- يتم استخدام مكون `TBarcode` لإنشاء الباركود من النص المحدد (`Barcode1.Text`).
- يتم رسم الباركود على `TBitmap` باستخدام `DrawBarcode`.

2. عرض الباركود:
- يمكن عرض الباركود على النافذة باستخدام `Canvas.Draw`.

3. طباعة الباركود:
- يتم استخدام `TPrintDialog` لفتح مربع حوار الطباعة.
- يتم رسم الباركود على طابعة باستخدام `Printer.Canvas.Draw`.

ملاحظات:
- تأكد من تثبيت مكتبة `TBarcode` بشكل صحيح وإضافتها إلى مشروعك.
- يمكنك تعديل النص (`Barcode1.Text`) لإنشاء باركود مختلف.
- يمكنك أيضًا استخدام مكتبات أخرى مثل `DelphiBarcode` أو `FastReport` إذا كنت بحاجة إلى ميزات إضافية.

تنزيل مكتبة TBarcode:
يمكنك البحث عن مكتبة `TBarcode` على الإنترنت أو استخدام مواقع مثل `GitHub` أو `Torry's Delphi Pages` لتنزيلها.

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

السلام عليكم اخ لؤي شكرا لك الاسم TBarcode كثيرا عام ممكن رابط للمكون او الشركة ...

السلام عليكم

شيئ من النت بشكل عام غير مجرب :

خيارات مفتوحة المصدر / مجانية

• Zint Barcode Generator منشئ الباركود مفتوح المصدر والذي يمكن استخدامه مع دلفي.
• DelphiZXingQRCode: يكون مفيدًا إذا كنت بحاجة إلى إنشاء رموز QR.

مكونات تجارية

• TBarcode (FastReports) – جزء من مجموعة FastReports.
• TMS VCL Barcodes Pack – يدعم أنواع متعددة من الباركود ويعمل بشكل جيد مع Delphi وC++ Builder.
• Barcode Professional for Delphi (Neodynamic) – مكون الباركود عالي الجودة مع إمكانية التخصيص المكثف.
• Zebra Barcode Library حل قوي للترميز الشريطي للقطاع الصناعي والتجزئة.

appakar

أبو معاذ

ع بلال

سليم 2024

جموعي النايلي

لؤي

S.FATEH

لؤي