Problemi di stampa su programma console [RISOLTO]

[nomorelogic]

che versione di fpc/lazarus stai usando?

mi sa tanto che bisogna chiedere aiuto nel forum ufficiale, sembra un bug

[ottavio8]

Ciao,
utilizzo la versione 1.6
versione FPC 3.0.0
Revisione SVN: 51630
x86_64-win64-win32/win64
In breve l'ultima versione presente sul sito ufficiale.

[nomorelogic]

probabilmente è un bug e con un po' di fortuna lo hanno già corretto nella trunk
dovresti postare il programma e l'errore sul forum ufficiale

[ottavio8]

Ciao,
sono riuscito a stampare tramite Printer da un programma console.
Come pacchetti ho messo Printer4Lazarus e LCL.
L'errore era dovuto alla mancanza nell'uses di Interfaces.
Ringrazio tutti per i consigli e le dritte in particolare @supercim per l'esempio di codice, da questo esempio sono riuscito a capire cosa mancava nell'applicazione console.
Sotto c'è il codice.
In allegato tutto il progetto.

Codice: [Seleziona]

program consolePrint;
       {$mode objfpc}{$H+}
uses
  Classes, SysUtils,  Printers, Interfaces, PrintersDlgs;
const
  LEFTMARGIN = 100;
  HEADLINE = 'I printed my first text on ';

var
  YPos, LineHeight, VerticalMargin: Integer;
  SuccessString: String;

begin

  SuccessString:=Printer.Printers.Strings[0];
  writeln(SuccessString);
  with Printer do
  try
    BeginDoc;
    Canvas.Font.Name:='Courier New';
    Canvas.Font.Size:=12;
    LineHeight:=Round(1.2 + Abs(Canvas.TextHeight('I')));
    VerticalMargin:=4*LineHeight;
    YPos:=VerticalMargin;
    SuccessString:=HEADLINE + DateTimeToStr(Now);
    Canvas.TextOut(LEFTMARGIN, YPos,SuccessString);
  finally
    EndDoc
  end;
end.  

[supercim]

Grazie! Sono stato indaffarato e non ho avuto tempo di capire perchè dava errore, son contento che hai risolto!

[ottavio8]

Grazie a te per l'aiuto.
Io da principiante di Lazarus Pascal non sapevo dove mettere mano.
Ciao