Lazarus Printing in Thermal printer, Barcode.pas error

[Kevinn3]

hello, i have doing a project and it went well to print a barcode in thermal printer using lazarus for windows 10
then i try in debian stretch raspberry pi and it cant print any barcode, the printer queue is on the list but then after processing it just dissapear

Code: Select all

unit Printertestingg;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons, Printers, StBarC;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    StBarCode1: TStBarCode;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
    procedure PrintString(S:String);
    procedure PrintSample;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
procedure TForm1.PrintString(S: String);
var
  Written: Integer;
begin
  Printer.Write(S[1], Length(S), Written);
end;

const
  MaxBufSize = 256;

procedure TForm1.PrintSample; // a kind of procedure
begin
   //Mencetak header dan isi struk
   PrintString('========Selamat Datang========='+LineEnding);
   PrintString('=======Penyewaan  Loker========'+LineEnding);
   PrintString('Tercetak Pada '+DateTimeToStr(Now));//Menampilkan waktu sekarang
   PrintString('Item : 1 Loker    = Rp. 35000,-'+LineEnding);
   PrintString('==============================='+LineEnding);
   PrintString('Total             = Rp. 35000,-'+LineEnding);
   PrintString(LineEnding);
   PrintString('  Simpan Struk pembayaran ini  '+LineEnding);
   PrintString('Struk ini akan digunakan untuk '+LineEnding);
   PrintString('buka loker yang digunakan      '+LineEnding);
   PrintString('Barcode : '+LineEnding);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Printer.SetPrinter('POS-58');  //Deklarasi nama printer
  Printer.Title := Caption;
 // Printer.RawMode := True;
 // Printer.BeginDoc;
 // PrintSample;
 // Printer.EndDoc;
  Printer.RawMode := False;
  Printer.BeginDoc;
  Printer.Canvas();
//  StBarCode1.Code:=IntToStr(Random(999999)); //menghasilkan nilai random untuk barcode
//  StBarCode1.PaintToCanvas(Printer.Canvas,Rect(100,-200,100,200)); //print barcode dalam bentuk canvas
  Printer.EndDoc;
end;


end.

[fruitoftheloom]

hello, i have doing a project and it went well to print a barcode in thermal printer using lazarus for windows 10
then i try in debian stretch raspberry pi and it cant print any barcode, the printer queue is on the list but then after processing it just dissapear

Code: Select all

unit Printertestingg;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons, Printers, StBarC;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    StBarCode1: TStBarCode;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
    procedure PrintString(S:String);
    procedure PrintSample;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
procedure TForm1.PrintString(S: String);
var
  Written: Integer;
begin
  Printer.Write(S[1], Length(S), Written);
end;

const
  MaxBufSize = 256;

procedure TForm1.PrintSample; // a kind of procedure
begin
   //Mencetak header dan isi struk
   PrintString('========Selamat Datang========='+LineEnding);
   PrintString('=======Penyewaan  Loker========'+LineEnding);
   PrintString('Tercetak Pada '+DateTimeToStr(Now));//Menampilkan waktu sekarang
   PrintString('Item : 1 Loker    = Rp. 35000,-'+LineEnding);
   PrintString('==============================='+LineEnding);
   PrintString('Total             = Rp. 35000,-'+LineEnding);
   PrintString(LineEnding);
   PrintString('  Simpan Struk pembayaran ini  '+LineEnding);
   PrintString('Struk ini akan digunakan untuk '+LineEnding);
   PrintString('buka loker yang digunakan      '+LineEnding);
   PrintString('Barcode : '+LineEnding);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Printer.SetPrinter('POS-58');  //Deklarasi nama printer
  Printer.Title := Caption;
 // Printer.RawMode := True;
 // Printer.BeginDoc;
 // PrintSample;
 // Printer.EndDoc;
  Printer.RawMode := False;
  Printer.BeginDoc;
  Printer.Canvas();
//  StBarCode1.Code:=IntToStr(Random(999999)); //menghasilkan nilai random untuk barcode
//  StBarCode1.PaintToCanvas(Printer.Canvas,Rect(100,-200,100,200)); //print barcode dalam bentuk canvas
  Printer.EndDoc;
end;


end.

Does Raspbian Stretch via CUPS support the unknown Printer ?