delphi4arab منتديات دلفي للعرب - دلفي والتعامل مع الوسائط المتعددة

التعامل مع عتاد نظام المبيعات POS hardware

Tue, 05 Apr 2022 11:05:26 +0100

السلام عليكم و رحمة الله

إضافة دعم عتاد نظام المبيعات إلى برنامجك عملية سهلة تابع معنا الموضوع لتتعلمها
العتاد الذي سنتطرق له في هذا الموضوع
قارئ الباركود ، درج النقود ، عارض الزبون ، طابعة التذاكر ، طابعة الباركود ، طابعة البلوتوث في الأندرويد

1 BarcodeReader قارئ الباركود

قارئ الباركود متوفر بعدة أنواع ، كمبرمجين ما يهمنا في قارئ الباركود هو نوع المنفذ port( usb/ps2(wedge) /com)
لحسن الحظ الأنواع المتواجدة في السوق حاليا أغلبها usb
لذا سيكون التعامل بالبرمجة مع قارئ الباركود سهلا منعدما) لأنه يقرأ الباركود و يكتبه على المكون الموضع المؤشر عليه مع إضافة
enter في النهاية كخاصية افتراضية
نضع مثالا بسيطا لتنفيذ إجراء بعد إستقبال الباركود: نستعمل الحدث onkeypress الخاص بالمكون TEdit

كود :
procedure TForm1.edtBarcodeKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) then
  begin
    if edtBarCode.Text <> '' then
    begin
	  // البحث
      ShowMessage('البحث عن الباركود' + #10 + edtBarCode.Text);
      edtBarCode.Clear;
    end;
    Key := #0;
  end;
end;

اعتذر على الجودة

*يمكن التغيير في خصائص القارئ حسب نوعه من اللغة ، سرعة القراءة ، التحكم في الصوت ،الوقت بين القراة و القراءة
,,,,Caps lock ، Prefix and Suffix ، 2D ، Enter
بالكتيب أو الورقة التي تأتي معه و في بعض الأنواع برنامج لتغيير الخصائص

الملف في الرابط اسفله يحتوي صور الموضوع فقط

https://drive.google.com/file/d/1HQI5S0p...sp=sharing

معرفة خصائص الطابعة .

Wed, 06 Apr 2016 20:48:42 +0100

السلام عليكم ورحمة الله وبركاته ،
كنت أبحث عن كيفية معرفة خصائص الطابعة ، هل تسمح بالطباعة على الجهتين Recto/Verso ، وجدت هذا المثال ، فوضعته هنا عسى أن يستفيد منه الإخوة.
1- لمعرفة جميع الطابعات المثبة على جهازك ، مع معرفة إذا ما كانت تسمح بالطباعة على الجهتين .
أنشئ مشروع جديد ، ضع المكونات التالية :
TListView
Bouton
Label

كود :
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    PrintDialog1: TPrintDialog;
    ListView1: TListView;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure InitListView;
  end;
 
var
  Form1: TForm1;
 
implementation
uses Printers,WinSpool;
{$R *.dfm}
procedure TForm1.InitListView;
var AListColumn:TListColumn;
begin
  ListView1.Clear;
  ListView1.Columns.Clear;
  ListView1.ViewStyle:=vsReport;
 
  AListColumn:=ListView1.Columns.Add;
  AListColumn.Caption:='Nom de l''imprimante';
    AListColumn:=ListView1.Columns.Add;
  AListColumn.Caption:='Nom du Driver';
    AListColumn:=ListView1.Columns.Add;
  AListColumn.Caption:='Recto Verso';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  AListItem:TListItem;
  Device, Driver, Port: array[0..255] of Char;
  hDevMode: THandle;
  TypeDeDuplex:Integer;
  s:string;
begin
  InitListView;
  Printer.PrinterIndex:=-1;
  Printer.GetPrinter(Device, Driver, Port, hDevmode);
  Label1.Caption:='Imprimante par défaut : '+string(Device);
  for i:=-1 to printer.Printers.Count-1 do
  begin
    Printer.PrinterIndex:=i;
    Printer.GetPrinter(Device, Driver, Port, hDevmode);
    TypeDeDuplex:=WinSpool.DeviceCapabilities(Device, Port, DC_DUPLEX, nil, nil);
    AListItem:=ListView1.Items.Add;
    AListItem.Caption:=Device;
    s:=Driver;
    if s='' then s:='';
    AListItem.SubItems.Add(s);
    case TypeDeDuplex of
      -1:s:='Erreur';
       0:s:='Non';
       1:s:='Oui';
    end;
    AListItem.SubItems.Add(s);
  end;
end;
 
end.

وهذا البرنامج للطباعة Recto Verso

كود :
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    PrintDialog1: TPrintDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
uses WinSpool, Printers;
{$R *.dfm}
function PrinterSupportsDuplex: Boolean;
var
  Device, Driver, Port: array[0..255] of Char;
  hDevMode: THandle;
begin
  Printer.GetPrinter(Device, Driver, Port, hDevmode);
  Result :=
    WinSpool.DeviceCapabilities(Device, Port, DC_DUPLEX, nil, nil) <>
    0;
end;
 
procedure ForceDuplexMode;
var
  Device, Driver, Port: array[0..80] of Char;
  DevMode: THandle;
  pDevmode: PDeviceMode;
begin
  Printer.GetPrinter(Device, Driver, Port, DevMode);
  if Devmode <> 0 then begin
    pDevMode := GlobalLock(Devmode);
    if pDevmode <> nil then
    try
      with pDevmode^ do begin
        dmDuplex := DMDUP_VERTICAL;
        dmFields := dmFields or DM_DUPLEX;
      end;
    finally
      GlobalUnlock(Devmode);
    end;
  end; { If }
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if PrintDialog1.Execute then
  begin
    ForceDuplexMode;
 
    Printer.BeginDoc;
    printer.canvas.TextOut(10,10,'Recto');
 
    Printer.NewPage;
 
    printer.canvas.TextOut(10,10,'Verso');
 
    Printer.EndDoc;
  end;
end;
 
end.

بالتوفيق للجميع.

مكتبة *.V2m (موسيقى جيدة & حجم صغير) لبرامجكم !

Sat, 08 May 2010 12:10:26 +0100

السلام عليكم و رحمة الله و بركاته

V2m Music Player for Delphi,VB,VC,Masm,...
-can play high quality musics (.v2m files)
-small exe size (after compile)
-u can use this player for creating : KeyGens,Patchs,Demos,Games,...
-can play from: file,resource,stream
-easy to use

أرفقت فقط ما تحتاجه بالدلفي ! & مكتبة v2m.

بالتوفيق

V2mPlayerDelphi.part01.rar (الحجم : 195.31 ك ب / التحميلات : 1075)

V2mPlayerDelphi.part02.rar (الحجم : 171.18 ك ب / التحميلات : 861)

للتعرف على Graphic Card الخاصة بجهازك

Sat, 22 Mar 2008 21:33:11 +0100

السلام عليكم
هذا مثال للتعرف على نوع Graphic Card الخاصة بجهازك، مع العلم أن معلومات Graphic Card ستظهر لك في مكون MEMO

المكونات المستعملة:
1- مكون Button
2- مكون Memo
نضغط مرتين على المكون Button ونكتب ما يلي:

كود :
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
  memo1.Clear;
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc := 0;
  while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
  begin
    Inc(cc);
memo1.lines.add(lpDisplayDevice.DeviceString);
  end;

السورس في المرفقات
وبالتوفيق

Graphic Card.rar (الحجم : 4.47 ك ب / التحميلات : 458)

اضافة البسملة لتطبيقك عند التشغيل

Thu, 21 Feb 2008 13:50:35 +0100

سالني احد الاصدقاء
قال: لدي مشروع واريـده ان يقرأ "بسم الله الرحمن الرحيم" عند تنفيذه
قلت له: وما المشكل، استعمل ملف Wave به البسملة
قال: مشروعي ملف تنفيذي واحد دون ارفاق ملفات اخرى
قلت: ولماذا وضعو الرسورس اذن! ضعه في الرسورس Resource
قال: كيف ؟

اولا الملف Besm.wav ملف صوتي به "بسم الله الرحمن الرحيم"

نضعه في الرسورس res كا الاتي:
1- ننشئ ملف نصي نسمية res.RC ونكتب به التالي

كود :
1 WAVE "Besm.wav"

2- في سطر الاوامر اين وضعهنا الملف نكتب السطر التالي

كود :
BRCC32 res.rc

يصبح لدينا ملف res.res وهو ملف الرسورس الذي سنظيف لمشروعنا Project1.DPR مباشرة بعد {R *.RES} بكتابة

كود :
{$R  res.res}

الان بقي ان نستدعي ملفنا الصوتي باستخدام PlaySound المظمنه بMMSystem هكذا

كود :
playSound(PChar(1), hInstance, SND_ASYNC or SND_RESOURCE);

فقط، انتهينا!
ولا ننسى اظافة MMSystem للمشروع تحت Uses

المثال مرفق و السلام عليكم ورحمة الله

Delphi_Besm_PlaySound.rar (الحجم : 129.87 ك ب / التحميلات : 3286)

Project1.EXE.rar (الحجم : 191.73 ك ب / التحميلات : 2768)