+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : برنامج انشاء وطباعة Code bar (/showthread.php?tid=12557)
برنامج انشاء وطباعة Code bar - appakar - 05-03-2024
السلام عليكم
كود سورس لبرنامج إنشاء وطباعة Code Bar
رابط تحميل البرنامج
RE: برنامج انشاء وطباعة Code bar - أبو معاذ - 06-03-2024
و عليكم السلام ورحمة الله وبركاته.
جميل جدا ، بارك الله فيك و جعله الله في موازين حسناتك.
RE: برنامج انشاء وطباعة Code bar - ع بلال - 18-03-2024
بارك الله فيك
كيفية تحميل مكون كود بار
وجدت فقط barcode2d_tri التجريبي
RE: برنامج انشاء وطباعة Code bar - سليم 2024 - 19-02-2025
هل تم ازالة الربط
RE: برنامج انشاء وطباعة Code bar - جموعي النايلي - 21-02-2025
شكر ا حتى ولم اجد اي ملف
RE: برنامج انشاء وطباعة Code bar - لؤي - 23-02-2025
السلام عليكم
لإنشاء وطباعة الباركود (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` لتنزيلها.
هذا المثال يعطيك فكرة أساسية عن كيفية إنشاء وطباعة الباركود في دلفي. يمكنك تطويره حسب احتياجاتك الخاصة.
RE: برنامج انشاء وطباعة Code bar - S.FATEH - 23-02-2025
السلام عليكم اخ لؤي شكرا لك الاسم TBarcode كثيرا عام ممكن رابط للمكون او الشركة ...
RE: برنامج انشاء وطباعة Code bar - لؤي - 24-02-2025
السلام عليكم
شيئ من النت بشكل عام غير مجرب :
خيارات مفتوحة المصدر / مجانية
• Zint Barcode Generator منشئ الباركود مفتوح المصدر والذي يمكن استخدامه مع دلفي.
• DelphiZXingQRCode: يكون مفيدًا إذا كنت بحاجة إلى إنشاء رموز QR.
مكونات تجارية
• TBarcode (FastReports) – جزء من مجموعة FastReports.
• TMS VCL Barcodes Pack – يدعم أنواع متعددة من الباركود ويعمل بشكل جيد مع Delphi وC++ Builder.
• Barcode Professional for Delphi (Neodynamic) – مكون الباركود عالي الجودة مع إمكانية التخصيص المكثف.
• Zebra Barcode Library حل قوي للترميز الشريطي للقطاع الصناعي والتجزئة.