FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 123, nombre de questions : 919, dernière mise à jour : 14 juin 2019  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez


SommaireSystèmeImage/Vidéo (4)
précédent sommaire suivant
 

Pour insérer un .GIF animé, le plus simple est d'utiliser le composant RxGifAnimator de la bibliothèque RxLib.
Cette bibliothèque est incluse dans la JEDI Visual Component Library (JVCL).

Mis à jour le 18 octobre 2013 Alcatîz Nono40

Pour redimensionner une image, il est nécessaire de recopier une image dans une autre en appliquant une réduction. Une méthode de réduction basique est la fonction StretchDraw du TCanvas.

Le code suivant permet de lire un fichier .JPG et de l'enregistrer dans une taille différente. La constante Coeff est le rapport de réduction en %.

Code Delphi : Sélectionner tout
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
Procedure TForm1.Button1Click(Sender: TObject); 
Var jpg :TJpegImage; 
    Bmp :TBitMap; 
Begin 
  { Sélection de l'image} 
  If Not Ouvrir.Execute Then Exit; 
  { Sélection du nom de destination} 
  If Not Sauver.Execute Then Exit; 
  
  { Création des variables temporaires} 
  Jpg := TJpegImage.Create; 
  Bmp := TBitMap   .Create; 
  Try 
    { Lecture de l'image} 
    Jpg.LoadFromFile(Ouvrir.FileName); 
    { Le BitMap est adapté à la taille voulue} 
    Bmp.Width  :=Jpg.Width  * Coeff Div 100; 
    Bmp.Height :=Jpg.Height * Coeff Div 100; 
    { L'image est dessinée dans la totalité de la surface du BitMap} 
    Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect,Jpg); 
    { Puis la nouvelle image est assignée au JPG} 
    Jpg.Assign(Bmp); 
    { et enfin elle est enregistrée} 
    Jpg.SaveToFile(Sauver.FileName); 
  Finally 
    { libération des ressources} 
    Jpg .Free; 
    Bmp .Free; 
  End; 
End;

Cette méthode effectue une réduction simple. L'application dans l'archive ci-dessous contient une méthode de filtrage lors de la réduction permettant d'éliminer en partie la perte de qualité due à la réduction.

Mis à jour le 18 octobre 2013 Nono40

Il n'existe plus de version officielle de DelphiX depuis celle réalisée pour Delphi 5. Une recherche sur Google permet de trouver des versions non officielles pour Delphi 6 ou 7.

Il est cependant possible d'utiliser DirectX directement en utilisant les interfaces (voir le tutoriel ci-dessous).

Mis à jour le 18 octobre 2013 Nono40

Introduction à DirectX 9 en Delphi, par Pierre Castelain

Il suffit pour cela de charger l'image dans un TJPegImage puis de recopier son contenu dans un TBitmap pour enfin l'enregistrer.

Code Delphi : Sélectionner tout
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
  
procedure ConversionJPEGversBMP(const FichierEntree, FichierSortie: string); 
var ImageJPEG : TJPEGImage; 
    ImageBitmap : TBitmap; 
begin 
  ImageJPEG := TJPEGImage.Create; 
  try 
    ImageJPEG.LoadFromFile(FichierEntree); //Chargement de l'image 
  
    ImageBitmap := TBitmap.Create; 
    try 
      //On donne la même taille que l'image jpeg 
      ImageBitmap.Width := ImageJPEG.Width; 
      ImageBitmap.Height := ImageJPEG.Height; 
  
      //On dessine le jpeg sur le canvas du Bitmap 
      ImageBitmap.Canvas.Draw(0, 0, ImageJPEG); 
      //On enregistre 
      ImageBitmap.SaveToFile(FichierSortie); 
    finally 
      ImageBitmap.Free; 
    end; 
  finally 
    ImageJPEG.Free; 
  end; 
end;

Mis à jour le 14 janvier 2014 Pedro

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2019 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -

Partenaire : Hébergement Web