التعامل مع عتاد نظام المبيعات 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 ك ب / التحميلات : 29)
[-] كل من 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 على المشاركة المفيدة
  • أبو معاذ
الرد
#20
السلام عليكم
اخي Lam.Abdeldjalil ان امكن لو تكمل لنا الميزان الالكتروني
صحيح هو لديه برنامج صغير يقوم بالحساب
لكن اود طريقة لاضافة الميزان الى برنامج مصمم بالدلفي يعني انه في حالة وزن منتج يضع السعر مباشرة فالبرنامج
وشكرا
الرد


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


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