Conflit d'unités ?

**ptitjoz** · 04/05/2018, 22h20

Bonjour,

suite à ce billet https://www.developpez.net/forums/d1...ne-sous-linux/, si je rajoute l'unité CRT mon affichage est complètement décalé...

Code :

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

Classes, SysUtils, Process,crt;

résultat

Code :

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

1
2
3
4
5
6
7
8
9
10
Nom    Préno  Date Nais                               
                                                      -----  -----  ----------------------------------------
                            PARK   Marga  1947-09-19                              
  EDWAR  Nancy  1958-12-08                              
                                                        ADAMS  Andre  1962-02-18                              
                              JOHNS  Steve  1965-03-03                              
    CALLA  Laura  1968-01-09                              
                                                          KING   Rober  1970-05-29                              
                                MITCH  Micha  1973-07-01                              
      PEACO  Jane   1973-08-29

comment résoudre ce problème svp ?

Merci.

**Jipété** · 04/05/2018, 23h11

Salut,

De ce que tu dis, on dirait que l'ajout de l'unité CRT te met l'affichage en vrac, sous-entendu sans cet ajout l'affichage serait bon, alors pourquoi la rajouter ?

**ptitjoz** · 05/05/2018, 10h14

Bonjour et mes excuses pour la non-clarté de mes explications... (merci pour les remarques)

Oui, si je rajoute Crt, ça met l'affichage en "vrac" sinon ç'est correct

Pourquoi est-ce que j'utilise Crt ? simplement car c'est un programme console que je voudrais faire utiliser des instructions comme "clrscr" ou "gotoxy"

Voici le code complet pour éclaircir mes propos.

Bien cordialement

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
program testbdd;
//uses Classes, SysUtils, Process ;
uses Classes, SysUtils, Process , crt;
var   AProcess: TProcess;
var codsql:string;
 
begin
	writeln('Affichage du contenu d''une table');
	sleep (3000);
	clrscr;
	codsql:='SELECT UPPER(Lastname) AS ''Nom'' , FirstName AS ''Prénom'' , SUBSTR(BirthDate,1,10) AS ''Date Nais'' FROM employees';
	codsql:=codsql+' ORDER BY BirthDate';
 
	AProcess := TProcess.Create(nil);
	AProcess.Executable := 'sqlite3' ;
	AProcess.Parameters.Add('chinook.db');
	AProcess.Parameters.Add('.headers on');
	AProcess.Parameters.Add('.mode column');
	AProcess.Parameters.Add('.width 5 5 40');
	AProcess.Parameters.Add(codsql);
	AProcess.Options := AProcess.Options + [poWaitOnExit];
	AProcess.Execute;
	AProcess.Free;   
 
	writeln('ça ne marche pas bien avec crt...');
	readln;
end.

Nb pour info je suis sous Lubuntu et le terminal est Lxterminal

**Jipété** · 05/05/2018, 11h11

Envoyé par ptitjoz

Oui, si je rajoute Crt, ça met l'affichage en "vrac" sinon c'est correct

C'est correct où ?

Envoyé par ptitjoz

Pourquoi est-ce que j'utilise Crt ? simplement car c'est un programme console que je voudrais faire utiliser des instructions comme "clrscr" ou "gotoxy"

Nb pour info je suis sous Lubuntu et le terminal est Lxterminal

C'est quoi pour toi la différence entre un programme console et une sortie de programme dans Lxterminal ? Un truc m'échappe, là.

En plus, je ne connais pas du tout FreePascal quand il travaille en stand-alone : pour moi c'est une sous-couche invisible de Lazarus.
Je ne vais pas pouvoir aider beaucoup...

**Roland Chastain** · 05/05/2018, 11h45

Bonjour ! Le programme appelle une autre application qui va afficher du texte : cette configuration n'est pas compatible, je pense, avec l'usage de l'unité Crt. Si vous voulez utiliser l'unité Crt, pour faire une "jolie" application console, vous devez récupérer en mémoire la sortie de 'application appelée, en extraire ce qui vous intéresse et le faire afficher par votre programme. Bref, un vrai casse-tête.

**ptitjoz** · 05/05/2018, 12h37

Envoyé par Jipété

C'est correct où ?

C'est quoi pour toi la différence entre un programme console et une sortie de programme dans Lxterminal ? Un truc m'échappe, là.

En plus, je ne connais pas du tout FreePascal quand il travaille en stand-alone : pour moi c'est une sous-couche invisible de Lazarus.
Je ne vais pas pouvoir aider beaucoup...

Bonjour
c'est "correct" là : https://www.developpez.net/forums/d1.../#post10185550

Lxterminal est le nom du terminal par défaut de Lubuntu . ce n'était qu'une information.

Merci pour ton aide.

Cordialement.

Envoyé par Roland Chastain

Bonjour ! Le programme appelle une autre application qui va afficher du texte : cette configuration n'est pas compatible, je pense, avec l'usage de l'unité Crt. Si vous voulez utiliser l'unité Crt, pour faire une "jolie" application console, vous devez récupérer en mémoire la sortie de 'application appelée, en extraire ce qui vous intéresse et le faire afficher par votre programme. Bref, un vrai casse-tête.

Bonjour,

Merci de ta réponse. Oui je crois que je vais abandonner cette piste...
Merci de t'être intéressé à mon problème

Bien à toi

**BeanzMaster** · 05/05/2018, 22h53

Oups je me suis trompé de sujet bref

Salut un petit tour par les options de ton projet devrais te permettre de résoudre ton problème.

Essayes de suivre les instructions d'écrites ici : http://wiki.freepascal.org/Console_M...g_with_Lazarus

Sinon poste également ta question sur le forum Anglais, Thaddy ou autres seront plus à même de te répondre sur ce type de problème.

J'ai trouvé quelques sujets mais rien de bien concluant :

http://forum.lazarus.freepascal.org/...html#msg268032
http://forum.lazarus.freepascal.org/...html#msg273873
http://forum.lazarus.freepascal.org/....html#msg51569

a+

EDIT: Peut-être en utilisant'unité WinCRT à la place : https://www.developpez.net/forums/d8...oi-exactement/ mais pas sûr qu'il y ai toutes les fonctions de CRT

--------------------------

Pour le coup j'ai testé chez moi

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
57
58
59
Program project1;
 
{$mode objfpc}{$H+}
{$apptype console}
 
Uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  Cthreads,
  {$ENDIF}{$ENDIF}
  Classes, sysUtils, Process, crt
 
 
  { you can add units after this };
 
var
  login : string;
  AProcess: TProcess;
  codsql:string;
 
Begin
  clrscr;
 textbackground(red);
  textcolor(white);
  writeln('Enter You''re name :');
  textbackground(black);
  textcolor(white);
  gotoxy(20,1);
  readln(login);
  textbackground(blue);
  textcolor(yellow);
  writeln;
  writeln('Welcome ' + Login);
  Writeln;
  textbackground(Green);
  textcolor(LightCyan);
  textbackground(Black);
  textcolor(White);
  Writeln('Tapez "entrée" pour continuer....');
  ReadLn;
  writeln('Affichage du contenu d''une table');
  	sleep (2000);
  //	clrscr;
  	codsql:='SELECT UPPER(Lastname) AS ''Nom'' , FirstName AS ''Prénom'' , SUBSTR(BirthDate,1,10) AS ''Date Nais'' FROM employees';
  	codsql:=codsql+' ORDER BY BirthDate';
 
  	AProcess := TProcess.Create(nil);
  	AProcess.Executable := 'sqlite3' ;
  	AProcess.Parameters.Add('chinook.db');
  	AProcess.Parameters.Add('.headers on');
  	AProcess.Parameters.Add('.mode column');
  	AProcess.Parameters.Add('.width 5 5 40');
  	AProcess.Parameters.Add(codsql);
  	AProcess.Options := AProcess.Options + [poWaitOnExit];
  	AProcess.Execute;
  	AProcess.Free;
    Writeln;
  	writeln('ça ne marche pas bien avec crt...');
  	readln;  
End.

Résultat ça l'air de fonctionner sauf pour l'utf8 :

Nom : 2018-05-05_224844.jpg
Affichages : 614
Taille : 44,1 Ko

**BeanzMaster** · 05/05/2018, 23h11

Je suis déja de retour pour prendre en charge l'utf8 sous windows :

1) Rajouter le paquet LazUtils dans les dépendances du projet et bizarrement il faut passer par une variable externe ici UTF8TestString ou utiliser la fonction UTF8ToConsole

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Program project1;
 
{$mode objfpc}{$H+}
{$apptype console}
 
Uses
  {$IFDEF UNIX}
    {$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}
  {Widestring manager needed for widestring support}
  //cwstring,
  {$ENDIF}
  {$IFDEF WINDOWS}
  Windows, {for setconsoleoutputcp}
  {$ENDIF}
  Classes, sysUtils, Process, crt, LazUTF8
  { you can add units after this };
 
var
  login : string;
  AProcess: TProcess;
  codsql:string;
  UTF8TestString: string;
Begin
  {$IFDEF WINDOWS}
  SetConsoleOutputCP(CP_UTF8);
  {$ENDIF}
  clrscr;
 textbackground(red);
  textcolor(white);
  writeln('Enter You''re name :');
  textbackground(black);
  textcolor(white);
  gotoxy(20,1);
  readln(login);
  textbackground(blue);
  textcolor(yellow);
  writeln;
  writeln('Welcome ' + Login);
  Writeln;
  textbackground(Green);
  textcolor(LightCyan);
  textbackground(Black);
  textcolor(White);
  //Writeln(UTF8ToConsole('Tapez "entrée" pour continuer....'));
  UTF8TestString:='Tapez "entrée" pour continuer....';
  WriteLn(UTF8TestString);
  //Writeln('Tapez "entrée" pour continuer....'); // Affichage incorrecte en direct  
  ReadLn;
  writeln('Affichage du contenu d''une table');
  	sleep (2000);
  //	clrscr;
  	codsql:='SELECT UPPER(Lastname) AS ''Nom'' , FirstName AS ''Prénom'' , SUBSTR(BirthDate,1,10) AS ''Date Nais'' FROM employees';
  	codsql:=codsql+' ORDER BY BirthDate';
 
  	AProcess := TProcess.Create(nil);
  	AProcess.Executable := 'sqlite3' ;
  	AProcess.Parameters.Add('chinook.db');
  	AProcess.Parameters.Add('.headers on');
  	AProcess.Parameters.Add('.mode column');
  	AProcess.Parameters.Add('.width 5 5 40');
  	AProcess.Parameters.Add(codsql);
  	AProcess.Options := AProcess.Options + [poWaitOnExit];
  	AProcess.Execute;
  	AProcess.Free;
    Writeln;
    UTF8TestString:='ça ne marche pas bien avec crt...';
    writeln(UTF8TestString);
  	readln;
End.

cf http://wiki.freepascal.org/Unicode_Support_in_Lazarus

**BeanzMaster** · 06/05/2018, 08h53

Salut hier soir je n'avais pas testé sous Linux. résultat idem que toi l'affichage est mauvais. Mais il semblerai que ce soit SQLite3 qui casse quelque chose. En effet l'unité CRT modifie le mode Video et SQLite3 semble utiliser son mode. Ou bien, on dirait que sous Linux c'est le retour chariot qui ne soit pas pris en compte correctement comparé à Windows ou l'affichage est "correcte". Par contre sous windows si tu change la couleur de fond de l'ecran de terminal, SQLite lui écrit les textes normalmement (Blanc sur fond noir).

A mon avis la meilleur solution pour contourner ce problème est d'effectuer une sortie des données de SQLite vers un fichier, ouvrir ce fichier et afficher le résultat

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
Program project1;
 
{$mode objfpc}{$H+}
{$ifdef windows}
  {$apptype console}
{$endif}
 
Uses
  {$IFDEF UNIX}
    {$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}
  {Widestring manager needed for widestring support}
  cwstring,
  {$ENDIF}
  {$IFDEF WINDOWS}
  Windows, {for setconsoleoutputcp}
  {$ENDIF}
  Classes, sysUtils, Process,  LazUTF8, crt
  { you can add units after this };
 
var
  login : string;
  AProcess: TProcess;
  codsql:string;
  UTF8TestString, line: string;
  f : text;
{$R *.res}
 
Begin
  {$IFDEF WINDOWS}
  SetConsoleOutputCP(CP_UTF8);
 
  {$ENDIF}
  highvideo;
  clrscr;
  textbackground(red);
  textcolor(white);
  writeln('Enter You''re name :');
  textbackground(black);
  textcolor(white);
  gotoxy(20,1);
  readln(login);
  textbackground(blue);
  textcolor(yellow);
  writeln;
  writeln('Welcome ' + Login);
  Writeln;
  textbackground(Green);
  textcolor(LightCyan);
  textbackground(Black);
  textcolor(White);
//  Writeln(UTF8ToConsole('Tapez "entrée" pour continuer....'));
  UTF8TestString:='Tapez "entrée" pour continuer....';
  WriteLn(UTF8TestString);
  //Writeln('Tapez "entrée" pour continuer....'); // Affichage incorrecte en direct
  ReadLn;
  writeln('Affichage du contenu d''une table');
	sleep (2000);
  	codsql:='SELECT UPPER(Lastname) AS ''Nom'' , FirstName AS ''Prénom'' , SUBSTR(BirthDate,1,10) AS ''Date Nais'' FROM employees  ORDER BY BirthDate';
  	codsql:=codsql+' ORDER BY BirthDate';
 
  	AProcess := TProcess.Create(nil);
  	AProcess.Executable := 'sqlite3' ;
  	AProcess.Parameters.Add('chinook.db');
  	AProcess.Parameters.Add('.headers on');
  	AProcess.Parameters.Add('.mode column');
  	AProcess.Parameters.Add('.width 5 5 40');
        AProcess.parameters.Add('.output outsql.dat');
        AProcess.Parameters.Add('.read requete.sql');
  	//AProcess.Parameters.Add(codsql);
  	AProcess.Options := AProcess.Options + [poWaitOnExit];
  	AProcess.Execute;
  	AProcess.Free;
    Writeln;
    assignfile(f,'outsql.dat');
    reset(f);
    while not eof(f) do
    begin
      readln(f,line);
      writeln(line);
    end;
    close(f);
    Writeln;
    UTF8TestString:='ça ne marche pas bien avec crt...';
  	writeln(UTF8TestString);
  	readln;
End.

Nom : Screenshot_20180506_085105.jpeg
Affichages : 561
Taille : 23,2 Ko

l semble qu'utiliser 2 applications console au sein d'un même processus ne soit pas bon.
Il serait bien de pouvoir vérifier ce comportement avec un petit test en C identique juste pour voir.

A+

**ptitjoz** · 06/05/2018, 22h03

Envoyé par BeanzMaster

Oups je me suis trompé de sujet bref

bonjour et merci de t’intéresser à ce problème.
J'ai repris ton code tel quel.
voila le résultat
bizarre non ?
qu'en penser ?
Bien cordialement
Nom : bizarre.jpg
Affichages : 563
Taille : 36,9 Ko

Nom : bizarre.jpg
Affichages : 563
Taille : 36,9 Ko

**BeanzMaster** · 06/05/2018, 23h00

As tu vu mon dernier message également ?

**ptitjoz** · 07/05/2018, 08h09

Bonjour

Envoyé par BeanzMaster

As tu vu mon dernier message également ?

en mettant wincrt j'ai ce message :

Code :

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

1
2
3
4
Compiling /home/joz/developpement/Fpc/bdd02/test3.pas
test3.pas(4,2) Warning: APPTYPE is not supported by the target OS
test3.pas(13,36) Fatal: Can't find unit wincrt used by project1
Fatal: Compilation aborted

idem si je mets LazUTF8

Code :

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

test4.pas(17,36) Fatal: Can't find unit LazUTF8 used by project1

il y a peut-être un path à préciser pour les units de Lazarus (qui est installé sur mon pc).

pour info je compile sans passer par Lazarus, directement en console style fpc test4.pas

Bien à toi

**BeanzMaster** · 07/05/2018, 10h01

Salut pas grave pour lazutf8 tu peux le virer sinon lis bien mon dernier message et regardes la copie d ecran sous linux

**ptitjoz** · 07/05/2018, 13h47

bonjour

ton dernier message remonte dans la pile

sinon ça m'affiche ce message là

Code :

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

Error: Can't open resource file "/home/joz/developpement/Fpc/bdd02/test5.res"

pour info j'ai fait un programme en Freebasic :
https://www.developpez.net/forums/d1...-base-sqlite3/

Cordialement

**BeanzMaster** · 07/05/2018, 16h52

Salut mon message : https://www.developpez.net/forums/d1.../#post10217025

Pour le probleme du fichier Res nettoies ton dossier et recompiles

EDIT : dans ton programme en freebasic tu retournes les resultats dans un fichier comme je l'ai fais dans mon message ci-dessus

**ptitjoz** · 07/05/2018, 19h12

en fait il n'a pas l'air de trouver le fameux fichier "RES"
où est-il créé ?
et le nettoyage n'apporte de rien de plus
et quand je compile :

Code :

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

Error: Can't open resource file "/home/joz/developpement/Fpc/bdd02/test5/test5.res"

Conflit d'unités ?

Free Pascal

Discussions similaires

Partager

Partager