Couleur application console Delphi6

Version imprimable

15/03/2012, 19h02
Gunter_D

Couleur application console Delphi6

Bonjour à tous !

Je n'arrive pas à trouver un tuto claire et simple qui explique comment mettre des caractères en couleur dans Delphi 6 en application console.

Si quelqu’un en connait un ou à la gentillesse de m'expliquer sa serais génial !

Merci d'avance

voici un extrait de mon mini serveur HTTP en mode console.

Code:

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
 
var
  console: THandle;
 
Procedure Log(color:byte; s:string);
 const
  r:TSmallRect=(Left:0; Top:1; Right:79; Bottom:23);
  xy:TCoord=(x:0;y:0);
  wxy:TCoord=(x:0;y:23);
 var
  attr:TCharInfo;
  size:cardinal;
 begin
  attr.AsciiChar:=' ';
  attr.Attributes:=FOREGROUND_RED;
//  EnterCriticalSection(LockLog);
 // try
   ScrollConsoleScreenBuffer(Console,r,nil,xy,attr);
   FillConsoleOutputAttribute(Console,color,80,wxy,size);
   WriteConsoleOutputCharacter(Console,pchar(s),length(s),wxy,size);
//  finally
//   LeaveCriticalSection(LockLog);
//  end;
 end;
 
var
  i : Integer;
begin
  Console:=GetStdHandle(STD_OUTPUT_HANDLE);
  for i := 1 to 15 do
   Log(i,'Couleur ' + IntToStr(i));
end.

le Scroll est utilisé ici pour faire défiler la console vers le haut et écrire toujours sur l'avant dernière ligne...la dernière étant utilisée pour saisir des données.

20/03/2012, 11h25
Gunter_D

Désolé j'ai oublié de préciser, je code en Pascal. Merci Paul, mais je ne comprend pas ta réponse, je ne code que depuis 6 mois...
20/03/2012, 11h55
ShaiLeTroll

Lorsque dit "je code en Pascal" , tu parles d'un Turbo Pascal ou de Free Pascal avec Lazarus ?

le code fourni par Paul TOTH c'est du Pascal à la sauce Delphi\Win32, THandle et TSmallRect sont spécifiques à Windows, tout comme
WriteConsoleOutputCharacter ou FillConsoleOutputAttribute

Utilises-tu bien Delphi 6 comme tu l'as mentionné et non un autre environnement Pascal !?
22/03/2012, 17h23
Gunter_D

Je ne comprends pas la réponse de Paul TOTH... Oui, je suis sur delphi 6.

Voici l'exemple de Paul en plus complet :

Code:

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
 
program ex01;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
 
var
  console: THandle;
 
Procedure Log(color:byte; s:string);
 const
  r:TSmallRect=(Left:0; Top:1; Right:79; Bottom:23);
  xy:TCoord=(x:0;y:0);
  wxy:TCoord=(x:0;y:23);
 var
  attr:TCharInfo;
  size:cardinal;
 begin
  attr.AsciiChar:=' ';
  attr.Attributes:=FOREGROUND_RED;
   ScrollConsoleScreenBuffer(Console,r,nil,xy,attr);
   FillConsoleOutputAttribute(Console,color,80,wxy,size);
   WriteConsoleOutputCharacter(Console,pchar(s),length(s),wxy,size);
 end;
 
var
  i : Integer;
begin
  Console:=GetStdHandle(STD_OUTPUT_HANDLE);
  for i := 1 to 15 do
   Log(i,'Couleur ' + IntToStr(i));
  readln ;
end.

03/04/2012, 17h06
Gunter_D

Merci, mais étant débutant je ne comprend pas votre code. Est ce que quelqu’un pourrait m’expliquer ????
03/04/2012, 17h32
ShaiLeTroll

le code de ALWEBER, est le contenu d'un Fichier DPR, le code se suffit à lui-même

As-tu lu lien vers la MSDN de WriteConsoleOutputCharacter ou FillConsoleOutputAttribute ?

Consulte les différentes documentations comme celle de GetStdHandle puis reviens avec une question précise !
On ne peut pas t'expliquer chacune des 30 lignes de code fourni !
Tu peux commencer aussi par Guide Pascal et Delphi pour les éléments de base du langage Delphi