+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : شاشة قارئ الباركود و عرض المعلومات. (/showthread.php?tid=12947)
شاشة قارئ الباركود و عرض المعلومات. - أبو معاذ - 24-06-2025
السلام عليكم .
من فضلكم ، هل هناك من معلومة حول الشاشات التي نجدها في سوبرماركت ، معلقة في الجدران ،
تمرر عليها باركود المنتج و هي تعطيك جميع المعلومات عنه؟
هل هي شاشة من وع خاص ؟ هل لها نظام خاص؟
كيف يتم برمجتها بالدلفي و ربطها بالسيرفير؟
وحبذا لو كانت موودة عندنا في الجزائر ، تعطوني ثمنها.
بارك الله فيكم.
RE: شاشة قارئ الباركود و عرض المعلومات. - mo7ammed - 25-06-2025
وعليكم السلام،
اخي العزيز عمليتها ليست معقدة، حيث ربط قارئي الباركود لا يحتاج لأي كود، هو عبارة قارئي يقرأ الكود الموجود على المنتج وعادة هو ما يكون رقم المنتج المخزن في البرنامج، ومن ثم يضعه في TEdit يكون عليه ال focus، ومن ثم تقوم بقراءة رقم المنتج الذي ادخل وتبحث عنه في بياناتك ومن ثم عرضه واضافته الى فاتورة الشراء.
يعني سواء قمت بإدخال رقم المنتج في الخانة المخصصة له يدوياً من خلال لوحة المفاتيح او تلقائياً من خلال قارئي الباركود، البرنامج لن يفرق بين الطرقتين، لذلك الموضوع غير معقد ولا يحتاج برمجة مخصصة.
ابدأ بالعمل وتوكل على الله، وفي حال حدوث اي مشكلة يمكنك سردها هنا وسوف تجد العديد من الاعضاء يعطوك اجابات
RE: شاشة قارئ الباركود و عرض المعلومات. - أبو معاذ - 25-06-2025
بارك الله فيك على الإجابة ،
لكن هذا ليس مقصودي.
هناك شاشات خاصة (و ليس قارئ الباركود العادي)و بها قارئ الكودبار.
تلصق في الجدار ،
والزبون يقوم بإمرار المنتج لوحده.
RE: شاشة قارئ الباركود و عرض المعلومات. - mo7ammed - 26-06-2025
نفس الطريقة.
هناك في بعض المتاجر الكبيرة، يكون بار كود متاح مع شاشة للزبائن لمعرفة الاسعار، هل هذا المطلوب؟
وفي زيارة لاوربا، دخلت متجر وكان هناك مكان يتيح للزبائن دفع الحساب بأنفسهم، من خلال تمرير المنتجات على بار كود، ومن ثم الدفع ببطاقة الفيزا، دون تدخل من عمال المتجر.
كل الحالات تقريبا تعمل بنفس الطريقة، ولا تحتاج لبرمجة خاصة للباركود، لكن البرمجة للشاشة نفسها فقط.
ممكن في حالة وجود باركود للزبائن لمعرفة الاسعار فقط، اذا كان يتيح استدعاء api من عنوان ما، يمكن ان تقوم ببرمجة API تاخد رقم المنتج وترجع السعر، وقارئي الباركود نفسها يقوم بباقي العمل.
RE: شاشة قارئ الباركود و عرض المعلومات. - justnick - 26-06-2025
السلام عليكم ورحمة الله وبركاته
هل فى امكانية ان تقوم بتصويرها ؟
صورة فقط من اجل ان الكلام يكون متطابق لما هو عندك
عندنا فى مصر فى المتاجر الكبيرة وبعيدا عن كمبيوتر الكاشير بيكون فيه شاشة وقارئ باركود
متوصلين بكمبيوتر حتى لو صغير جدا "مش بيكون ظاهر للذبون"
عليه ويندوز
وعليه نسخة من شاشة الاستعلام
والشاشة بتكون فيها فورم fullscreen
بمجرد تمرير المنتج على القارئ
بيجيب اسمه وسعره
ويعرضه على الشاشة
لو قدرت اصور شاشة هنا فى احد المتاجر سوف اقوم بارفاق الصورة
وربما ارفاق مثال عملي لما اقصده بدلفي
بالتوفيق باذن الله
RE: شاشة قارئ الباركود و عرض المعلومات. - seddik_xp - 30-06-2025
(24-06-2025, 06:01 PM)أبو معاذ كتب : السلام عليكم .
من فضلكم ، هل هناك من معلومة حول الشاشات التي نجدها في سوبرماركت ، معلقة في الجدران ،
تمرر عليها باركود المنتج و هي تعطيك جميع المعلومات عنه؟
هل هي شاشة من وع خاص ؟ هل لها نظام خاص؟
كيف يتم برمجتها بالدلفي و ربطها بالسيرفير؟
وحبذا لو كانت موودة عندنا في الجزائر ، تعطوني ثمنها.
بارك الله فيكم.
أجهزة Vérificateur de prix ( Price checker ) أعمل بحث في غوغل متوفرة في الجزائر
H418da2e176a44238b0afdc4df9543bf8P.jpg (الحجم : 247.67 ك ب / التحميلات : 24)
RE: شاشة قارئ الباركود و عرض المعلومات. - أبو معاذ - 01-07-2025
(30-06-2025, 06:14 PM)seddik_xp كتب :(24-06-2025, 06:01 PM)أبو معاذ كتب : السلام عليكم .
من فضلكم ، هل هناك من معلومة حول الشاشات التي نجدها في سوبرماركت ، معلقة في الجدران ،
تمرر عليها باركود المنتج و هي تعطيك جميع المعلومات عنه؟
هل هي شاشة من وع خاص ؟ هل لها نظام خاص؟
كيف يتم برمجتها بالدلفي و ربطها بالسيرفير؟
وحبذا لو كانت موودة عندنا في الجزائر ، تعطوني ثمنها.
بارك الله فيكم.
أجهزة Vérificateur de prix ( Price checker ) أعمل بحث في غوغل متوفرة في الجزائر
جميل
بارك الله فيك ،
هذا ما كنت أبحث عنه.
RE: شاشة قارئ الباركود و عرض المعلومات. - justnick - 01-07-2025
PHP كود :
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type
TForm1 = class(TForm)
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
EnteredBarcode: string;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.KeyPreview:= True;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key:= #0;
if Trim(EnteredBarcode) <> '' then
begin
ShowMessage('Go and find Item with ' + EnteredBarcode);
EnteredBarcode:= '';
end;
end
else
begin
EnteredBarcode:= EnteredBarcode+ Key;
Key:= #0;
end;
end;
end.