Discussion :

[B-Technix]

Bonsoir à tous,

Je suis confronté au problème suivant lors de la conversion de grandes images emf vers jpg, j'obtiens une erreur endofressources:
Pour réaliser cela, étant donné qu'il n'est pas possible de dessiner directement dans le jpg (il ne possède pas de canvas), j'utilise un bitmap intermédiaire suivant le code ci-dessous:

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
 try
    MF := tmetafile.Create;
    MF.Enhanced := true;     MF.Width := largeur;    MF.Height := hauteur;
 
    MFcvs := TMetaFileCanvas.Create(mf, 0); //crée un canvas metafile
    fGraph.Dessine(mfcvs, positionLeft, positionTop); //dessine dans le metafilecanvas
    MFcvs .Free; //libère le mfcanvas et transfere dans metafile
 
    if MF <> nil then
      begin
        sExt := ExtractFileExt(sNomFich);  //récupère le format de fichier désiré
        if (sExt = '.bmp') or (sExt = '.jpg') then
          begin
            bmp := TBitmap.Create;
            try
              bmp.PixelFormat := pf24bit;  bmp.Width := mf.Width;      bmp.Height := mf.Height;
              bmp.Canvas.Draw(0, 0, mf);
 
              if (sExt = '.bmp') then  bmp.SaveToFile(sNomFich);
 
              if (sExt = '.jpg') then
                begin
                  JPEG := TJPEGImage.Create;
                  try
                    JPEG.CompressionQuality := JpegCompr;
                    JPEG.Assign(bmp);
                    JPEG.JPEGNeeded;
                    JPEG.SaveToFile(sNomFich);
                  finally
                    JPEG.Free;
                  end;
                end;
 
            finally
              bmp.Free;
            end;
          end
       end;
  finally
    MF.Free;
  end;

Mes questions:
1- Existe-t'il une façon plus efficace pour réaliser cette conversion, n'utilisant pas éventuellement le bitmap qui génère le dépassement mémoire?
2- peut-on éviter d'utiliser la mémoire pour réaliser celà? (en passant par le disque par exemple)
3- est-ce que la notion de stream peut-être une piste?
4- existe-t'il une solution permettent de réserver l'espace nécessaire pour stocker le bitmap? (pouvant éventuellement dépasser la capacité mémoire)

ou toute autre idée, piste ou solution qui seront les bienvenues...

Merci

[B-Technix]

Personne n'a une même une toute petite idée ?

[B-Technix]

J'ai également fait l'essai d'affecter directement le MetaFile au Jpeg mais j'obtiens l'erreur: ' Impossible d'affecter TMetafile à TJPEGImage '

Peux-t'on affecter un metafile a un jpeg? Si oui de quelle manière sans utiliser un bitmap intermédiaire ?

[Philippe Gormand]

Bonjour.

Peux tu dire à quel moment survient l'erreur (Execution en mode pas-à-pas) ?
Il est bien possible que ce soit la méthode "Draw" qui plante.

A+

[Philippe Gormand]

J'avais proposé la méthode suivante pour charger et sauver des image JPEG. Mais la méthode "Draw" plante lamentablement avec de grandes image. J'ai modifier mon code.

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
 
{-----------------------------------------------------------------}
{                Charge une image au format JPEG                   }
{-----------------------------------------------------------------}
Procedure ChargeImageJPEG(Nom : String);
Var
  ImageJPEG  : TJPEGImage;
  ImageBmp   : TBitMap;
Begin
   If Not (UpperCase(ExtractFileExt(Nom)) = '.JPG') Then Exit;
   // Creéation de l'objet Image JPEG
   ImageJPEG:=TJPEGImage.Create;
   Try
     // Chargement de l'image JPEG
     ImageJPEG.LoadFromFile(Nom);
     // Création de l'objet BitMap
     ImageBmp:=TBitMap.create;
       Try
         ImageBMP.Width:=ImageJPEG.Width;
         ImageBMP.Height:=ImageJPEG.Height;
         ImageBMP.Canvas.Draw(0,0,ImageJPEG);
         // Transfert de l'image pour assurer une parfaite compatibilité
         ImageTmp.Picture.BitMap.Assign(ImageBMP);
       Finally
          ImageBMP.Free;
       end;
   Finally
       ImageJPEG.Free;
   end;
End;

J'ai trouvé la solution ainsi. Cela permet de gérer de grande images. C'est la technique que j'utilise danss mon programme de retouche de photo.
Je viens de faire un test : Image compressée JPEG, 28 Mégapixels, 13 Moctets.

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
 
// Charger une image JPEG
Var
   I          : Byte;
   ImageJPEG  : TJPEGImage;
   PictureTmp : TPicture;
   ImageBMP   : TBitMap;
 
 
If Extension = '.jpg' Then
    begin
       ImageJPEG:=TJPEGImage.Create;
       Try
         ImageJPEG.OnProgress:=ProgressUpdate;
         ImageJPEG.LoadFromFile(NomFichier);
         QualiteJPG:=ImageJPEG.CompressionQuality;
 
         Image.Picture.BitMap.Assign(ImageJPEG);
 
       Finally
           ImageJPEG.Free;
       end;
 
      Result:=True;
    end;

Et pour sauver :

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
 
Procedure TFicheManipImage.SauveImageJPEG(Nom : String;Qualite : Integer);
Var
   Image  : TJPEGImage;
 
Begin
   Err1:=False;
   If Qualite < 1 Then Qualite:=100;
   If Qualite > 100 Then Qualite:=100;
   Try
     Image:=TJPEGImage.Create;
     Image.Assign(Image1.Picture.BitMap);
     Image.CompressionQuality:=Qualite;
     Image.ProgressiveEncoding:=True;
     Image.SaveToFile(Nom);
     finally Image.Free;
   end;
End;

A+

[B-Technix]

J'ai tracé pour vérifier précisémment où se produit l'erreur, c'est en fait lors de l'affectation des tailles au bitmap, bitmap.width passe sans problème, mais bitmap.height déclenche:

Code :

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

...classe d'exception EOutOfResources avec le message 'Espace insuffisant pour traiter cette commande...

J'ai déja essayer jpeg.assign(bitmap), sans succès évidemment l'erreur étant préalble

Avec jpeg.assign(metafile), erreur à la compilation: 'Impossible d'affecter TMetafile à TJPEGImage'

Ce qui est curieux (pour moi ), c'est que si je ne réalise pas btimap.width et height, j'obtiens une erreur ressemblante 'Impossible d'affecter TMetafile à TBitmap' lors de bitmap.assign(mf)

Dans tes exemples, tu utilises un image, peut-être devrais-je essayer avec un image.pisture.bitmap a la place du bitmap

[chsanche]

Salut,

je sais, je sais, le message est posté depuis 2004 et on est en 2006! il est passé de l'eau sous les ponts. Juste pour dire que j'ai eu le soucis sur des bigs images, et si je mets bitmap.HandleType := bmDIB juste apres l'avoir créé, alors le problème d'espace insuffisant ne se produit plus. Un load d'une image du genre bitmpa.loadfromfile('blank.bmp') resoult le pb également.

désolé pour le retard !
tophe

[Sub0]

???

[B-Technix]

Je sais pas encore, je ne recevais pas les mails d'avertissement, je viens de découvrir cette dernière réponse .... tests en perspective

[B-Technix]

...si je mets bitmap.HandleType := bmDIB juste apres l'avoir créé, alors le problème d'espace insuffisant ne se produit plus.

Merci, cela à améliorer, la sauvegarde des bitmaps à l'air ok

Sinon, pour ce qui est du jpeg, je souhaiterais pouvoir traiter les scanlines du bitmap une a une
L'unité Jpeg.pas livrée avec Delphi ne le permet pas d'origine, elle prends le bitmap en entier en mémoire, puis le traite en scanlines d'un seul coup
Je voudrais essayer de la modifier, j'ai récupérer les sources qui sont dans le dossier info/extra/jpeg du cd

J'ai mis les chemins vers les dossiers ...\jpeg\src et ..\jpeg\obj

Mais je n'arrive pas à la compiler, jpeg.dcu et jconsts.dcu renommés en *.dcu.old dans ..\borland\delphi\lib, quand je lance cljpeg.dpk, ça plante avec
Impossible de compiler le paquet 'vcljpg70' actuellement requis par Delphi.
Si je vire le suffixe 70 dans les options (comme ça pour essayer), la compil se lance puis :[Erreur] Jpeg.pas(872): Déclaration forward ou external non satisfaite : 'jpeg_save_markers' (jconsts.dcu est bien recréé)

Si quelqu'un peux m'aider sur ce coup, j'arriverais peut-être à modifier Jpeg.pas pour qu'elle traite les scanlines 1 à 1

Merci d'avance