Discussion :

[Marc_3]

Bonjour,

J'utilise souvent une console pour afficher ce que j'ai dans la memoire de mes programme pour faire des test en continu.
La console que j'utilise marche avec la commande writeln et est démarrée automatiquement avec le check box dans :
projet/option/linker/EXE and DLL option/Text windows (Traduit comme je peut de l'allemand).

Cette méthode me gène un peu car j'ai toujours cette fenêtre dans les pieds quand je fais quelque chose.
J'aimerai pouvoir démarrer la console avec la fonction chargée de l'affichage seulement au moment opportun.

Juste pour la terminologie, est-ce que l'on parle de console ici ??
Est-ce que cela est possible?

Merci de m'aider

marc_3

[Charly910]

Bonjour,
tu peux aussi écrire dans un Tmemo situé dans une autre fenêtre non modale que tu affiches quand tu veux voir ce qu'il y a dedans (par un raccourci clavier ou par un bouton).

A+
Charly

[Paul TOTH]

Sous Windows les application GUI et CONSOLE sont deux types d'exécutables qui se distinguent par un attribut dans l'entête du fichier (sous Linux ou Mac il n'y a pas de distinction)

sous Delphi c'est {$APPTYPE CONSOLE} qui permet de déclarer que l'application est de type "console".

Mais rien n'empêche une application GUI d'ouvrir une console de debug avec la fonction AllocConsole()

Code :

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

1
2
3
4
5
6
7
8
9
 
uses
  WinAPI.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  AllocConsole();
  WriteLn('Debug mode actif');
end;

c'est même très pratique

accessoirement je fais ça aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
uses
  WinAPI.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF DEBUG_CONSOLE}
  AllocConsole();
{$ELSE}
  AssignFile(Output, ChangeFileExt(Application.exeName, '.LOG'));
  Rewrite(Output);
{ENDIF}
  WriteLn('Debug mode actif');
end;

le code permet d'avoir soit une console à l'écran, soit un fichier LOG.

[guillemouze]

Très intéressant tout ca Paul
Tu peux utiliser aussi GDebug qui est pas mal (dans GExperts). Il te permet d'afficher dans un programme externe des infos envoyées par SendDebug() (fonction fournie aussi par GExperts).

[Marc_3]

Merci de vos aides, la console de débogage ç’a a l'air d’être un sujet vraiment populaire

A par ça Delphi c'est vraiment chouette

marc_3

[Lung]

accessoirement je fais ça aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
uses
  WinAPI.Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF DEBUG_CONSOLE}
  AllocConsole();
{$ELSE}
  AssignFile(Output, ChangeFileExt(Application.exeName, '.LOG'));
  Rewrite(Output);
{ENDIF}
  WriteLn('Debug mode actif');
end;

le code permet d'avoir soit une console à l'écran, soit un fichier LOG.

J'ai testé, et l'anti-virus m'a immédiatement supprimé l'exe généré.
Je ne comprend pas le paramètre Output. C'est une nouveauté des Delphi supérieurs à D2010 ?

Sinon, le principe est intéressant.

[Barbibulle]

J'ai testé, et l'anti-virus m'a immédiatement supprimé l'exe généré.
Je ne comprend pas le paramètre Output. C'est une nouveauté des Delphi supérieurs à D2010 ?

Sinon, le principe est intéressant.

Output existe depuis longtemps j'allais dire depuis les début de Delphi.

C'est la sortir standard de l'application. Output est défini dans system.pas (pour Delphi7) et n'est a mon avis assigné de manière automatique que quand on créer une application de type console (ou qu'on ouvre une console)...

Un write ou writeln demande de manière optionnelle un fichier si on ne lui en donne pas c'est vers la sortie standard que c'est envoyé (le fameux Output)

Ce qui est malin c'est d'assigner soit même le output à un fichier texte. Sachant qu'il n'est pas assigné puisqu'on est dans une application GUI.

Cette affectation permet d'utiliser le writeln('test'); que l'on utilise la console ou pas ...

Sinon pour enrichir le sujet pour debuguer ou suivre, tracer dans un fichier ou un ecran il existe codeSite. Plus besoin de console, le principe est un peu le même mais permet beaucoup plus de chose. Enregistrement dans un fichier log, ou affichage directement dans un écran dédié, (qui peut être distant : remote). Le plus c'est évidemment la présentation, le passage d'objet qu'on va pouvoir inspecter etc...


Bravo

[Paul TOTH]

J'ai testé, et l'anti-virus m'a immédiatement supprimé l'exe généré.
Je ne comprend pas le paramètre Output. C'est une nouveauté des Delphi supérieurs à D2010 ?

Sinon, le principe est intéressant.

les anti-virus sont des boulets

Input et Ouput existent depuis Turbo Pascal