IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

transformer un programme console en appli VCL


Sujet :

Langage Delphi

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Juillet 2003
    Messages
    803
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2003
    Messages : 803
    Par défaut transformer un programme console en appli VCL
    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

  2. #2
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 076
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 14 076
    Par défaut


    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 !
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Juillet 2003
    Messages
    803
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2003
    Messages : 803
    Par défaut Ok mais comment écrire la fonction suivante
    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

  4. #4
    Expert confirmé

    Avatar de Nono40
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2002
    Messages
    8 640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2002
    Messages : 8 640
    Par défaut
    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)
    Delphi :
    La F.A.Q. , 877 réponses à vos questions !
    264 sources à consulter/télécharger !

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Juillet 2003
    Messages
    803
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2003
    Messages : 803
    Par défaut J'ai mal posé ma question
    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);

  6. #6
    Expert éminent
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Par défaut
    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
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  7. #7
    Membre éclairé
    Profil pro
    Inscrit en
    Juillet 2003
    Messages
    803
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2003
    Messages : 803
    Par défaut Ok et merci mille fois
    Ok tout baigne

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [D2006] - Utiliser un composant C# dans une appli VCL.NET
    Par RamDevTeam dans le forum Delphi .NET
    Réponses: 1
    Dernier message: 13/02/2006, 16h07
  2. Transformer un programme java en service windows
    Par daninho dans le forum Général Java
    Réponses: 41
    Dernier message: 15/01/2006, 18h36
  3. aide sur la compilation d'un programme console
    Par angelo2 dans le forum MFC
    Réponses: 6
    Dernier message: 18/10/2005, 07h44
  4. DELPHI6, Programme console et code de retour
    Par Desraux dans le forum Débuter
    Réponses: 2
    Dernier message: 21/07/2005, 08h15
  5. [Debutant] execution d'un programme console
    Par benahpets dans le forum MFC
    Réponses: 8
    Dernier message: 19/05/2005, 00h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo