کامپوننت بارکد دردلفی7

[keyanosh]

من یک کامپوننت بارکد برای دلفی 7 می خواهم البته به جزء barcomp ارائه شده چون این دموی کامپوننت می باشد

[یوسف زالی]

HsBarcode گزینه ی خوبی هست که خودم در دلفی 7 ازش استفاده کردم.
چیزی حدود 47 استاندارد مختلف رو ساپورت می کنه.
این کامپوننت رایگان نیست. البته برای خودم رو خودم کرک کردم :بامزه:
اگر لازم داشتی پیام خصوصی بده. با نمونه برات می گذارم.

[samani]

شما ميتونيد از باركد fastreport استفاده كنيد

[keyanosh]

با سلام
ممنونم از راهنمائیتان اینکاروکردم من یک دیتا ماژول ساخته ام که روی آن دیتا و فست ریپورت روی آن دارم چطور می تونم از روی فرمم با وارد کردن مقدار عرض بارکد عرض آنرا عوض کنم
وآیا بارکد را بدن ارسال به چاپ می تونم روی فرمم ببینم
با تشکر

[samani]

اگر شما مي خواهيد مستقيم روي فرم باركد را نمايش دهيد ميتونيد يك آبجكت از نوع TfrxBarcode از يونيت frxBarcod بسازي

procedure TForm1.Button1Click(Sender: TObject);
var
b: TfrxBarcode;
begin
b := TfrxBarcode.Create(self);
try
b.Text := '123456';
b.Typ := bcCode93;
b.Checksum := True;
b.DrawBarcode(Image1.Canvas, Image1.Canvas.ClipRect, True);
finally
b.Free;
end;
end;

در ضمن شما ميتوانيد بدون استفاده از فست ريپورت از باركد ضميمه همراه با مثال كه خود فست ريپورت از آن استفاده ميكنه استفاده كنيد

[keyanosh]

با تشکر فراوان از پاسخ شما موفقیت شما را خداوند منان خواستارم

[keyanosh]

با سلام مجدد
من عنصر frxBarCodeObject1 را روی فرم قراردادم وکد شما را نوشتم اما در خط var b: TfrxBarcode پیغام خطا می دهد اشکال در کجاست
با تشکر

[samani]

نيازي به استفاده از frxBarCodeObject1 نيست ، شما يونيت frxBarcod (نه frxBarcode) را در قسمت uses بنويس مشكل حله.

آبجكت frxBarCodeObjec1 را فقط براي استفاده در design فست ريپورت بايد روي فرم قرار بدي