delphi - バーコードdelphiコンソールでラベルを印刷

Question

Delphiにコンソールアプリケーションがあり、バーコード付きのラベルを印刷する必要があります。どうすればいいですか？印刷サービスを作成しますか？または私は使用しQuickReportますか？

アプリケーションはtelnetで実行されます。

Answer 1

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Printers, Graphics;
var
  bmp: TBitmap;
begin
  try
    bmp := TBitmap.Create;
    try
      bmp.Width := 400;
      bmp.Height := 400;
      // your Barcode - Code here
      bmp.Canvas.Ellipse(10,10,300,300);
      Printer.BeginDoc;
      Printer.Canvas.Draw(10,10,bmp);
      Printer.EndDoc;
    finally
      bmp.Free;
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Answer 2

私はシリアルポートに接続するラベルプリンターを使用してきましたが、ほとんどのプリンターはバーコードの印刷方法を知っています。必要なのは、場所、コード、シンビオロジーを伝えることだけです。ラベルプリンタのブランドとタイプに応じて、マニュアルにプリンタにラベルを印刷させる方法が記載されているはずです。例：Epson ESC（pdf）ページC-195またはdatamax-oneilのCompact4（pdf）ページ15

Answer 3

TppDBBarcodeReportBuilderのコンポーネントを使用してバーコードを印刷します。