Discussion :

[colorid]

Bonjour

Avec un programmme console qui commence par :

Code :

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

1
2
3
4
5
6
7
8
program FaisQuelquechose;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
uses
  Windows,
  SysUtils...........

Qui charge une image bitmap tel que :

Code :

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

inputBitmap.LoadFromFile('input.bmp');

puis travaille sur l'image pour sauvegarder le résultat de ce travail par

Code :

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

1
2
    outputBitmap := TransformeImage(inputBitmap);
    outputBitmap.SaveToFile('output.bmp');

Je voudrais le transformer en une application VCL dans la quelle les images input.bmp et output.bmp s'affichent dans des Timage en utilisant la fonction existante dans l'appli console TransformeImage()

Quelqu'un voit-il comment procéder ? Un exemple source serait le bienvenu

[ShaiLeTroll]

Mets la fonction TransformeImage dans une unité propre, que tu pourras partager entre deux projets

Créer un nouveau projet VCL, tu auras une TForm1, là je te laisse jouer avec les TImage
Ajoute l'unité de TransformeImage à ton projet
Ajoute là dans les uses

Ensuite, tu n'as plus qu'à lui passer en paramètre de TImage.Picture.Bitmap !

Parfois, ColorID, tu poses de drôle de question, tu devrais le savoir tout ça depuis le temps !

[colorid]

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
function kbhit(): Boolean;
var
  k: DWORD;
  q: TInputRecord;
begin
  Result := false;
  k := 0;
  PeekConsoleInput(GetStdHandle(STD_INPUT_HANDLE), q, 1, k);
  if k > 0 then
  begin
    if (q.EventType = 1) and (q.Event.KeyEvent.bKeyDown) then
    begin
      Result := true;
    end;
    ReadConsoleInput(GetStdHandle(STD_INPUT_HANDLE), q, 1, k);
  end
end;

Les fonctions PeekConsoleInput et ReadConsoleInput semblent spécifiques des appli console quels sont leur équivalent sur une fiche VCL

[Nono40]

Oublie le fonctionnement en tâche permanente et le test des touches comme tu le cites.

Avec Delphi il faut gérer des évènements clavier sur les composants qui t'intéressent (OnKeyPress, OnKeyDown, etc)

[colorid]

Par quoi remplacer sous delphi dans une appli VCL :
1) TInputRecord
2) PeekConsoleInput(GetStdHandle(STD_INPUT_HANDLE), q, 1, k);
3) ReadConsoleInput(GetStdHandle(STD_INPUT_HANDLE), q, 1, k);

[Paul TOTH]

tu as mal compris la réponse

une appli console possède ... une console, soit un terminal texte et un clavier

une appli GUI ne possède pas de console, et la gestion du clavier se fait par messages et donc évènements.

Si tu veux pouvoir interrompre un traitement, tu peux le faire en plaçant celui dans un Thread et en affichant un bouton Annuler, comme ici

[colorid]

Ok tout baigne