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

[appakar]

السلام عليكم

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


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

[أبو معاذ]

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

[ع بلال]

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

[سليم 2024]

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

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

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

[لؤي]

السلام عليكم

لإنشاء وطباعة الباركود (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` لتنزيلها.

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

[S.FATEH]

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

[لؤي]

السلام عليكم

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

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

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

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

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