Delphi calls bartender to print bar code labels.

Source: Internet
Author: User

Abstract: This article describes how to use Delphi to call the bar code ActiveX component to print the bar code.

1. Preface

The most recent project needs to print the barcode in a fixed format after scanning. Bar code printing software customers are used to use barrier. To maintain their habits and reduce development risks, they decided to use Delphi to call barrier to print the bar code label function.

This function focuses on:

A) print in bartender format

B) The format must be changed.

2. Design labels

A) create a blank tag.

B) add a bar code control and a text control to the screen.

C) Select the bar code control, double-click (or right-click, properties), and open the Properties window. Click "advanced" and select the "Share/Name" page, in the Share Name field, enter the bar code control name "barcode1". Click "OK" to complete the modification. This step defines the object names accessed in Delphi (or other languages such as VB.

D) In the same step, set the text control name to "text1"

E) save it as "C: \ test. BTW"

3. Import ActiveX Components

A) Open Delphi (Version 5.0 and later, others are not tested)

B) select project> Import Type Library from the menu)

C) In the pop-up window, list the database types that can be imported. Find "Bartender 7.75" and select

D) The name of the class to be imported will be listed in the class names. Because the class name here will be repeated with the existing class name in the system, copy all the names, add BT to the front of the type name. For example, change tformat to tbtformat.

E) after the class name is modified, click "Install" (install)

F) The system will install components on the ActiveX control page.

4. Call bartender to print

A) create an applicationProgram

B) drag a tbtapplication control (ActiveX page) on the form and name it btapp1

C) place a tbutton control on the form and name it btn1. Double-click btn1 to generate an event.

D) Fill in the eventCodeAs follows:

 
Procedure tform1.btn1click (Sender: tobject );
Begin
With btapp1.formats. Open ('C: \ test. btw', true, '') Do
// Open the Tag file
Begin
Setnamedsubstringvalue ('barcode1', '20140901'); // set the value
Setnamedsubstringvalue ('text1', 'Hello bartender! ');
Printout (false, false); // print
Close (btdonotsavechanges); // close and do not save
End;
Btapp1.quit (btdonotsavechanges); // exit the end;

E) should I be able to work now ?... For more information, see the source code of the introduced Type Library (bartender_tlb.pas)

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.