Imprimer du texte

**glegat** · 19/04/2015, 19h23

Je cherche maintenant à imprimer directement à partir de mon programme une liste de coup pour faciliter mes vérifications de coups valides, mais j'ai cru comprendre qu'on ne pouvait pas imprimer sur une imprimante USB en Pascal, les instructions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
USE crt;
 
Writeln(lst, 'Imprime moi...');

ne marche pas, y a t-il une autre solution à part celle de créer un fichier texte et de l'imprimer dans le bloc note ?

Merci

**gvasseur58** · 20/04/2015, 13h21

Bonjour,

Envoyé par glegat

j'ai cru comprendre qu'on ne pouvait pas imprimer sur une imprimante USB en Pascal

Imprimante USB ou non, cela ne change rien à l'affaire.

Voici par exemple comment imprimer depuis Lazarus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
procedure TMainForm.FilePrintExecute(Sender: TObject);
// *** impression ***
var
  LPrinter: TPrinter;
  Li, Lline: Integer;
  LV: Integer;
begin
  LPrinter := Printer;
  LPrinter.Title := EditorForm.Caption; // titre de la fiche (ici EditorForm) comme titre du document - facultatif
  try
    LPrinter.BeginDoc; // on imprime...
    LPrinter.Canvas.Font.Name := 'Arial'; // impression dans le canevas
    LPrinter.Canvas.Font.Size := 12;
    LPrinter.Canvas.Font.Color := clBlack;
    LV := 4 * Round(1.2 * Abs(LPrinter.Canvas.TextHeight('I'))); // taille verticale d'une lettre "haute"
    LLine := 0; // compteur de ligne en cours
    for Li := 0 to (EditorForm.SynEditEditor.Lines.Count - 1) do // lignes à imprimer extraites d'un composant SynEdit (par exemple)
    begin
      Inc(LLine);
      LPrinter.Canvas.TextOut(100 , LV + 120 * (LLine - 1),  // écriture à 100 pixels du bord et en tenant compte de la hauteur du texte
        EditorForm.SynEditEditor.Lines[Li]);
      if (Li mod 50) = 0 then // saut de page toutes les cinquante lignes
      begin
        LPrinter.NewPage; // saut de page
        LLine := 0;
      end;
    end;
  finally
    LPrinter.EndDoc; // fin d'impression
  end;
end;

La classe TPrinter figure dans l'unité Printers.
Mais je ne sais pas ce que vous utilisez comme Pascal...

Gilles

**glegat** · 20/04/2015, 15h16

La classe TPrinter figure dans l'unité Printers.
Mais je ne sais pas ce que vous utilisez comme Pascal...

Merci pour votre code. Je me suis empressé de l'essayer, mais j'utilise Free Pascal (compilateur version 2.6.4) et l'unité printers que vous utilisez dans votre code n'est pas présente dans free Pascal. Y a t-il une autre solution ?

Gérard

**gvasseur58** · 20/04/2015, 21h45

Envoyé par glegat

Merci pour votre code. Je me suis empressé de l'essayer, mais j'utilise Free Pascal (compilateur version 2.6.4) et l'unité printers que vous utilisez dans votre code n'est pas présente dans free Pascal. Y a t-il une autre solution ?

Gérard

Dans ce cas, il faut utiliser l'unité printer de Free Pascal qui fournit les fonctionnalités de base d'une impression (texte uniquement) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
program testprn;
 
uses printer; // existe pour Free Pascal
 
var i : integer;
    f : text;
 
begin
  writeln ('Test de l''unité PRINTER');
  writeln ('On imprime...');
 
// impression "classique"
  for i:=1 to 80 do writeln (lst,'Voici la ligne : ',i,'.'#13);
  close (lst);
  writeln ('Impression terminée.');
 
  {$ifdef Unix}
  writeln ('Impression dans un "pipe"...');
  assignlst (f,'|/usr/bin/lpr -m');
  rewrite (f);
  for i:=1 to 80 do writeln (f,'Voici la ligne : ',i,'.'#13);
  close (f);
  writeln ('Impression terminée.')
  {$endif}
end.

C'est rustique, mais ça devrait fonctionner...

**glegat** · 20/04/2015, 23h03

Encore merci, effectivement l'unite printer existe dans Free Pascal, la compilation est acceptée, mais à l'exécution j'obtiens un runtime error 103 et rien ne s'imprime.

Je ne suis pas un spécialiste (je me remets depuis quelques jours à la programmation après une interruption de plusieurs années) mais je croyais que Free Pascal était encore utilisé aujourd'hui par des développeurs, il doit bien y avoir un moyen de lancer une impression !

Je vais continuer mes recherches, merci de votre aide.

Gérard.

**Roland Chastain** · 20/04/2015, 23h50

Bonsoir ! J'ai trouvé ce code. Je ne peux pas le tester, parce que je n'ai pas d'imprimante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
uses
  ShellAPI, Windows;
 
begin
  ShellExecute(0, 'print', 'C:\MonDossier\MonDocument.odt', nil, nil, SW_HIDE) ;
end.

**gvasseur58** · 21/04/2015, 01h02

Envoyé par glegat

je croyais que Free Pascal était encore utilisé aujourd'hui par des développeurs

Bien sûr ! Lazarus n'est qu'une surcouche de Free Pascal... Par conséquent, Lazarus utilise le compilateur Free Pascal. Il présente simplement l'avantage d'offrir une synthèse des éléments que le programmeur Free Pascal devra rassembler lui-même (d'où la difficulté à réaliser des tâches aussi simples qu'imprimer un texte). En contrepartie, il impose (en partie) un cadre assez contraignant avec le concepteur de fiches du style Delphi.

Sinon, l'erreur 103 indique que le fichier n'est pas ouvert. Soit il s'agit du fichier lu pour être imprimé, soit on tente d'écrire sur l'imprimante sans que le "fichier" d'impression ne soit ouvert... Je vais essayer pour voir...

Bon courage !

**glegat** · 21/04/2015, 10h33

Merci gvasseur58 et merci Roland Chastaing, je suis épaté d'avoir des réponses si rapides sur ce forum par des programmeurs aguerris en faveur d'un débutant ancien programmeur amateur.

Mais malheureusement toutes ces solutions ne marchent pas, celui ci-dessous très séduisant pas sa concision ne fait qu'afficher brièvement la console avec rien dedans, pourtant par une erreur n'est signalée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
uses
  ShellAPI, Windows;
 
begin
  ShellExecute(0, 'print', 'C:\MonDossier\MonDocument.odt', nil, nil, SW_HIDE) ;
end.

Il me vient l'idée d'ouvrir un concours fort bien doté pour quiconque réussira à écrire en free pascal une procédure équivalente à l'instruction basic LPRINT"bonjour" que l'on utilisait sur l'Oric en 1982 (16 ko de mémoire Ram et 32 ko de Rom si je ne me trompe) !!!

C'est un bon sujet je trouve:

**Roland Chastain** · 21/04/2015, 10h44

Envoyé par glegat

Mais malheureusement toutes ces solutions ne marchent pas, celui ci-dessous très séduisant pas sa concision ne fait qu'afficher brièvement la console avec rien dedans, pourtant pas une erreur n'est signalée.

Je vous propose une version avec message d'erreur, en espérant que cela puisse vous aider.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
program ShellExecute1;
 
{$APPTYPE CONSOLE}
{$MODE DELPHI}
 
uses
  ShellAPI, Windows;
 
function ShellExecuteErrorMessage(const err: integer): string;
begin
  case err of
    0:
      result := 'The operating system is out of memory or resources.';
    ERROR_FILE_NOT_FOUND:
      result := 'The specified file was not found.';
    ERROR_PATH_NOT_FOUND:
      result := 'The specified path was not found.';
    ERROR_BAD_FORMAT:
      result := 'The .exe file is invalid (non-Win32 .exe or error in .exe image).';
    SE_ERR_ACCESSDENIED:
      result := 'The operating system denied access to the specified file.';
    SE_ERR_ASSOCINCOMPLETE:
      result := 'The file name association is incomplete or invalid.';
    SE_ERR_DDEBUSY:
      result := 'The DDE transaction could not be completed because other DDE transactions were being processed.';
    SE_ERR_DDEFAIL:
      result := 'The DDE transaction failed.';
    SE_ERR_DDETIMEOUT:
      result := 'The DDE transaction could not be completed because the request timed out.';
    SE_ERR_DLLNOTFOUND:
      result := 'The specified DLL was not found.';
   {SE_ERR_FNF:
      result := 'The specified file was not found.';}
    SE_ERR_NOASSOC:
      result := 'There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable.';
    SE_ERR_OOM:
      result := 'There was not enough memory to complete the operation.';
   {SE_ERR_PNF:
      result := 'The specified path was not found.';}
    SE_ERR_SHARE:
      result := 'A sharing violation occurred.';
  else
    Str(err, result);
  end;
end;
 
var
  i: integer;
 
begin
  i := ShellExecute(0, 'print', 'C:\document.odt', nil, nil, SW_HIDE) ;
  WriteLn(ShellExecuteErrorMessage(i));
  Write('Appuyez sur la touche Entrée... ');
  ReadLn;
end.

Envoyé par glegat

Il me vient l'idée d'ouvrir un concours fort bien doté pour quiconque réussira à écrire en free pascal une procédure équivalente à l'instruction basic LPRINT"bonjour" que l'on utilisait sur l'Oric en 1982 (16 ko de mémoire Ram et 32 ko de Rom si je ne me trompe) !!!

Bonne idée !

**glegat** · 21/04/2015, 12h05

Je vous propose une version avec message d'erreur, en espérant que cela puisse vous aider.

Vous avez gagné le concours !

En fait votre premier programme marchait déjà mais je m'étais trompé dans l'emplacement du fichier, du coup votre deuxième programme m'a permis de m'apperçevoir du problème, c'est top.

Donc maintenant on sait imprimer un document extérieur au programme, est-il possible d'adapter cette routine pour imprimer directement des données venant du programme car dans la première solution pour imprimer mes variables de tests je dois d'abord créer un fichier texte et le sauvegarder sur le disque, alors que si on a une solution directe c'est plus simple.

Mais franchement ne cherchez pas (même si apparemment vos solutions viennent rapidement et que vous codez à la vitesse de l'éclair) je ne veux pas abuser de votre temps.

Sachez toutefois qu'avec vos programmes d'échecs et votre sujet sur la programmation des échecs vous m'avez redonné la motivation pour essayé d'écrire un programme d'échecs et qu'aujourd'hui je ne suis pas mécontent de l'avancement car mon générateur de coups est terminé et mes premiers test me confirment que tout est ok. Il n'y a que la prise en passant que je n'ai pas traitée. je verrais cela un peu plus tard car je suis pressé de commencer une procédure d'évaluation j'ai quelques idées la dessus dont je vous parlerais sans doute (j'ai joué pendant des années dans un cercle et fait un peu de compétition). Je suis sur que mon code n'est pas optimisé car en fait j'apprends le pascal en programmant un jeu d'échecs, c'est un peu prématuré je pense, mais bon en même temps personne n'attend de moi un résultat quelconque.Vos programmes me donnent des idées mais en fait je suis obligé de tout réécrire car dans le détail je ne comprends quasiment rien.

Mon objectif dans un premier temps est de faire un programme avec une profondeur d'analyse sur deux demi-coups seulement et de le rendre le plus intelligent possible à ce niveau en testant certains heuristiques que j'ai imaginé, ensuite en fonction du résultat je poursuivrais.

Gérard

**Roland Chastain** · 21/04/2015, 13h24

Content que la programme fonctionne. Pour imprimer directement, non, je ne sais pas le faire. Pour cela je pense qu'il faudrait explorer la solution proposée par gvasseur58.

Une suggestion à propos de votre projet d'un programme d'échecs : vous pourriez, si vous le souhaitez, ouvrir une discussion dans laquelle vous présenteriez vos avancées et poseriez vos questions. Bonne continuation !

**glegat** · 21/04/2015, 15h33

Une suggestion à propos de votre projet d'un programme d'échecs : vous pourriez, si vous le souhaitez, ouvrir une discussion dans laquelle vous présenteriez vos avancées et poseriez vos questions. Bonne continuation !

Ok Excellente idée, je vais faire ça.

Merci,

Gérard

**Alcatîz** · 21/04/2015, 20h22

Bonjour,

Envoyé par glegat

est-il possible d'adapter cette routine pour imprimer directement des données venant du programme car dans la première solution pour imprimer mes variables de tests je dois d'abord créer un fichier texte et le sauvegarder sur le disque, alors que si on a une solution directe c'est plus simple.

Si le but est simplement de visualiser l'état de variables, il y a d'autres manières plus simples de le faire qu'un flux vers une imprimante : une boîte à messages, une fenêtre séparée, etc., ou encore utiliser le débogueur.

**glegat** · 21/04/2015, 21h57

Si le but est simplement de visualiser l'état de variables, il y a d'autres manières plus simples de le faire qu'un flux vers une imprimante : une boîte à messages, une fenêtre séparée, etc., ou encore utiliser le débogueur.

Ce n'est pas pour seulement pour surveiller des variables pendant le déroulement du programme, mais tout simplement pour garder une trace papier des différentes listes que je pourrais être amené à générer pour tester et vérifier le bon fonctionnement de mon programme. Un programme d'échecs peut délivrer des tonnes d'informations (liste de coups, valeur de la fonction d'évaluation pour chaque coup, profondeur d'analyse, variantes etc...) et surveiller cela uniquement à l'écran n'est pas l'idéal, une trace papier permet de consulter et de travailler sur les données ailleurs que devant l'écran.

Mais déjà la solution d'imprimer le contenu d'un fichier proposé par Rolland Chastaing est une très bonne chose.

Imprimer du texte

Free Pascal

Discussions similaires

Partager

Partager