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

 Delphi Discussion :

Drag and drop d'une image au format .webp D6 et Windows 10 64bits


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    2 613
    Détails du profil
    Informations personnelles :
    Âge : 72
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2006
    Messages : 2 613
    Par défaut Drag and drop d'une image au format .webp D6 et Windows 10 64bits
    Bonsoir à toutes et à tous,

    Avec un TopenDialog pas de problème je charge une image au format webp et l'affiche dans un Tpicture avec freeimage.dll.

    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
     
    mplementation
     
    uses FreeBitmap, FreeUtils;
     
    {$R *.dfm}
     
    procedure TForm1.Button2Click(Sender: TObject);
    var
      aFreeBitmap: TFreeWinBitmap;
      aBmp: TBitmap;
      aCol: TRGBQuad;
    begin
      OpenDialog1.Filter := FIU_GetFullExtList;
      if OpenDialog1.Execute then
      begin
        aFreeBitmap := TFreeWinBitmap.Create;
        try
          if aFreeBitmap.Load(OpenDialog1.FileName) then
          begin
            aBmp := TBitmap.Create;
            try
              aBmp.Width := aFreeBitmap.GetWidth;
              aBmp.Height := aFreeBitmap.GetHeight;
              // Couleur de fond pour image transparente
              Integer(aCol) := ByteSwap(clWhite);
              aFreeBitmap.DrawEx(aBmp.Canvas.Handle, Rect(0, 0, aBmp.Width, aBmp.Height), False, @aCol);
              Image1.Picture.Bitmap.Assign(aBmp);
            finally
              aBmp.Free;
            end;
          end;
        finally
          aFreeBitmap.Free;
        end;
      end;
     
    end;
    J'essaye en vain (plusieurs codes !) de pouvoir utiliser la méthode du drag and drop en plus du TopenDialog mais problème.

    Si quelqu'un à une idée cela me ferait plaisir.

    Je rectifie ce jour, le drag and drop fonctionne depuis l'Exploreur et du dossier vers l'application mais pas depuis la page Web !
    @+,

    cincap

  2. #2
    Modérateur
    Avatar de tourlourou
    Homme Profil pro
    Biologiste ; Progr(amateur)
    Inscrit en
    Mars 2005
    Messages
    3 938
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Biologiste ; Progr(amateur)

    Informations forums :
    Inscription : Mars 2005
    Messages : 3 938
    Billets dans le blog
    6
    Par défaut
    Bonjour,
    Juste pour bien comprendre ton besoin : faire un Drag&Drop d'une page web (quelconque ?) vers ton application ?
    Le Browser est-il externe ou inclus dans ton appli ?
    Le problème se résumerait-il à récupérer le fichier image correspondant sous forme de fichier temporaire pour fournir son chemin à ta procédure ?
    Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  3. #3
    Membre éprouvé
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    2 613
    Détails du profil
    Informations personnelles :
    Âge : 72
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2006
    Messages : 2 613
    Par défaut
    @ tourlourou, merci de ta remarque.

    Le Browser est-il externe ou inclus dans ton appli ?
    Oui il est externe et c'est le navigateur Edge (Microsoft supprime l'Explorer en juin 2021) mais j'ai remarqué que l'on pouvait sauver l'image sous le format .webp dans un dossier et la mon application l'affiche et la sauve en .jpg soit avec le TopenDialog soit avec le drag and drop.

    Mais je voulais tester si je pouvais le faire depuis ce navigateur directement en déposant l'image sur mon application.

    Je suis en train de tester.

    @+,

    cincap

  4. #4
    Membre éprouvé
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    2 613
    Détails du profil
    Informations personnelles :
    Âge : 72
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2006
    Messages : 2 613
    Par défaut
    Bonjour à toutes et à tous,

    Voila je vais utiliser le copier dans le clipboard de Windows depuis une page Web qui possède des photos même au format .webp et ensuite depuis mon application, je récupère cette photo et je peus la sauver en d'autres formats.

    Pour le drag and drop il fonctionne depuis l'exploreur de Windows.

    Je peus fermer le topic.

    Merci à ceux qui ont participé.

    @+,

    cincap

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

Discussions similaires

  1. Drag and drop sur une image
    Par trustmahori dans le forum ActionScript 3
    Réponses: 1
    Dernier message: 03/06/2010, 17h59
  2. Drag and Drop sur une image avec coordonnées générées
    Par psgman113 dans le forum ActionScript 3
    Réponses: 2
    Dernier message: 28/04/2009, 21h58
  3. [SWT/JFACE] Drag and drop avec une image sur le curseur
    Par soft-war dans le forum SWT/JFace
    Réponses: 5
    Dernier message: 30/07/2008, 13h01
  4. Empecher le drag and drop d'une image
    Par gwen_oc dans le forum Balisage (X)HTML et validation W3C
    Réponses: 7
    Dernier message: 23/08/2007, 10h55
  5. drag and drop d'une image d'une page web lancée depuis un webbroswer
    Par chrisledeveloppeur2 dans le forum Web & réseau
    Réponses: 3
    Dernier message: 02/01/2007, 15h33

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