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

نسخة كاملة : التعامل مع عتاد نظام المبيعات POS hardware
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
(10-04-2022, 11:20 PM)Lam.Abdeldjalil كتب : [ -> ]وعليكم السلام و رحمة الله

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

من بعد إذنك قمت بتعديل هذه المشاركة #6
يبدوا أن المرفقات لا تدعم النوع gif
إقتباس :من بعد إذنك قمت بتعديل هذه المشاركة #6
لا توجد مشكلة Shy 

المنتدى لا يدعم gif/ mp4
أرى نترك الروابط الخارجية و أرفق كل الملفات في ملف مضغوط في أول مشاركة في حال حذفت الروابط الخارجية
----------
لا يمكن رفع ملفات كبيرة في المنتدى لذا سأرفعه في الدرايف
6  طابعة البلوتوث Bluetooth Printer

( إصدارات دلفي الحديثة تحتوي على مكوناتBluetooth )


[صورة: wokFz5.jpg]
باختصار للطباعة يجب أن تكون الطابعة مقترنة من قبل paired ولكي يتم الاقتران يجب أن تكتشف discovered
ولكي تكتشف يجب أن يكون البلوتوث مفعل.
و الصلاحيات المطلوبة هي bluetooth  و  bluetooth administration

وللاتصال بالجهاز يجب ان يكون عندك  UUID الخاص بالجهاز وهو يستخدم لتحديد الخدمة التي يقدمها جهاز Bluetooth ،  في حالتنا الرقم الخاص بطابعة البلوتوث هو 0001101-0000-1000-8000-00805F9B34FB

بعد الاتصال الطباعة تكون بالكتابة المباشرة مثلا
كود :
Fsocket.SendData(TEncoding.UTF8.GetBytes(Edit1.Text));

وبعدها نقوم بإرسال تعليمة esc/pos للرجوع للسطر

https://escpos.readthedocs.io/en/latest/...0a-rel-phx

في النوع المستعمل تمكن الطباعة في الوسط / اليمين بالتعليمات

كود :
chrleft = chr($1B) + chr($61) + chr($00); chrCenter = chr($1B) + chr($61) + chr($01); chrright = chr($1B) + chr($61) + chr($02);

لكنه لا يدعم العربية
[صورة: X8mXIn.jpg]

[صورة: giphy.gif]

المثال المرفق خاص يالدلفي فقط
السلام عليكم

ممكن معرفة الاخيرة فيما تستخدم اقصد Bluetooth Printer هل هي مثل Thermal Printer
و عليكم السلام ورحمة الله

نعم هي عبارة عن Thermal Printer بورق أقل حجما ( في طول اللفة 40م بالتقريب ) وفيها بطارية وهي صغيرة يمكن حملها

* مثال عن الاستعمال الداخلي : طباعة أسعار المواد داخل المحل التجاري
* مثال عن الاستعمال الخارجي : موزع مواد التنظيف يطبع طلبية زبونه المحل ن
السلام عليكم.
جزاك الله خيرا أخي عبد الجليل.
سؤال فقط فيما يخص طباعة الباركود.
كما نعلم أنه يوجد عدة مقاسات للورق الخاص بالباركود ، فكيف نقوم بتهيئة الطباعة ،
أم يجب إرفاق (ملف فاست ريبورت Fr3 ) لكل مقاس؟
و عليكم السلام و رحمة الله

حفظك الله أخي أبو معاذ .

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

[صورة: MAjv4n.png]

مثال اخفاء كل الصفحات إلا الثانية
كود :
var i: integer; ..   frxReport1.LoadFromFile('Barcode.fr3');   for i:=0 to frxReport1.PagesCount-1 do   begin     frxReport1.Pages[i].Visible:=false;   end;   frxReport1.Pages[2].Visible:=true;   frxReport1.PrepareReport;   frxReport1.PrintOptions.Printer := cbbxBarcode.Text;   frxReport1.PrintOptions.ShowDialog := False;   frxReport1.ShowReport;
جزاك الله خير أخي عبد الجليل،
هل ممكن تغيير المقاسات برمجيا؟
أم أن الحل الوحيد ÷و إرفاق لكل مقاس صفحة تقريره الخاصة به؟
السلام عليكم

يمكن التحكم في طول وعرض الصفحة في الفاستريبورت
كود :
  TFrxReportPage(frxReport1.Pages[1]).PaperWidth := 50;   TFrxReportPage(frxReport1.Pages[1]).PaperHeight := 50;  

إذا قمت بتغيير الطول و العرض خذ بعين الاعتبار تغيير أحجام وأماكن المكونات داخل التقرير
مكون barcode لا يمكن التحكم بطوله و عرضه إلا بـ zoom
والتغيير في هذا الأخير يمكن أن يؤثر على قراءة الباركود المطبوع ، zoom = 0.8 لا يقرأ من طرف بعض الأنواع . ( جرب Wink )
السلام عليكم
اخي Lam.Abdeldjalil ان امكن لو تكمل لنا الميزان الالكتروني
صحيح هو لديه برنامج صغير يقوم بالحساب
لكن اود طريقة لاضافة الميزان الى برنامج مصمم بالدلفي يعني انه في حالة وزن منتج يضع السعر مباشرة فالبرنامج
وشكرا
الصفحات : 1 2 3