Discussion :

[SimFaridas]

Bonjour à tous !
Je cherche un moyen d'ouvrir une image de type JPEG ou PNG dans mon Timage mais rien ne se passe, seul les BMP sont accepter

Code :

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

1
2
3
4
5
6
 
if extention = '.bmp' then
        begin
        image1.Visible := true;
        Image1.Picture.LoadFromFile(filename);
        end;

Voilà mon code, peut être qu'il manque quelque chose je ne sais pas
En tout cas merci d'avance

[foetus]

Cela me rappelle un truc : il faut créer un TPngImage, TJPEGImage, peut-être un TPicture et utiliser la méthode assign pour charger sa bitmap

[Jipété]

Cela me rappelle un truc : il faut créer un TPngImage, TJPEGImage, peut-être un TPicture et utiliser la méthode assign pour charger sa bitmap

Ouais, puis surtout y a ça :

Code :

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

1
2
 
if extension = '.bmp' then // avec un "s", c'est comme tension, surtension, etc. -- mais pas comme attention, lol !

C'est sûr qu'avec ça les .jpg et autres .png peuvent toujours aller se faire bronzer à la plage (c'est de saison), et surtout, surtout, il y a des millions de résultats sur ce sujet dans gogol...

[tourlourou]

Quelle version de Delphi utilises-tu ?
Dans D5, il faut sûrement ajouter l'unité JPEG en uses, et pour png, voir s'il existe un équivalent.
Pour une édition récente, je pense que le support de ces formats est de base.

[Gilbert Geyer]

Bonjour,

En utilisant les 3 unités : unit pngimage; unit pnglang; unit zlibpas;
voici une fonction dont le Result renvoie le TBitmap extrait d'un fichier au format *.PNG :

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
39
40
41
42
43
44
45
46
47
48
function BMPdePNG(const nomFichierPNG: string): TBitmap; // Avec Récup du canal Alpha
var
  Png  :TpngObject;
  PngA :PByteArray;
  RGBA :PRGBQuad;
  x    :integer;
  y    :integer;
 
begin
  Png := TpngObject.Create;
 
  try
    Result := TBitmap.Create;
 
    Png.LoadFromFile(nomFichierPNG);
 
    if Png.Header.ColorType in [COLOR_GRAYSCALEALPHA, COLOR_RGBALPHA] then
    begin
      //Bitmap 32 bits
      Result.PixelFormat := pf32bit;
      Result.Width       := Png.Width;
      Result.Height      := Png.Height;
      //showmessage('ici');
      ZeroMemory(Result.ScanLine[Result.Height -1], Result.Height *Result.Width *SizeOf(TRGBQuad));
 
      //Copie RGB
      Result.Canvas.Draw(0, 0, Png);
 
      //Copie couche alpha
      RGBA := Result.Scanline[Result.Height -1];
 
      for y := Result.Height -1 downto 0 do
      begin
        PngA := Png.AlphaScanline[y];
 
        for x := 0 to Result.Width -1 do
        begin
          RGBA.rgbReserved := PngA[x];
          inc(RGBA);
        end;
      end;
    end
    else Result.Assign(Png);
 
  finally
    Png.Free;
  end;
end;

A+.

[SimFaridas]

Bonjour,

En utilisant les 3 unités : unit pngimage; unit pnglang; unit zlibpas;
voici une fonction dont le Result renvoie le TBitmap extrait d'un fichier au format *.PNG :

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
39
40
41
42
43
44
45
46
47
48
function BMPdePNG(const nomFichierPNG: string): TBitmap; // Avec Récup du canal Alpha
var
  Png  :TpngObject;
  PngA :PByteArray;
  RGBA :PRGBQuad;
  x    :integer;
  y    :integer;
 
begin
  Png := TpngObject.Create;
 
  try
    Result := TBitmap.Create;
 
    Png.LoadFromFile(nomFichierPNG);
 
    if Png.Header.ColorType in [COLOR_GRAYSCALEALPHA, COLOR_RGBALPHA] then
    begin
      //Bitmap 32 bits
      Result.PixelFormat := pf32bit;
      Result.Width       := Png.Width;
      Result.Height      := Png.Height;
      //showmessage('ici');
      ZeroMemory(Result.ScanLine[Result.Height -1], Result.Height *Result.Width *SizeOf(TRGBQuad));
 
      //Copie RGB
      Result.Canvas.Draw(0, 0, Png);
 
      //Copie couche alpha
      RGBA := Result.Scanline[Result.Height -1];
 
      for y := Result.Height -1 downto 0 do
      begin
        PngA := Png.AlphaScanline[y];
 
        for x := 0 to Result.Width -1 do
        begin
          RGBA.rgbReserved := PngA[x];
          inc(RGBA);
        end;
      end;
    end
    else Result.Assign(Png);
 
  finally
    Png.Free;
  end;
end;

A+.

Merci pour cette fonction elle fonctionne très bien et est ce que je pourrais te demander si tu as la même mais pour les formats jpg ?

[tourlourou]

En ajoutant uses pngimage au projet, cette unité enregistre pour le TPicture l'association entre extension 'PNG' et l'objet qu'elle expose pour le décoder lors d'un LoadFromFile. A l'instar de l'unité JPEGImage pour le format JPEG. Et ce, grâce à un TPicture.RegisterFileFormat.
Si ces 2 unités sont ajoutées au projet, un TImage(.Picture).LoadFromFile est censé ouvrir les png et jpeg...

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
unit pngimage;
 
//...
 
initialization
  {Initialize}
  ChunkClasses := nil;
  {crc table has not being computed yet}
  crc_table_computed := FALSE;
  {Register the necessary chunks for png}
  RegisterCommonChunks;
  {Registers TPNGObject to use with TPicture}
  {$IFDEF UseDelphi}{$IFDEF RegisterGraphic}
    TPicture.RegisterFileFormat('PNG', 'Portable Network Graphics', TPNGObject); // ici !
  {$ENDIF}{$ENDIF}
finalization
  {$IFDEF UseDelphi}{$IFDEF RegisterGraphic}
    TPicture.UnregisterGraphicClass(TPNGObject);
  {$ENDIF}{$ENDIF}
  {Free chunk classes}
  FreeChunkClassList;
end.

[Gilbert Geyer]

Bonjour,

SimFaridas : Merci pour cette fonction elle fonctionne très bien et est ce que je pourrais te demander si tu as la même mais pour les formats jpg ?

Oui tu peux demander :

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
Avec Jpeg dans le uses :

function BMPdeJPEG(const nomFichierJPEG: string): TBitmap;
var JPEGImage: TJPEGImage;
begin Result := nil;
  if (nomFichierJPEG = '') then EXIT;
  try
    JPEGImage := TJPEGImage.Create;
    Result := TBitmap.Create;
    Result.PixelFormat := pf24Bit;
    try // test de chargement
      JPEGImage.LoadFromFile(nomFichierJPEG);
      JPEGImage.DIBNeeded;
      Result.Assign(JPEGImage);
    finally
      JPEGImage.Free;
    end;
  except
    Result := nil;
  end;
end; // BMPdeJPEG

A+.

[SimFaridas]

Merci énormément ! Ca fonctionne !

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
 
if extention = '.bmp' then
        begin
        image1.Visible := true;
        Image1.Picture.LoadFromFile(filename);
        end;
 
        if (extention = '.png') then
        begin
          image1.Visible := true;
          Image1.Picture.Bitmap := BMPdePNG(filename);//Je fais appelle aux fonctions données par Gilbert Geyer
        end;
 
        if (extention = '.jpg') or (extention = '.jpeg') then
        begin
           image1.Visible := true;
            Image1.Picture.Bitmap := BMPdeJPEG(filename);//Je fais appelle aux fonctions données par Gilbert Geyer
        end;

!!!!

[Gilbert Geyer]

Bonjour,

SimFaridas : Ca fonctionne !

Juste un détail : au lieu de if extention = '.bmp' then ...
il serait plus prudent d'écrire : if LowerCase(extention) = '.bmp' then ...
ou bien extention:=LowerCase(filename);

Mais bon , on ne va pas chinoiser.

A+.

[guillemouze]

il serait plus prudent d'écrire : if LowerCase(extention) = '.bmp' then ...

Je chinoiserai même plus en disant

Code :

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

if SameText(extension, '.bmp') then

[Gilbert Geyer]

Re-salut,

Guillemouze : if SameText(extension, '.bmp') then ...

Merci car cela simplifie vu que SameText compare des chaînes sans tenir compte de la distinction minuscules/majuscules.

A+.