التعامل مع عتاد نظام المبيعات POS hardware
#11
(10-04-2022, 11:20 PM)Lam.Abdeldjalil كتب : وعليكم السلام و رحمة الله

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

من بعد إذنك قمت بتعديل هذه المشاركة #6
يبدوا أن المرفقات لا تدعم النوع gif
سبحان الله وبحمده سبحان الله العظيم
[-] كل من 1 user says قال شكرا ل Agmcz على المشاركة المفيدة
  • Lam.Abdeldjalil
الرد
#12
إقتباس :من بعد إذنك قمت بتعديل هذه المشاركة #6
لا توجد مشكلة Shy 

المنتدى لا يدعم gif/ mp4
أرى نترك الروابط الخارجية و أرفق كل الملفات في ملف مضغوط في أول مشاركة في حال حذفت الروابط الخارجية
----------
لا يمكن رفع ملفات كبيرة في المنتدى لذا سأرفعه في الدرايف
[-] كل من 2 users say قال شكرا ل Lam.Abdeldjalil على المشاركة المفيدة
  • Agmcz, أبو معاذ
الرد
#13
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]

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


الملفات المرفقة
.rar   Bluetooth D4A.rar (الحجم : 60.06 ك ب / التحميلات : 7)
[-] كل من 2 users say قال شكرا ل Lam.Abdeldjalil على المشاركة المفيدة
  • wadoud, مبرمج حر
الرد
#14
السلام عليكم

ممكن معرفة الاخيرة فيما تستخدم اقصد Bluetooth Printer هل هي مثل Thermal Printer
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
الرد
#15
و عليكم السلام ورحمة الله

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

* مثال عن الاستعمال الداخلي : طباعة أسعار المواد داخل المحل التجاري
* مثال عن الاستعمال الخارجي : موزع مواد التنظيف يطبع طلبية زبونه المحل ن
[-] كل من 2 users say قال شكرا ل Lam.Abdeldjalil على المشاركة المفيدة
  • S.FATEH, أبو معاذ
الرد
#16
السلام عليكم.
جزاك الله خيرا أخي عبد الجليل.
سؤال فقط فيما يخص طباعة الباركود.
كما نعلم أنه يوجد عدة مقاسات للورق الخاص بالباركود ، فكيف نقوم بتهيئة الطباعة ،
أم يجب إرفاق (ملف فاست ريبورت Fr3 ) لكل مقاس؟
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 1 user says قال شكرا ل أبو معاذ على المشاركة المفيدة
  • Lam.Abdeldjalil
الرد
#17
و عليكم السلام و رحمة الله

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

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

[صورة: 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;
[-] كل من 2 users say قال شكرا ل Lam.Abdeldjalil على المشاركة المفيدة
  • wadoud, أبو معاذ
الرد
#18
جزاك الله خير أخي عبد الجليل،
هل ممكن تغيير المقاسات برمجيا؟
أم أن الحل الوحيد ÷و إرفاق لكل مقاس صفحة تقريره الخاصة به؟
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 1 user says قال شكرا ل أبو معاذ على المشاركة المفيدة
  • Lam.Abdeldjalil
الرد
#19
السلام عليكم

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

إذا قمت بتغيير الطول و العرض خذ بعين الاعتبار تغيير أحجام وأماكن المكونات داخل التقرير
مكون barcode لا يمكن التحكم بطوله و عرضه إلا بـ zoom
والتغيير في هذا الأخير يمكن أن يؤثر على قراءة الباركود المطبوع ، zoom = 0.8 لا يقرأ من طرف بعض الأنواع . ( جرب Wink )
[-] كل من 1 user says قال شكرا ل Lam.Abdeldjalil على المشاركة المفيدة
  • أبو معاذ
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم