Discussion :

[luiso]

Bonjour,

Désirant profiter de GraphicEX pour charger divers formats d'images,
j'ai donc charger l'ancienne version appelée GraphicEX tout court,
même en Delphi, il manquait toujours un truc.
Donc j'ai trouvé la dernière version: GraphicEX-Master.
-
Malgré pas mal de temps à essayer d'utiliser cette librairie:
1) Elle fonctionne parfaitement avec Delphi.
2)Mais casse tête avec C++Builder Rio, vu qu'elle n'a pas d’installateur...
-
J'ai donc essayé de mettre directement tous les fichiers se trouvant dans GraphEX
dans la racine du répertoire de mon programme d'essai.
J'ai ensuite ajouté les unités ".pas".
-
Mais maintenant il me réclame les ".obj", qui évidemment ne sont pas fournis
(Hormis ceux de la Zlib qui eux sont fournis)
-
Pas moyens de les créer.

Si quelqu'un connais la procédure pour me sortir de ce pétrin,
je le remercierais avec joie.
@ bientôt peut-être...
luiso

[DjmSoftware]

Salut,
tu trouvera ci-joint le projet pour cette Library
cdlt

[luiso]

Bonjour et merci à DJ..
La première étape est franchie.
La 2ème:
J'ai créé un petit bout d'essai qui ouvre bien le fichiers en TGA et autres.
Mais en sauvegarde il ne fait que JPG et BMP
Il est pourtant indiqué que GraphEX sauvegarde aussi en TGA PNG etc. !!!!
J'envois l'exemple commenté pour savoir ou je me trompe.
Merci

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
//1
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Dialogs.hpp>
#include <Vcl.ExtDlgs.hpp>
#include <GraphicEx.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
	TButton *Button1;
	TButton *Button2;
	TImage *Image1;
	TSavePictureDialog *SavePictureDialog1;
	TOpenPictureDialog *OpenPictureDialog1;
	void __fastcall Button1Click(TObject *Sender);
	void __fastcall Button2Click(TObject *Sender);
	void __fastcall FormCreate(TObject *Sender);
private:	// Déclarations utilisateur
public:		// Déclarations utilisateur
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
 
// CPP
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//#pragma link "GraphicEx"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{ }
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{ //    ERREUR A LA LIGNE CI-DESSOUS
 /*SavePictureDialog1->Filter = FileFormatList->GetGraphicFilter(ARRAYOFCONST((ftEnableSaving)),
   fstNone, ARRAYOFCONST((foIncludeExtension)), NULL);*/
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ // Load    Charge les images y compris .TGA
 if (OpenPictureDialog1->Execute())
	Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ // Save   Sauve que .JPG et .BMP
 //SavePictureDialog1->FilterIndex = 1;
 if (SavePictureDialog1->Execute())
	SaveGraphicToFile(Image1->Picture->Graphic, SavePictureDialog1->FileName);
}

[DjmSoftware]

Salut
il y avait peut-être une erreur dans ma premiere librarie
tu trouvera ci-dessous
le projet pour la création de la librarire avec c++ Builder 10.3
en version Debug et Release
ainsi q'un un projet de test fonctionel

bien cordialement

[luiso]

Bonsoir,
J'en suis là, rien à faire pour TIFF ICO etc.
Bonne soirée...

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
 
 if(SD->Execute())
  {
   if(ExtractFileExt(UpperCase(SD->FileName))==".TGA")
   {
	TTargaGraphic *TAG = new TTargaGraphic;
	TAG->Width = ImageVue->Picture->Width;
	TAG->Height = ImageVue->Picture->Height;
	TAG->Canvas->Draw(0, 0, ImageVue->Picture->Graphic);
	TAG->SaveToFile(SD->FileName);  delete TAG;
   }
  else if(ExtractFileExt(UpperCase(SD->FileName))==".JPG")
   { // 2 Façons de faire
	// 1- celle là en 3 lignes de code
	TJPEGImage *JPG = new  TJPEGImage();
	JPG->Assign(ImageVue->Picture->Bitmap);
	JPG->SaveToFile(SD->FileName); delete JPG;
	// 2- ou celle ci en 1 ligne de code
	// SaveGraphicToFile(ImageVue->Picture->Graphic, SD->FileName);
   }
  else if(ExtractFileExt(UpperCase(SD->FileName))==".TIF")
   { // Ne fonctionne pas
	//TTIFFGraphic *TIF = new  TTIFFGraphic;
	//TIF->Assign(ImageVue->Picture->Bitmap);
	//TIF->SaveToFile(SD->FileName); delete TIF;
   }
  else
   {
	if(ExtractFileExt(UpperCase(SD->FileName))==".PNG")
	 {
	  FileFormatList->RegisterFileFormat("png", gesPortableNetworkGraphic, "",
	  TFormatTypes()<<ftRaster<<ftEnableSaving, true, __classid(TPngImage));
	 }
	else if(ExtractFileExt(UpperCase(SD->FileName))==".GIF")
	 {
	  FileFormatList->RegisterFileFormat("gif", fstBoth, "",
	  TFormatTypes()<<ftRaster<<ftEnableSaving, true, __classid(TGIFImage));
	 }
	SaveGraphicToFile(ImageVue->Picture->Graphic, SD->FileName);
   }
  }

[DjmSoftware]

Salut
la libraire Graphex est capable de lire les extensions suivantes:"bmp,ico,wmf,emf,jfif,jpg,jpe,jpeg,msk,rle,dib,tga,vst,vda,win,icb,tif,tiff,fax,eps,pcx,pcc,scr,rpf,rla,sgi,rgba,rgb,bw,psd,pdd,ppm,pgm,pbm,cel,pic,pcd,gif,cut,psp,pfr,tub,png,ged
en revanche en écriture (ftEnableSaving) avec la méthode SaveGraphicToFile uniquement les extensions suivantes.bmp, wmf, emf, jfif,jpg jpe, jpe,png
pour plus de précision sur la bibliothèque qui fonctionne par ailleurs de manière parfaitement similaire en Delphi
Prière de contacter l'auteur :Mike Lischke (www.soft-gems.net)

cdlt

[luiso]

Hello!

Effectivement, après pas mal de recherches, elle lit énormément d’extensions.
Dommage qu'elle n'en sauvent que peu.
Pour palier à cela j'ai essayé Gdiplus qui est plus compliqué mais qui m'écrit bien les TIF.

Code :

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

1
2
3
 
CLSID tiffClsid; GetEncoderClsid(L"image/tiff", &tiffClsid);
	 image.Save(SD->FileName.c_str(), &tiffClsid, NULL);

Il ne reste plus qu'à trouver pour les ICO, bien que là je crois qu'il y aura du travail.
@ bientôt