在线生成器

Delphi
Delphi 项目中的条形码

 Standard 或更高

如何在 Delphi 中使用条形码

Delphi 2005, 2006, 2007, 2009, 2010, XE, XE2, XE3, XE4, XE5, XE6, XE7, XE8, 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio

1


ActiveBarcode: 如何在 Delphi 中使用条形码
►

在 Delphi 中，您可以像使用其他控件（如按钮）一样使用 ActiveBarcode。 首先，您必须将 ActiveBarcode 控件添加到 Delphi 开发环境中。

创建一个新项目：File - New - VCL 表单应用程序:

ActiveBarcode: Barcode, Delphi


2


要在表格中放置 ActiveBarcode，您可以从工具调板中选择 ActiveBarcode 控件。您可以在 ActiveX 下找到该控件，它是一个 TBarcode 组件:

ActiveBarcode: Barcode, Delphi


3


选择 TBarcode 并将该组件置于窗体上。遗憾的是，Delphi 添加的条形码对象背景颜色为黑色。

ActiveBarcode: Barcode, Delphi


4


不过，没问题，我们只需解决这个问题。在对象检查器中，你可以自定义组件的属性。因此，请将背景颜色设置为白色。

ActiveBarcode: Barcode, Delphi


5


瞧，条形码对象现在看起来很好:

ActiveBarcode: Barcode, Delphi


6


在本例中，我们将在表单中添加一个控件，即 TEdit 。现在，您的表单可能如下所示:

ActiveBarcode: Barcode, Delphi


7


接下来，我们将编辑字段直接链接到控件。 双击编辑栏，打开 TextChange 事件的源代码。 如果编辑字段的内容发生变化，该事件总是会被调用。理想情况下，我们的示例 我们会立即将更新信息传递给控件。

ActiveBarcode: Barcode, Delphi


8


完成！现在启动应用程序，更改编辑字段的内容以更改条形码。

ActiveBarcode: Barcode, Delphi


9


编码示例

设置属性非常简单。 

Barcode1.Text := '123456789012';
Barcode1.BackColor := clWhite;
Barcode1.ForeColor := clBlack;

使用图片属性
将条形码复制到图像对象中： 
Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);

使用剪贴板
将当前条形码作为矢量图形复制到剪贴板 (WMF):
  Barcode1.CopyToClipboard;
以位图形式将当前条形码复制到剪贴板 (BMP):
Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);
Clipboard.Assign(Image1.Picture.Bitmap);