Transtypage de string en Txyz

Bonjour,

J'ai rempli la liste d'un ComboBox avec des strings représentant des TFPBaseInterpolation (unité extinterpolation, ça s'utilise ainsi : DestCanvas.Interpolation := TQuadraticInterpolation.Create; ou un autre filtre, DestCanvas est un TLazCanvas).

Maintenant, j'ai deux possibilités concernant l'utilisation au quotidien, à partir du choix fait dans le ComboBox :
soit

Code:

---

1 2 3 4 5

case cbbxFilters.ItemIndex of 0: DestCanvas.Interpolation := TBilineairInterpolation.Create; 1: DestCanvas.Interpolation := TBlackmanInterpolation.Create; // et il y a beaucoup d'autres lignes end;

---

soit une seule ligne DestCanvas.Interpolation := (cbbxFilters.Text as TFPBaseInterpolation).Create; mais ça ne compile pas :

Citation:

---

Envoyé par erreur_du_compilo

Error: Class or COM interface type expected, but got "TTranslateString"

---

avec le curseur qui clignote devant le "as".

J'ai jeté un œil à l'aide sur "as", je n'ai pas trouvé d'explication me permettant d'avancer, et je ne sais pas du tout quoi taper dans les moteurs de recherche.

Si quelqu'un a une idée de ce qui manque, sa réponse sera un grand bonheur ;)
Merci d'avance,

Salut Jipete

Citation:

---

soit une seule ligne DestCanvas.Interpolation := (cbbxFilters.Text as TFPBaseInterpolation).Create; mais ça ne compile pas

---

Normal tu passes une variable de type String. Ca ne peut pas être compatible (ce genre de truc pour construire des objet dynamiquement est très utile et ça me manque aussi un peu par rapport au PHP :) )

Tu n'as pas le choix que faire un truc dans le genre

Code:

---

1 2 3 4 5 6 7 8

Function GetInterpolationClass(Idx:Integer): TFPCustomInterpolation; begin result:=nil; Case of Idx : 0: result:=TMitchellInterpolation.Create; .... end; end

---

;

as est un transtypage contrôlé à la compilation. L'autre variante serait bien sûr TFPBaseInterpolation(cbbxFilters.Text).

Dans le premier cas (as), le type de la donnée transtypée doit être conforme à ce qui est attendu (soit un type identique ou dérivé), dans le cas contraire, le compilateur râle. Dans le deuxième cas, le compilateur va passer tout droit (aucun contrôle particulier) et l'erreur éventuelle surviendra en runtime (violation d'accès logiquement si les points d'entrée ne sont pas conformes). Dans ce dernier cas, il faut donc bien savoir ce que l'on fait dès le départ.

Mais il y a peu de chance que ça fonctionne ici, même si cbbxFilters.Text n'est finalement qu'un pointeur ;)

Bonsoir,

et merci pour vos réponses

Citation:

---

Envoyé par Andnotor

as est un transtypage contrôlé à la compilation. L'autre variante serait bien sûr TFPBaseInterpolation(cbbxFilters.Text).

Dans le premier cas (as), le type de la donnée transtypée doit être conforme à ce qui est attendu (soit un type identique ou dérivé), dans le cas contraire, le compilateur râle. Dans le deuxième cas, le compilateur va passer tout droit (aucun contrôle particulier) et l'erreur éventuelle surviendra en runtime (violation d'accès logiquement si les points d'entrée ne sont pas conformes).

---

Ah ben non, Lazarus n'est pas content, d'entrée de jeu :

Code:

---

DestCanvas.Interpolation := TFPBaseInterpolation(cbbxFilters.Text).Create;

---

-->

Citation:

---

Envoyé par compilo_en_colère

Error: Incompatible types: got "TObject" expected "TFPCustomInterpolation"

---

On ne m'ôtera cependant pas de l'idée que c'est dommage et qu'on n'est pas loin puisqu'en regardant bien une ligne qui compile et fonctionne : DestCanvas.Interpolation := TMitchelInterpolation.Create;, la partie en rouge on est bien d'accord que c'est du bête texte, hein.

Bonjour,

Citation:

---

Envoyé par Jipété

Bonsoir,

DestCanvas.Interpolation := TMitchelInterpolation.Create;, la partie en rouge on est bien d'accord que c'est du bête texte, hein.

---

Non, pas vraiment,
Pour ton compilateur c'est du texte mais il peut (parce que il en a trouve quelque part la définition) en l'adresse de la fonction de crétaion de la classe.
Lorsque tu passes du texte DestCanvas.Interpolation := 'TMitchelInterpolation'.Create; (qui ne fonctionne pas) pour ton compilateur c'est du texte et il ne trouve pas (sauf à regarder du côté de RTTI de classe correspondante). C'est toute la difficulté entre les langages compilés (pascal) qui font le travail de mise en correspondance au moment se la compilation et ceux interprétés (PHP) qui eux attendent l'exécution de la ligne pour aller chercher dans les classes déjà trouvées si il y en a une qui correspond.

Cordialement

Yep !

M'en suis sorti autrement : j'ai récupéré tous ces Txxx dans le fichier où ils étaient définis, les ai collés dans une nouvelle unité à moi, les ai intégrés dans une array of records prévue pour et roule ma poule, ça fonctionne du feu de Dieu !
("_ei" ça n'a rien à voir avec qui vous savez, de sinistre mémoire, c'est juste ExtInterpolation pour différencier les doublons d'avec "_rs" pour uReSample, l'unité qui m'a mis le pied à l'étrier.)

Code:

---

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

const ResampleFilters: array[0..16] of record Name : string; // Filter name Filter: TFilterProc;// Filter implementation Width : Double; // Suggested sampling width/radius end = ( (Name: 'Bilinear_ei'; Filter: @BilinearFilter_ei; Width: 1.0), // (Name: 'Blackman'; Filter: @BlackmanFilter; Width: 1.0), // (Name: 'BlackmanBessel'; Filter: BlackmanBesselFilter; Width: 3.24), // (Name: 'BlackmanSinc'; Filter: BlackmanSincFilter; Width: 4.0), (Name: 'Box_ei'; Filter: @BoxFilter_ei; Width: 0.5), (Name: 'Catrom'; Filter: @CatromFilter; Width: 2.0), (Name: 'Cubic'; Filter: @CubicFilter; Width: 2.0), // (Name: 'Gaussian'; Filter: @GaussianFilter; Width: 1.25), (Name: 'Hamming'; Filter: @HammingFilter; Width: 1.0), (Name: 'Hanning'; Filter: @HanningFilter; Width: 1.0), (Name: 'Hermite_ei'; Filter: @HermiteFilter_ei; Width: 1.0), (Name: 'Lanczos_ei'; Filter: @LanczosFilter_ei; Width: 3.0), (Name: 'Mitchel_fp'; Filter: @MitchelFilter_fp; Width: 2.0), (Name: 'Quadratic'; Filter: @QuadraticFilter; Width: 1.5), (Name: 'Box_rs'; Filter: @BoxFilter_rs; Width: 0.5), //renommé (Name: 'Triangle'; Filter: TriangleFilter; Width: 1.0), // ancien nom de dessous (Name: 'Bilinear_rs'; Filter: @BilinearFilter_rs; Width: 1.0), (Name: 'Hermite_rs'; Filter: @HermiteFilter_rs; Width: 1.0), (Name: 'Bell'; Filter: @BellFilter; Width: 1.5), (Name: 'B-Spline'; Filter: @BSplineFilter; Width: 2.0), (Name: 'Lanczos3_rs'; Filter: @Lanczos3Filter_rs; Width: 3.0), (Name: 'Mitchell_rs'; Filter: @MitchellFilter_rs; Width: 2.0));

---

Je me balaye tout ça à grands coups de for i := 0 to length(ResampleFilters)-1 do ou autres ResampleFilters[cbbxFilters.ItemIndex].Filter, j'aime quand les choses fonctionnent ainsi ;)

Plus qu'à essayer de comprendre pourquoi Gaussian et BlackMan plantent violemment à l'exécution (plus un autre souci avec les 2 BlackManXXX), mais comme j'ai suffisamment à faire avec ceux qui restent, puisqu'il paraît que le mieux est l'ennemi du bien, je vais sans doute déclarer que ça va bien comme ça !

Bon dimanche,
:coucou:

Citation:

---

Envoyé par Jipété

Bonjour,

soit une seule ligne DestCanvas.Interpolation := (cbbxFilters.Text as TFPBaseInterpolation).Create; mais ça ne compile pas :

avec le curseur qui clignote devant le "as".

....

Si quelqu'un a une idée de ce qui manque, sa réponse sera un grand bonheur ;)

---

Bonjour Jipété,

Évidemment, que cela ne peut pas compiler ! Les opérateurs as, is appliqués à des instances d'objet, ont une signification bien précises. Mais là, je suis désolé, je vous le dis amicalement c'est du "n'importe quoi !".

Pour résoudre le problème de manière plus élégante, vous auriez pu utiliser le concept de "Référence de classe". Exemple :

Code:

---

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

Type TFPBaseInterpolationRefClass : Class of TFPBaseInterpolation;   ....   var aFPBaseInterpolationRefClass : TFPBaseInterpolationRefClass; aFPBaseInterpolation : TFPBaseInterpolation;     aFPBaseInterpolationRefClass := nil; // Une référence de classe peut être à nil, et donc ne référencer aucune classe case cbbxFilters.ItemIndex of 0: DestCanvas.Interpolation := aFPBaseInterpolationRefClass := TBilineairInterpolation; 1: DestCanvas.Interpolation := aFPBaseInterpolationRefClass := TBlackmanInterpolation;   ..... end;   // Exemple d'instantiation d'objets if aFPBaseInterpolationRefClass <> nil then aFPBaseInterpolation := aFPBaseInterpolationRefClass.Create else aFPBaseInterpolation := nil; // Ici , c'est l'instance d'objet qui est à nil.   // Exemple d'utilisation d'une instance d'objet if Assigned(aFPBaseInterpolation) then aFPBaseInterpolation.xxxx := ....;   ...   if (aFPBaseInterpolation is TBilineairInterpolation) then TBilineairInterpolation(aFPBaseInterpolation).yyyy := ..... ; ... if (aFPBaseInterpolation Is TBlackmanInterpolation) then TBlackmanInterpolation(aFPBaseInterpolation).zzzz := .....;

---

A+

Citation:

---

Envoyé par hmira

Évidemment, que cela ne peut pas compiler ! Les opérateurs as, is appliqués à des instances d'objet, ont une signification bien précises. Mais là, je suis désolé, je vous le dis amicalement c'est du "n'importe quoi !".

---

Oui oui, mais en général, je ne circule pas trop sur ces terrains minés et pleins de chausse-trappes :D
J'aurais dû faire précéder ma ligne "atroce" de la précision "pseudo-code".

Citation:

---

Envoyé par hmira

Pour résoudre le problème de manière plus élégante, vous auriez pu utiliser le concept de "Référence de classe". Exemple :

Code:

---

1 2 3 4 5 6 7

// Exemple d'utilisation d'une instance d'objet   if (aFPBaseInterpolation is TBilineairInterpolation) then TBilineairInterpolation(aFPBaseInterpolation).yyyy := ..... ; ... if (aFPBaseInterpolation Is TBlackmanInterpolation) then TBlackmanInterpolation(aFPBaseInterpolation).zzzz := .....;

---

---

Et donc une vingtaine d'entrées comme ça ? Sûrement efficace mais pas très élégant à mes yeux (bon, les goûts et les couleurs ça se discute pas ;)) : 20 filtres = une quarantaine de lignes lourdes, en plus dans le code de l'unité de l'ihm, moyen moyen, je préfère avoir tout ça dans l'unité dédiée aux filtres.

Merci quand même pour le tuyau (m'en rappellerais-je ? C'est une autre histoire...)

Citation:

---

Envoyé par Jipété

...Et donc une vingtaine d'entrées comme ça ? Sûrement efficace mais pas très élégant à mes yeux (bon, les goûts et les couleurs ça se discute pas ;)) : 20 filtres = une quarantaine de lignes lourdes, en plus dans le code de l'unité de l'ihm, moyen moyen, je préfère avoir tout ça dans l'unité dédiée aux filtres.

---

Bonjour,

Présenté comme ça, cela parait effectivement fastidieux ! MAIS, en réalité ce n'est pas comme cela que les choses se présentent et j'aurais du le préciser.

Le transtypage explicite est nécessaire et requis uniquement pour les propriétés et les méthodes statiques. Pour les propriétés et les méthodes virtuelles, il n'est nullement nécessaire d'effectuer des transtypage explicite avec des if ... is ... then Txx(aFPBaseInterpolation). xx), dès lors que l'instance d'objet (même si le type de la variable est déclarée en tant que classe de base exemple aFPBaseInterpolation : TFPBaseInterpolation) eut été créée et instanciée avec le type approprié, c.à.d. une classe descendante . Exemple : aFPBaseInterpolationRefClass := TBlackmanInterpolation.Create). En effet, il s'agit tout simplement du mécanisme du polymorphisme.

J'ai regardé par simple curiosité le code sources des classes TFPBaseInterpolation, TBilineairInterpolation, TBlackmanInterpolation, etc . et il s'avère que toutes les propriétés et méthodes des ces classes sont déclarées virtuelles, et même abstraites dans la classe ancêtre.

Donc d'après-mois aucun transtypage explicite ne sera nécessaire et donc je persiste et je signe que la méthode que je vous ai suggérée est la bonne approche. Maintenant, libre à vous d'opter pour une autres méthode inefficace comme celle par exemple qui consiste à faire des copier/coller du code source ! :D

A+

Bonsoir hmira,

Citation:

---

Envoyé par hmira

Pour résoudre le problème de manière plus élégante, vous auriez pu utiliser le concept de "Référence de classe". Exemple :
[--snip--]

---

J'ai réactivé mes recherches sur les filtres, et je suis bloqué sur un point bizarre.
Quand je compile votre exemple (résumé juste pour une lecture facile ici) :

Code:

---

1 2 3 4 5 6

var aFPBaseInterpolationRefClass : TFPBaseInterpolationRefClass; aFPBaseInterpolation : TFPBaseInterpolation; // post hmira begin case cbbxFilters.ItemIndex of 0: DestCanvas.Interpolation := aFPBaseInterpolationRefClass := TBilineairInterpolation;

---

je gagne ça au niveau de la ligne 0: :

Citation:

---

Error: Incompatible types: got "TFPBaseInterpolationRefClass" expected "TFPCustomInterpolation"

---

Je trouve ça très capricieux, chatouilleux et extrêmement bloquant (parce que, oui, en ce qui me concerne, tout ce qui est abstrait et virtuel, j'ai du mal à comprendre le sens des mots et la finalité des choses).

En plus, je ne savais même pas qu'on pouvait construire des choses avec 2 := qui se suivent ! On en apprend tous les jours, vous me direz, mais là, je ne sais pas ce que ça fait.
Quand je fais i := 3; je sais que je mets la valeur 3 dans ma variable i déclarée comme integer, par exemple, mais
DestCanvas.Interpolation := aFPBaseInterpolationRefClass := TBilinearInterpolation; je ne sais pas ce que ça fait, et je ne sais pas le dire et l'écrire en langage français, comme pour le i ci-dessus.

Un soupçon d'explications complémentaires ?
Merci,

Bonjour Jipété,

Comme je ne disposais pas du contexte complet de votre application, je vous ai donné un exemple rapide pour illustrer le concept et l'utilisation des références de classes tout essayant de rester le proche de votre code initial. J'ai utilisé vos propres noms de classes etc. Et il se troue qu'effectivement en le relisant, une erreur manifeste s'est glissée dans le code ! (il s'agit des ':=' qui se suivent dans la même instruction, et qui ne cherchez pas plus, ne veulent rien dire :) ! Mea culpa.

Cependant, le principe général des références de classes reste valable.

Le code ci-dessous, à adapter bien sûr, annule et remplace le code précédent

Voilà j'espère que cette fois-ci, il n'y a pas d'erreur, sinon, je vous fournirai à l'occasion un exemple complet et simple, en dehors du contexte de votre application, mettant en ouvre les références de classes. A charge à vous ensuite d'appliquer ces concepts dans votre application.

Code:

---

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

type TFPBaseInterpolationRefClass : Class of TFPBaseInterpolation; ....   var aFPBaseInterpolationRefClass : TFPBaseInterpolationRefClass; // aFPBaseInterpolation : TFPBaseInterpolation; // (n'est plus utilisée, remplacée directement par DestCanvas.Interpolation)   aFPBaseInterpolationRefClass := nil; // Une référence de classe peut être à nil, et donc ne référencer aucune classe case cbbxFilters.ItemIndex of 0: aFPBaseInterpolationRefClass := TBilineairInterpolation; 1: aFPBaseInterpolationRefClass := TBlackmanInterpolation; ..... end;   // Exemple d'instantiation d'objets if aFPBaseInterpolationRefClass <> nil then DestCanvas.Interpolation := aFPBaseInterpolationRefClass.Create else DestCanvas.Interpolation := nil; // Ici , c'est l'instance d'objet qui est à nil.   // Exemple d'utilisation d'une instance d'objet if Assigned(DestCanvas.Interpolation) then DestCanvas.Interpolation.xxxx := ....;   ... // Le Transtypage est requis uniquement pour les propriétés et les méthodes statiques if (DestCanvas.Interpolation is TBilineairInterpolation) then TBilineairInterpolation(DestCanvas.Interpolation).yyyy := ..... ; ... // Le Transtypage est requis uniquement pour les propriété et les méthode statiques if (DestCanvas.Interpolation Is TBlackmanInterpolation) then TBlackmanInterpolation(DestCanvas.Interpolation).zzzz := .....;

---

A+

Bonsoir,

merci pour ce retour, mais tout d'un coup j'ai eu une illumination :

d'abord j'ai utilisé la complétion de code et lorsque j'ai saisi DestCanvas point int le système m'a proposé Interpolation:TFPCustomInterpolation, ensuite j'ai regardé attentivement les 3 lignes concernées dans le tuto FreePascal (2 vraiment du tuto et 1 rajoutée par moi) :

Code:

---

1 2 3 4

// Execute the stretch draw via TFPSharpInterpolation // DestCanvas.Interpolation := TFPSharpInterpolation.Create; // une horreur, gardé pour mémoire [origine] DestCanvas.Interpolation := TMitchelInterpolation.Create; // OK [rajouté par moi] // suite du tuto :

---

et là je me suis dit : mon gars, tu as tout sous les yeux, qu'est-ce que tu vas te prendre la tête avec la complexité de la solution de hmira, genre DestCanvas.Interpolation.xxxx := ....; et il faudra lui demander par quoi remplacer xxxx et que mettre à droite du :=, la complétion n'étant pas très utile sur ce coup-là.

Et j'avais d'autant plus tout sous les yeux qu'in fine, c'est ce que j'avais déjà écrit dans le premier post :

Code:

---

1 2 3 4 5 6 7 8

case cbbxFilters.ItemIndex of 0: DestCanvas.Interpolation := TBlackmanInterpolation.Create; 1: DestCanvas.Interpolation := TBoxInterpolation.Create; 2: DestCanvas.Interpolation := TBsplineInterpolation.Create; 3: DestCanvas.Interpolation := TMitchelInterpolation.Create; end; // suite du tuto : DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);

---

et ça fonctionne ! :ccool:

Le seul souci (et c'est l'origine de cette discussion), c'est l'obligation de synchroniser à la main la liste dans le case cbbxFilters.ItemIndex et la liste d'items dans le combobox, avec tous les risques d'erreurs, de fautes de frappe, etc., et c'est ça dont je voulais m'affranchir.
Bah, si y a pas moyen y a pas moyen, faudra juste être très soigneux.

Demain les tests complets,
:coucou:

salut

pourquoi faire un case alors que tu peut tres bien instancier une class par son nom

Code:

---

DestCanvas.Interpolation := TFPBaseInterpolationRefClass(Findclass('MACLASSFINAL')) .create

---

Salut,

Citation:

---

Envoyé par anapurna

salut

pourquoi faire un case alors que tu peux très bien instancier une class par son nom

DestCanvas.Interpolation := TFPBaseInterpolationRefClass(Findclass('MACLASSFINAL')).create

---

Ah, toi, tu prends le train en marche et tu as raté le début de l'histoire, :mouarf:

En fait, c'est juste qu'au final j'ai une bonne vingtaine de filtres à tester et que le plus simple, dans ce cas, c'est le bon vieux combobox dont la liste d'items sera remplie avec la liste des filtres, d'où le case combobox.ItemIndex of que je vais d'ailleurs coupler avec le choix du fichier à traiter, du coup, une fois celui-ci déterminé, plus qu'à choisir un filtre ou un autre dans la liste du combo (qui aurait pu être une ListBox, d'ailleurs, mais elle prend plus de place), et roule ma poule !

salut

oui je prend le train en route mais je double tout le monde ;)

l'exemple que je t'ai donnée peut très bien s'écrire pour que ce soit plus parlant pour toi ;)

Code:

---

DestCanvas.Interpolation := TFPBaseInterpolationRefClass(Findclass(format('T%s',[cbbxFilters.Items[cbbxFilters.ItemIndex]]))).create

---

je te donne juste un exemple de ce qui est possible de faire sachant que les items des combo sont des TString
tu peut faire un peu ce que tu veut ajouter un objet ou gérer des libelles

autre exemple
initialisation

Code:

---

cbbxFilters.Items.AddObject('filtre1',TMitchelInterpolation.Create);

---

utilisation

Code:

---

DestCanvas.Interpolation := TFPBaseInterpolationRefClass(cbbxFilters.Items.Objects[cbbxFilters.ItemIndex])

---

voila mes 2 Cts
j’espère avoir fait avancer le schmilblick ;)

Citation:

---

Envoyé par anapurna

salut

pourquoi faire un case alors que tu peut tres bien instancier une class par son nom

Code:

---

DestCanvas.Interpolation := TFPBaseInterpolationRefClass(Findclass('MACLASSFINAL')) .create

---

---

Dans le cas présent Non !
En effet, sauf erreur de ma part, FindClass ne marche que pour les classes descendantes de TPersistent et de surcroit déjà enregistrées par RegisterClass ou RegisterClasses.
Or, il se trouve qu'aucune des classes qui nous concernent (TFPCustomInterpolation, TFPBaseInterpolation, TBlackmanInterpolation, TMitchelInterpolation, etc..) n'est persistante, et encore moins enregistrée !
Sinon, FindClass aurait été une très bonne idée et résoudrait incontestablement, de manière élégante, le problème de Jipété sans qu'il soit obligé d'avoir des illuminations.

A+

salut

le finclass n'est qu'un exemple j'ai pas regardé les ancêtres des filtres
finclass ne fait qu'une recherche dans une list d'objets on peut tres bien l’écrire soit même

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

//variable list global var classFilterByName : TStringList; ...   // Enregistrer une classe procedure registerClassFilterByName(classe: TFPBaseInterpolationRefClass); begin // Ajout de la classe si elle n'est pas déjà référencée if (classFilterByName.IndexOf(classe.ClassName) = -1) then begin classFilterByName.AddObject(classe.ClassName,TObject(classe)); end; end;

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

// Obtenir une classe par son nom function getClassFilterByName(nom: string): TFPBaseInterpolationRefClass; var i : integer; begin // Recherche dans la liste des classByName i := classFilterByName.IndexOf(nom); // si pas trouvé, on renvoie nil if (i = -1) then result := nil // si trouvé, on renvoie la classe associée else result := TFPBaseInterpolationRefClass(classFilterByName.objects[i]); end;

---

Code:

---

1 2 3 4 5 6

// enregistrement des classes : if classFilterByName = Nil Then classFilterByName := TStringList.Create;   registerClassFilterByName(TMitchelInterpolation);

---

...
// libération classFilterByName

Code:

---

1 2 3 4

if classFilterByName.count =1 Then begin classFiletrByName.Free; end;

---

// Utilisation :

Code:

---

1 2 3

getClassFilterByName('TMitchelInterpolation').create ...

---

je pense en avoir assez dis pour qu'il puisse se débrouiller tout seul ;)
on se sert d'une méthode similaire pour ajouter la lecture des différents format graphique

mes 2 Cts

Les noms remplissant la ComboBox viennent bien de quelque part... Soit une constante tableau de ces appellations avec une autre dimension pour une référence au type, un Create spécifique doit être aisé et éviter de s'emmêler dans l'ordre du combo et du case of, au mieux d'ailleurs avec un TStringList et un IndexOf sur le nom.

Citation:

---

Envoyé par anapurna

je pense en avoir assez dit pour qu'il puisse se débrouiller tout seul ;)

---

Bon, ben il va essayer demain, mais il rappelle qu'il a énormément de mal avec tout ce qui est abstrait, virtuel, impalpable...

En plus il essaye de mixer les Tfpmachinchose de Lazarus/FreePascal avec la construction trouvée dans l'unité Resample du projet DoubleCommander, qui se goupille ainsi (il ne met qu'un filtre pour ne pas trop alourdir) :

Code:

---

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

type // Type of a filter for use with Stretch() TFilterProc = function(Value: Single): Single;   // Sample filters for use with Stretch() function HermiteFilter (Value: Single): Single;   // Interpolator // Src: Source bitmap // Dst: Destination bitmap // filter: Weight calculation filter // fwidth: Relative sample radius procedure Stretch(Src, Dst: TBitmap; filter: TFilterProc; fwidth: single);   // ----------------------------------------------------------------------------- // List of Filters // -----------------------------------------------------------------------------   const ResampleFilters: array[0..1] of record Name : string; // Filter name Filter: TFilterProc; // Filter implementation Width : Single; // Suggested sampling width/radius end = ( (Name: 'Hermite'; Filter: HermiteFilter; Width: 1.0));   implementation   uses Math, IntfGraphics, GraphType, FPImage;   // ----------------------------------------------------------------------------- // Filter functions // -----------------------------------------------------------------------------   // Hermite filter function HermiteFilter(Value: Single): Single; begin // f(t) = 2|t|^3 - 3|t|^2 + 1, -1 <= t <= 1 if (Value < 0.0) then Value := -Value; if (Value < 1.0) then Result := (2.0 * Value - 3.0) * Sqr(Value) + 1.0 else Result := 0.0; end;

---

:coucou:

Voici une illustration de la class factory :

Code:

---

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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

implementation   {$R *.frm}   type TAncetre = class class function CreateDescendant(aIndex: integer): TAncetre; function QuiSuisJe: string; virtual; end;   TEnfant1 = class(TAncetre) function QuiSuisJe: string; override; end; TEnfant2 = class(TAncetre) function QuiSuisJe: string; override; end; TEnfant3 = class(TAncetre) function QuiSuisJe: string; override; end; TEnfant4 = class(TAncetre) function QuiSuisJe: string; override; end;   TClasseDescendant = class of TAncetre;   TAssociation = record Nom : string; Classe : TClasseDescendant; end;   var TableauAssociatif: array [1..4] of TAssociation;   { TForm1 }   procedure TForm1.Button1Click(Sender: TObject); var i: integer; Descendant: TAncetre; begin i:=Trunc(random(4))+1; Descendant:=TAncetre.CreateDescendant(i); ShowMessage(TableauAssociatif[i].Nom+' =? '+Descendant.QuiSuisJe); Descendant.Free; end;   class function TAncetre.CreateDescendant(aIndex: integer): TAncetre; begin Result:= TableauAssociatif[aIndex].Classe.Create; end;   function TAncetre.QuiSuisJe: string; begin Result:='TAncetre'; end;   function TEnfant1.QuiSuisJe: string; begin Result:='TEnfant1'; end;   function TEnfant2.QuiSuisJe: string; begin Result:='TEnfant2'; end;   function TEnfant3.QuiSuisJe: string; begin Result:='TEnfant3'; end;   function TEnfant4.QuiSuisJe: string; begin Result:='TEnfant4'; end;   initialization randomize; with TableauAssociatif[1] do begin Nom:='Enfant1'; Classe:=TEnfant1; end; with TableauAssociatif[2] do begin Nom:='Enfant2'; Classe:=TEnfant2; end; with TableauAssociatif[3] do begin Nom:='Enfant3'; Classe:=TEnfant3; end; with TableauAssociatif[4] do begin Nom:='Enfant4'; Classe:=TEnfant4; end;   finalization   end.

---

Bonjour Yves,

Citation:

---

Envoyé par tourlourou

Voici une illustration de la class factory

---

Tiens c'est marrant, ça, ça me fait penser à complètement autre chose, :mouarf: :mouarf: :mouarf:

Enjoy : https://www.youtube.com/watch?v=36UsDm5-kWQ

Et sinon, je ne te remercierai jamais assez, ton code a compilé du premier coup (juste faire attention au "frm", ;)) et s'est exécuté tip-top ! :ccool:

Plus qu'à (essayer de) tout comprendre, et c'est là que ça va un peu coincer : je connais mes limites...

Exemple : function QuiSuisJe: string; virtual;.


Une function blabla: string; je vois et capte instantanément ce que ça fait, c'est du concret de chez concret, du lourd, quoi.
Tu rajoutes "virtual;" au bout et c'est fini, je perds tous mes moyens intellectuels, je ne comprends comprends comprends pas : cette fonction ne retourne plus une bête string ? Elle retourne quoi, alors ? Une string virtuelle ? C'est quoi cette bête sournoise ?

J'avoue humblement être largué depuis le début de la POO sur ce coup-là...

Dans l'attente d'un petit coup de projecteur sur ce point sombre, mille millions de mercis pour ce qui précède !

C'est pour le polymorphisme. Virtual veut dire qu'une classe dérivée peut (ce n'est pas obligatoire) surcharger la méthode (override).

Code:

---

1 2 3 4 5 6 7 8

type TMyClass = class function ShowText :string; virtual; end;   TMySubClass = class(TMyClass) function ShowText :string; override; end;

---

On peut ainsi déclarer une variable de type générique TMyClass et l'instancier avec le type dérivé TMySubClass. Le ShowText appelé sera celui de TMySubClass.
Si on omet virtual et puisque la variable est de type TMyClass, c'est celui de TMyClass qui est appelé, même si l'instance est effectivement du type TMySubClass. Le lien est rompu.

En d'autres termes :
sans virtual, on se base sur le type déclaré ;
avec virtual, sur le type réel (si override).

Bien expliqué !

Pour tes devoirs de vacances, JP : relis à l'occasion les tutos de Gilles Vasseur sur la POO...

Et pardon à anapurna de ne pas avoir lu tous ses posts (notamment celui de 12h02), aux solutions plus élégantes (TStringList notamment) que le tableau...

Citation:

---

Envoyé par tourlourou

Pour tes devoirs de vacances, JP : relis à l'occasion les tutos de Gilles Vasseur sur la POO...

---

À l'occasion, promis, :mrgreen:

Citation:

---

Envoyé par tourlourou

Et pardon à anapurna de ne pas avoir lu tous ses posts (notamment celui de 12h02), aux solutions plus élégantes (TStringList notamment) que le tableau...

---

Mais pourquoi ? Une TStringList n'est-elle pas un bête tableau de... strings ?

Et grand merci à Andnotor pour sa lumineuse explication :ccool:

salut

en théorie oui, le Tstringlist est une liste de string, sauf que dans leur infini sagesse il l'ont couplé avec une liste d'objet ;)

Citation:

---

Envoyé par anapurna

salut

en théorie oui, le Tstringlist est une liste de string, sauf que dans leur infinie sagesse il l'ont couplé avec une liste d'objet ;)

---

Bah, si on devait faire avec des tableaux, il suffirait d'en prendre deux, comme avec l'écuyère au cirque avec deux chevaux : un pied sur chacun et en avant pour les tours de piste !
Au lieu de faire for i := 0 to longueur_tableau-1 do tableaustring[i] := 'du texte'; tu feras

Code:

---

1 2 3 4 5

for i := 0 to longueur_tableau-1 do begin tableaustring[i] := 'du texte'; // rien de changé tableauobjets[i] := un_objet; // juste ça en plus end;

---

et voilà !
:coucou:

salut

pour le parcourt d'un tableau
je prefere

Code:

---

for i:= low(montab) to high(montab) do

---

cela t’évite de commencer a zéro alors que le tableau est déclaré

Code:

---

Montab[1..N] of

---

Yep !

Citation:

---

Envoyé par anapurna

pour le parcours d'un tableau
je préfère

Code:

---

for i:= low(montab) to high(montab) do

---

---

Mis en application pour parcourir mon tableau de filtres, c'est ok, :ccool: la preuve :
Pièce jointe 286140

Grande victoire sur l'adversité et les démons sournois tapis dans l'ombre et les méandres des classes virtuelles et autres abstractions totalement incompréhensibles au pauvre péquenot terre-à-terre que je suis, qu'on en juge :

Ayant regardé attentivement le tuto n° 2 de Gilles, j'y ai trouvé

Code:

---

1 2 3 4 5

type TEtreVivant = class public procedure Boire; virtual; abstract; // à définir par les descendants end;

---

sans plus d'explications (qui sont sans doute ailleurs mais j'aurais préféré les avoir sous les yeux), donc merci Andnotor pour ton post d'hier, et plus loin (à peine raccourci) :

Code:

---

1 2 3 4 5 6 7 8

TAnimal = class(TEtreVivant) strict private fASoif: Boolean; public procedure Boire; override; // OK pour abstract published property ASoif: Boolean read fASoif write fASoif; end;

---

// OK pour abstract oui, et alors ? Voilà un autre commentaire qui n'explique rien lui non plus.

MP pour Gilles :

Citation:

---

Des méthodes et propriétés sans rapport avec l'abstraction ont été ajoutées afin de montrer que les classes enfants sont libres de définir ce qu'elles souhaitent en addition aux méthodes abstraites.

---

Ce § devrait être "remonté" sous le listing "unit abstractanimal;", àmha -- ça serait plus clair, je pense.

Bon, en ce qui me concerne, je crois que le problème est là :

Citation:

---

Pour vous en convaincre, vous allez examiner la classe TStrings de la RTL de Free Pascal, chargée de gérer à son niveau fondamental une liste de chaînes. Ce sont en fait ses descendants comme TStringList, une des classes les plus utilisées de la RTL, qui implémenteront les méthodes à même de traiter réellement les chaînes manipulées.

---

C'est un peu comme si on demandait à un chauffeur de taxi, qui doit connaître les rues de sa ville par cœur, de suivre un master en physique nucléaire sur la résistance des matériaux, juste parce que les pistons de son moteur sont en céramique.
Je trouve tout ça bien compliqué (ou alors c'est la chaleur, déjà, de bon matin...)

Par ailleurs, en termes purement linguistiques et de compréhension des mots au 1^er degré, en lisant ça dans le post d'Yves :

Code:

---

1 2 3

type TAncetre = class class function CreateDescendant(aIndex: integer): TAncetre; // méthode de classe

---

j'ai du mal à capter car pour moi CreateDescendant signifie qu'il est question de créer un descendant au type TAncetre et nom pas du type TAncetre, ce qui n'a aucun sens : je ne peux pas créer un descendant du type ascendant, je peux par contre créer un descendant à l'ascendant : mon fils descend de moi, il n'est pas un jumeau de moi.
J'aurais peut-être un peu mieux compris si j'avais lu class function CreateDescendant(aIndex: integer): TDescendant;

Plus loin c'est pareil !
Je tombe sur TClasseDescendant = class of TAncetre; que je traduis par le type Descendant est du type Ancêtre.
Le fils est le père, et le serpent se mord la queue !
Au secours, laissez-moi sortir !
:fou: :cfou: :marteau:

Encore plus fort, toujours dans ton code :

Code:

---

1 2	var Descendant: TAncetre;

---

pour moi ce que je lis là n'a aucun sens, d'ailleurs, en regardant le type basique d'une fiche (nouvelle application et y poser un bouton), on voit bien qu'un Button1 est du type TButton, c'est logique -- les choses seraient plus simples si je pouvais lire Descendant1: TDescendant; ou Ancetre1: TAncetre; -- alors, oui, si j'avais pour les boutons

Code:

---

1 2	schmilblik: TButton; zorglub: TButton ;

---

ça fonctionnerait aussi, tout comme avec

Code:

---

1 2	scrollbox: TButton; un_panel : TButton;

---

mais faudrait être bien dérangé du bulbe pour appeler ses boutons ainsi (les miens commencent par "btn") alors désolé, mais pour moi Descendant: TAncetre ça ne passe pas, et à partir de là tout le reste s'écroule.

Surtout quand je lis ça un peu plus bas :

Citation:

---

Les méthodes de classe obéissent en effet aux mêmes règles de portée et d'héritage que les méthodes ordinaires. En particulier, elles peuvent être virtuelles.

---

Là, je me dis que la POO n'est vraiment pas un truc pour moi : je ne vois dans cette citation claire et limpide et sans aucune faute qu'un charabia incompréhensible, une bouillie de mots ne représentant rien, et je ne peux pas passer mon temps à jouer avec la roulette de la souris pour revoir à chaque fois ce que veut dire tel ou tel mot, mots qui se refusent à intégrer les neurones fatigués de ma cervelle bouillante...

Tu vois, j'ai fait l'effort d'y aller voir mais je me suis retrouvé en perdition en plein brouillard...
Bon, je ne renonce pas, je vais avancer step-by-step avec ma méthode : je change une chose ici j'exécute et je vois ce que ça donne, puis je change une autre chose là et etc.

Et au final, en repartant de mon tableau de TFPCustomInterpolation (d'hier ou avant-hier, je ne sais plus) et ayant découvert grâce à la complétion la magie de la propriété ClassName (je crois que c'est anapurna [encore lui ! Quel garçon efficace ;)] qui m'a mis sur la piste), ben vous avez vu en haut l'image, avec le Combobox rempli dynamiquement à la création du tableau dans le FormCreate. Trop bien !
:yaisse2:

Je peux recocher :resolu:

EDIT : 2 minutes pour passer de la maquette à la vraie vie, que du bonheur !
Pièce jointe 286161

Plus qu'à tester (et là, je sais déjà qu'il va y avoir du sport...:weird:)

Citation:

---

Envoyé par Jipété

Code:

---

1 2 3 4 5

type TEtreVivant = class public procedure Boire; virtual; abstract; // à définir par les descendants end;

---

sans plus d'explications (qui sont sans doute ailleurs mais j'aurais préféré les avoir sous les yeux), donc merci Andnotor pour ton post d'hier, et plus loin (à peine raccourci)

---

Si on repart de ceci :

Citation:

---

Envoyé par Andnotor

C'est pour le polymorphisme. Virtual veut dire qu'une classe dérivée peut (ce n'est pas obligatoire) surcharger la méthode (override).

---

l'ajout de abstract donnerait :
Virtual abstract veut dire qu'une classe dérivée doit surcharger la méthode si elle veut l'utiliser puisque l'implémentation n'existe pas encore (le numéro dans la rue a déjà été attribué mais la maison n'est pas encore construite :lol:).

Citation:

---

Envoyé par Jipété

Je tombe sur TClasseDescendant = class of TAncetre; que je traduis par le type Descendant est du type Ancêtre.
Le fils est le père, et le serpent se mord la queue !

---

Ce n'est pas est le père mais est du même type que le père, il en a toutes les caractéristiques.

Citation:

---

Envoyé par Jipété

Encore plus fort, toujours dans ton code :

Code:

---

1 2	var Descendant: TAncetre;

---

pour moi ce que je lis là n'a aucun sens

---

C'est pourtant ça le polymorphisme et c'est exactement ce que j'expliquais plus haut avec TMyClass, TMySubClass (tu semblais avoir compris pourtant).

Citation:

---

Envoyé par Jipété

d'ailleurs, en regardant le type basique d'une fiche (nouvelle application et y poser un bouton), on voit bien qu'un Button1 est du type TButton, c'est logique

---

Bien sûr que c'est logique mais c'est au design, le type réel est connu (et immuable).

Maintenant, définis l'événement OnClick et surprise, le paramètre Sender et de type TObject et non TButton, pourtant Sender représente le bouton. Ça ne te choque pas ça ?
TButton (Descendant) est dérivé de TObject (Ancêtre).

Citation:

---

Envoyé par Jipété

les choses seraient plus simples si je pouvais lire Descendant1: TDescendant;

---

Rien ne t'interdit de le faire mais ce serait juste une lourdeur supplémentaire, une classe intermédiaire qui ne fait rien, ne sert à rien et ne devrait même pas être instanciable dans ta logique.

Bonjour bonjour,

Citation:

---

Envoyé par Andnotor

C'est pourtant ça le polymorphisme et c'est exactement ce que j'expliquais plus haut avec TMyClass, TMySubClass (tu semblais avoir compris pourtant).

---

J'atteins la limite de mes compétences et capacités intellectuelles, là (même si c'est évident pour d'autres).

Citation:

---

Envoyé par Jipété

Plus qu'à tester (et là, je sais déjà qu'il va y avoir du sport...:weird:)

---

J'ai généré ce gif en partant d'un fichier 400x300x24 et en demandant un agrandissement de 120 %, ce qui est le but final : comparer le travail des différents filtres (16) pour savoir lequel utiliser en fonction du résultat recherché.
Regardez particulièrement le damier ou les textes, et oubliez Lena, la compression gif ne l'avantage vraiment pas :mouarf: :
Pièce jointe 286480

Pour y arriver, je suis donc parti de mon unité dérivée de extinterpolation.pp, à laquelle j'ai rajouté, tout en haut :

Code:

---

1 2	type TArrayOfCustomInterpolation = array of TFPCustomInterpolation;

---

au milieu :

Code:

---

1 2 3 4 5

var aArrayOfCustomInterpolation: TArrayOfCustomInterpolation;   implementation ...

---

et tout en bas :

Code:

---

1 2 3 4 5 6 7 8 9

initialization // Help SetLength : // In the case of a dynamical array, SetLength sets the number of elements. // The elements are numbered from index 0, so the count runs from 0 to Len-1.   SetLength(aArrayOfCustomInterpolation, 16); aArrayOfCustomInterpolation[00] := TBilinearInterpolation_ei.Create; // 14 lignes identiques, juste le nom qui change, supprimées pour alléger le post aArrayOfCustomInterpolation[15] := TQuadraticInterpolation_ei.Create;

---

1^re question : est-ce que j'ai le droit de faire ça (créer une Array of TFPCustomInterpolation), ou est-ce que je vais dans le mur ?
Car si j'ai bien compris le film, on peut créer des Arrays de tout et n'importe quoi, alors pourquoi pas de TFPCustomInterpolation...
En tout cas ça fonctionne, vous avez vu le gif, j'explique un poil plus bas comment j'ai fait.
Mais je vais aussi dans le mur, continuez à lire...


Ensuite, dans unit1, le début de l'utilisation avec le remplissage du combobox :

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin for i:= Low(aArrayOfCustomInterpolation) to High(aArrayOfCustomInterpolation) do cbbxFilters.Items.Add(aArrayOfCustomInterpolation[i].ClassName); // allégé pour lisibilité ici end;

---

Quand je clique sur la flèche il est rempli (vous avez vu l'image hier),
Pièce jointe 286161
et quand je l'utilise il me génère bien 16 fichiers plus ou moins différents, et voilà le cœur de la procédure de resize:

Code:

---

1 2 3 4 5 6

for i := 0 to cbbxFilters.Items.Count-1 do begin SetupBMPdestination(120); // le coeff pour agrandir cbbxFilters.ItemIndex:=i; StretchDrawWithFilter(src, dst, dst.Width, dst.Height); dst.SaveToFile(FileUtil.ProgramDirectory+'output/agr_120/'+cbbxFilters.Items.Strings[i]+'.bmp'); end;

---

et le cœur de la sous-procédure StretchDrawWithFilter :

Code:

---

1 2 3 4

memo1.Lines.Add(aArrayOfCustomInterpolation[i].ClassName); // pour vérif Application.ProcessMessages; DestCanvas.Interpolation := aArrayOfCustomInterpolation[cbbxFilters.ItemIndex]; //!\ /!\ /!\ DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);

---

Contact avec le mur... :aie:
Si je vous balance ces deux bouts de proc pour l'utilisation, c'est parce qu'il est impossible de générer en une seule passe une image agrandie suivie d'une image réduite (ou l'inverse), c'est SIGSEGV garanti !
J'ai tout tenté dans tous les sens (d'où ce post), j'en suis arrivé à la conclusion qu'il était impossible de faire un truc aussi simple que

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

// pour chaque filtre for i := 0 to cbbxFilters.Items.Count-1 do begin cbbxFilters.ItemIndex:=i; // a) réduire l'image et l'enregistrer SetupBMPdestination(80); // définit la taille du bitmap de destination StretchDrawWithFilter(src, dst, dst.Width, dst.Height); dst.SaveToFile(FileUtil.ProgramDirectory+'output/red_080/'+cbbxFilters.Items.Strings[i]+'.bmp');   // b) agrandir l'image " " " " SetupBMPdestination(120); // définit la taille du bitmap de destination StretchDrawWithFilter(src, dst, dst.Width, dst.Height); dst.SaveToFile(FileUtil.ProgramDirectory+'output/agr_120/'+cbbxFilters.Items.Strings[i]+'.bmp'); end;

---

J'ai même essayé de rajouter entre les deux actions,

Code:

---

1 2	dst.Free; dst := TBitMap.Create;

---

ça ne change rien, et au plantage je retrouve le curseur clignotant devant memo1.Lines...

Encore plus fort : j'utilise un second bouton pour séparer les deux jobs (un bouton pour agrandir, un bouton pour réduire), les codes sont strictement identiques à tous les points de vue, il n'y a que la variable indiquant le % du changement de taille et le sous-dossier d'enregistrement qui sont modifiés et que croyez-vous qu'il se passe en cliquant sur le second bouton peu importe que je commence par celui qui réduit ou celui qui agrandit ? Le même SIGSEGV sur le premier filtre de la liste...
Comme s'il n'était pas possible d'utiliser deux fois les filtres.
Quelqu'un pour m'expliquer ça ?

Désolé d'avoir été un peu long, mais c'est pour bien cerner la chose.

Citation:

---

Envoyé par Jipété

Bon, ben il va essayer demain, mais il rappelle qu'il a énormément de mal avec tout ce qui est abstrait, virtuel, impalpable...

---

Citation:

---

Envoyé par Jipété

J'atteins la limite de mes compétences et capacités intellectuelles, là (même si c'est évident pour d'autres).

---

Bonjour Jipété,

Il y a environ 2,6 millions d’années, il y a eu l’émergence des homo habilis, (La classe THomoHabilis) dont le volume du cerveau dépassait déjà les 500 cm³, et chez qui est née la pensée conceptuelle. Les homo habilis étaient déjà capables de fabriquer des outils en fonction de projets futurs.

La classe TJiPete est une classe descendante de THomoSapiens elle-même descendante de (THomoHabilis). Vous en tant que instance Jipété, comme nous tous d'ailleurs, vous eûtes été créé et instancié à partir d'une classe descendante la classe THomoSapiens, elle même, descendante de la classe THomoHabilis (Exemple TTJiPete=Class(THomoSapiens)), vous héritez donc de toutes les capacités de la classe THomoHabilis notamment la pensée conceptuelle. Donc intrinsèquement, vous allez surement finir par y arriver et comprendre ces concepts.

Si au contraire, vous êtes un extra terrestre, ce qui n'est pas complètement exclu, alors on ne pourra rien faire pour vous ! :)

A+

Bonsoir,

Citation:

---

Envoyé par hmira

[...] vous héritez donc de toutes les capacités de la classe THomoHabilis

---

C'est bien ce que je m'étais noté dans un coin, pour essayer de décortiquer tout ça :

Hiérarchie des choses :

Code:

---

1 2 3 4

TFPCustomInterpolation = class // voir FPCanvas lignes 165 et suivantes TFPBaseInterpolation = class (TFPCustomInterpolation) TFPSharpInterpolation = class (TFPCustomInterpolation) // 1 cas particulier (pourquoi ?) -- LazCanvas ligne 830 TxxxxxxxInterpolation = class (TFPBaseInterpolation) xxxxxxx = nom du filtre, il y en a 13 dans extinterpolation.pp

---

J'ai sans aucun doute atteint mon niveau d'incompétence (comme tout le monde :P) et je l'admets, c'est pourquoi je repose ma question :
est-ce que j'ai le droit de créer une Array of TFPCustomInterpolation ?

Car pour moi la réponse est oui, même si je me prends le mur (c'est la faute au mur ! Il n'a qu'à pas être là :calim2:).

Sinon, comment regrouper dans la même caisse à outils le filtre TFPSharp et tous les autres Txxxxxx ? Je ne vois pas.
Et je ne vois pas non plus pourquoi je me prends le mur.

Imaginons un véhicule équipé d'une boîte 3 positions : marche avant-arrêt-marche arrière. Ce qui m'arrive, c'est que partant de la position arrêt, quel que soit le sens de marche choisi, il est ensuite impossible d'en changer sans exploser la boîte.
Truc de fou... :marteau:

Et en fait, non, c'est même plus vicieux que ça (et ça m'enfonce encore plus bas, question diagnostic) : je repars d'un de mes deux boutons (celui qui réduit, au hasard) et à la fin de la boucle sur les 16 filtres, je rajoute un nouvel accès juste sur le premier filtre (si c'est un autre c'est pareil) :

Code:

---

1 2 3 4 5 6

... end; SetupBMPdestination(80); cbbxFilters.ItemIndex:=0; // sélection 1er filtre StretchDrawWithFilter(src, dst, dst.Width, dst.Height); dst.SaveToFile(FileUtil.ProgramDirectory+'output/red_080/'+cbbxFilters.Items.Strings[0]+'.bmp');

---

Et vous avez compris, paf !, le mur ligne 5...

Je rappelle que c'est comme ça que fonctionne le tuto (à mon adaptation de l'array près) :

Code:

---

1 2 3 4

// Execute the stretch draw via TFPSharpInterpolation //DestCanvas.Interpolation := TFPSharpInterpolation.Create;//une horreur, gardé pour mémoire [origine] DestCanvas.Interpolation := TMitchelInterpolation.Create; // test moi OK //DestCanvas.Interpolation := TQuadraticInterpolation.Create; // test moi OK

---

Je rappelle aussi que DestCanvas.Interpolation := attend un TFPCustomInterpolation.Create;.

Que faire de plus ? Sortir un tarot ? Le pendule ? Faire tourner les tables ? Je ne sais pas...

En fait, en regardant attentivement les 4 lignes qui précèdent, et la manière dont je les utilise, je me dis que j'ai un .Create mal placé :
je remplis la liste avec

Code:

---

1 2	aArrayOfCustomInterpolation[00] := TBilinearInterpolation_ei.Create; // et les 15 autres

---

et je l'utilise avec
DestCanvas.Interpolation := aArrayOfCustomInterpolation[cbbxFilters.ItemIndex];.

Le gag est peut-être là alors je tente un remplissage avec

Code:

---

1 2	aArrayOfCustomInterpolation[00] := TBilinearInterpolation_ei; // et les 15 autres

---

mais ça ne compile pas, allez comprendre :

Citation:

---

Incompatible types: got "Class Of TBilinearInterpolation_ei" expected "TFPCustomInterpolation"

---

alors que plus haut on peut lire TBilinearInterpolation_ei = class (TFPBaseInterpolation) et encore plus haut TFPBaseInterpolation = class (TFPCustomInterpolation).

Bref, pour que ça compile, il me faut bidouiller

Code:

---

1 2	aArrayOfCustomInterpolation[00] := TFPCustomInterpolation(TBilinearInterpolation_ei); // et les 15 autres

---

Ça sent son mur...

Bah nan, ça compile pas du tout, à cause de la proc d'utilisation.
Le bon sens, en restant dans l'idée de ce .Create déplacé, serait de maintenant faire DestCanvas.Interpolation := aArrayOfCustomInterpolation[cbbxFilters.ItemIndex].Create; mais faut pas rêver, hein !

Citation:

---

Incompatible types: got "TObject" expected "TFPCustomInterpolation"

---

Il me semblait pourtant avoir déclaré une array of TFPCustomInterpolation, alors bon, je ne sais pas quoi lui dire, là.
Du coup, pour avancer (vers le mur) je commente cette ligne, et ça compile sans erreur, très bien, mais ça ne passe pas le FormCreate, qui contient

Code:

---

1 2	for i:= Low(aArrayOfCustomInterpolation) to High(aArrayOfCustomInterpolation) do cbbxFilters.Items.Add(aArrayOfCustomInterpolation[i].ClassName);

---

Le mur s'est déplacé là...

Et je n'ai plus d'idées.

Citation:

---

est-ce que j'ai le droit de créer une Array of TFPCustomInterpolation

---

Ça semble être la bonne approche, qui loge des descendants dans un tableau d'objets héritant tous de cette classe ancestrale.

Ceci n'explique pas ton problème de réutilisation des filtres... Dont je ne sais pas qui les utilise : une procédure que tu as écrite, ou une fonction de FPC ?

Manque-t-il une initialisation du filtre ? Sont-ils à usage unique ? Il manque du code pour explorer le problème. Essaye de voir si un TonFiltre.Initialize améliore les choses après l'avoir assigné à un Canvas.

Bonjour Yves,

Citation:

---

Envoyé par tourlourou

Ça semble être la bonne approche, qui loge des descendants dans un tableau d'objets héritant tous de cette classe ancestrale.

---

Aaaaaaaaaaaaaaaaaah, tu me rassures :ccool:

Cependant, la suite de ta réponse me laisse plus que perplexe...

Citation:

---

Envoyé par tourlourou

Ceci n'explique pas ton problème de réutilisation des filtres... Dont je ne sais pas qui les utilise : une procédure que tu as écrite, ou une fonction de FPC ?

---

Je reprends : il y a un tuto (lien) qui fonctionne bien avec seulement 2 procédures, une main qui choisit le fichier à traiter, l'ouvre, paramètre les bitmaps, et appelle la "travailleuse" qui va bosser avec le filtre.
Son cœur c'est ça, ie, tout ce qui est avant et après n'est pas changé dans mon utilisation :

Code:

---

1 2	// Execute the stretch draw via TFPSharpInterpolation DestCanvas.Interpolation := TFPSharpInterpolation.Create;

---

que j'ai très vite transformé en

Code:

---

1 2 3 4

// Execute the stretch draw via TFPSharpInterpolation // DestCanvas.Interpolation := TFPSharpInterpolation.Create; // une horreur, gardé pour mémoire [origine] // DestCanvas.Interpolation := TMitchelInterpolation.Create; // test moi OK -- source : FPCanvas DestCanvas.Interpolation := TQuadraticInterpolation.Create; // autre test moi OK -- source : extinterpolation

---

et qui devient au final, avec ma collection de filtres,

Code:

---

1 2 3 4 5

// Execute the stretch draw via TFPSharpInterpolation // DestCanvas.Interpolation := TFPSharpInterpolation.Create; // une horreur, gardé pour mémoire [origine] // DestCanvas.Interpolation := TMitchelInterpolation.Create; // test moi OK -- source : FPCanvas // DestCanvas.Interpolation := TQuadraticInterpolation.Create; // autre test moi OK -- source : extinterpolation DestCanvas.Interpolation := aArrayOfCustomInterpolation[cbbxFilters.ItemIndex];

---

Cette collection contient par exemple

Code:

---

1 2 3

aArrayOfCustomInterpolation[x] := TFPSharpInterpolation.Create; aArrayOfCustomInterpolation[x] := TMitchelInterpolation.Create; aArrayOfCustomInterpolation[z] := TQuadraticInterpolation.Create;

---

Voilà. Tout est résumé ci-dessus.

Citation:

---

Envoyé par tourlourou

Manque-t-il une initialisation du filtre ? Sont-ils à usage unique ? Il manque du code pour explorer le problème. Essaye de voir si un TonFiltre.Initialize améliore les choses après l'avoir assigné à un Canvas.

---

1-) TonFiltre.Initialize, la complétion ne le propose pas. Cependant, on peut trouver ça, dans fpinterpolation.inc :

Code:

---

1 2 3 4 5

procedure TFPCustomInterpolation.Initialize(aimage: TFPCustomImage; acanvas: TFPCustomCanvas); begin fimage := aimage; fcanvas := acanvas; end;

---

Mais ça a l'air de concerner l'image plutôt que les "internals" du filtre.

2-) étant entendu que le tuto n'en fait pas état, je me suis lancé dans un test à partir de la proc "main" du tuto, dans un nouveau bouton (juste la partie concernée, là) :

Code:

---

1 2 3 4 5 6 7 8

StretchDrawBitmapToBitmap(src, dst, dst.Width, dst.Height); // appelle la "travailleuse", qui utilise le filtre Mitchell image1.Picture.Bitmap := dst; showmessage('après affichage1'); // image1 est bien visible image1.Picture.Bitmap.FreeImage; image1.Picture := nil; showmessage('après affichage2'); // image1 a bien été effacée StretchDrawBitmapToBitmap(src, dst, dst.Width, dst.Height); // Rappelle la "travailleuse" avec le même filtre image1.Picture.Bitmap := dst; // image1 bien réaffichée, pas d'AV, tout va bien

---

J'en conclus que ma collection n'est pas bonne, chose que je commence à supposer de plus en plus fort, à tel point que j'ai fait un essai (totalement négatif) hier soir dont je vous ai touché deux mots à partir de "En fait, en regardant attentivement [...]" vers le milieu du post.

Pour bien faire, il me faudrait arriver à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

// Execute the stretch draw via TFPSharpInterpolation // DestCanvas.Interpolation := TFPSharpInterpolation.Create; // une horreur, gardé pour mémoire [origine] // DestCanvas.Interpolation := TMitchelInterpolation.Create; // test moi OK -- source : FPCanvas // DestCanvas.Interpolation := TQuadraticInterpolation.Create; // autre test moi OK -- source : extinterpolation // DestCanvas.Interpolation := aArrayOfCustomInterpolation[cbbxFilters.ItemIndex]; DestCanvas.Interpolation := aArrayOfFilters[cbbxFilters.ItemIndex].Create;   aArrayOfFilters[x] := TFPSharpInterpolation; aArrayOfFilters[x] := TMitchelInterpolation; aArrayOfFilters[z] := TQuadraticInterpolation;

---

Bon, je vais travailler là-dessus...

Salut JP !

J'ai voulu faire un test à partir du même tuto que celui que tu cites : zéro ! La pauvre Léna redimensionnée me fournit une image unicolore, ou rien !

Code:

---

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

procedure TForm1.Button1Click(Sender: TObject); type TFPCustomInterpolationClass = class of TFPCustomInterpolation; var Filtres: array[0..2] of TFPCustomInterpolationClass; SourceBitmap, DestBitmap: TBitmap; DestWidth, DestHeight: integer; DestIntfImage, SourceIntfImage: TLazIntfImage; DestCanvas: TLazCanvas; begin Filtres[0]:=TFPSharpInterpolation; // hérite directement de TFPCustomInterpolation (lazcanvas.pas) Filtres[1]:=TMitchelInterpolation; // hérite de TFPBaseInterpolation, qui hérite de TFPCustomInterpolation (fpcanvas.pas) Filtres[2]:=TLanczosInterpolation; // idem (extinterpolation.pas) // Using the non-native StretchDraw from LazCanvas ; from : http://wiki.freepascal.org/Developing_with_Graphics   //Prepare the source   SourceBitmap:=TBitmap.Create; SourceBitmap.LoadFromFile('c:\tests\lena.bmp'); // 512x512 Image1.Picture.Bitmap.Assign(SourceBitmap); // vérification bien chargée SourceIntfImage := TLazIntfImage.Create(0, 0); SourceIntfImage.LoadFromBitmap(SourceBitmap.Handle, 0);   // Prepare the destination   DestBitmap := TBitmap.Create; // if not DestBitmap.HandleAllocated then DestBitmap.PixelFormat:=pf24Bit; // DestBitmap.PixelFormat:=pf24Bit; DestIntfImage := TLazIntfImage.Create(0, 0); DestIntfImage.LoadFromBitmap(DestBitmap.Handle, 0);   DestCanvas := TLazCanvas.Create(DestIntfImage);   // Execute the stretch draw via TFPSharpInterpolation DestCanvas.Interpolation := Filtres[0].Create; DestWidth:=400; DestHeight:=600; DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);   // Reload the image into the TBitmap DestBitmap.LoadFromIntfImage(DestIntfImage); Image2.Picture.Bitmap.Assign(DestBitmap); // vérification bien exécuté {   // 2ème redimensionnement   DestWidth:=800;   DestHeight:=800;   DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);     // Reload the image into the TBitmap   DestBitmap.LoadFromIntfImage(DestIntfImage);   Image3.Picture.Bitmap.Assign(DestBitmap); // vérification bien exécuté } SourceIntfImage.Free; DestCanvas.Interpolation.Free; DestCanvas.Free; DestIntfImage.Free; SourceBitmap.Free; DestBitmap.Free; // Filtres[0].Free; // Filtres[1].Free; // Filtres[2].Free;   end;

---

[EDIT] DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage); renvoie un DestIntfImage de 1 x 1 pixels !!! en lui demandant par exemple 400 x 600...

Citation:

---

Envoyé par tourlourou

Salut JP !

J'ai voulu faire un test à partir du même tuto que celui que tu cites : zéro ! La pauvre Léna redimensionnée me fournit une image unicolore, ou rien !

---

T'as dû te prendre les pieds dans le tapis, à force ça épuise, ce truc. EDIT : vu ton EDIT après avoir posté tout ça. Ça confirme, :mouarf: /EDIT

Je suis reparti du tuto, j'ai conservé le principe des deux procs séparées, proc "travailleuse", une seule modif, l'ajout d'un paramètre à lui passer :

Code:

---

1 2	procedure TForm1.StretchDrawBitmapToBitmap(SourceBitmap, DestBitmap: TBitmap; DestWidth, DestHeight: integer; idx: cardinal); // idx !

---

qui s'utilise ainsi :

Code:

---

1 2 3 4 5 6 7 8

// Execute the stretch draw via TFPSharpInterpolation // nouvelle version avec idx : case idx of 0: DestCanvas.Interpolation := TFPSharpInterpolation.Create; // une horreur, gardé pour mémoire [origine] 1: DestCanvas.Interpolation := TMitchelInterpolation.Create; // OK 2: DestCanvas.Interpolation := TLanczosInterpolation.Create; end; DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);

---

et dans la proc appelante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

StretchDrawBitmapToBitmap(src, dst, dst.Width, dst.Height, x); // image1.Picture.Bitmap := dst;   dst.Width := src.Width * (coeff div 2) Div 100; dst.Height := src.Height * (coeff div 2) Div 100; StretchDrawBitmapToBitmap(src, dst, dst.Width, dst.Height, x); // image2.Picture.Bitmap := dst;   dst.Width := src.Width * (coeff div 4) Div 100; dst.Height := src.Height * (coeff div 4) Div 100; StretchDrawBitmapToBitmap(src, dst, dst.Width, dst.Height, x); // image3.Picture.Bitmap := dst;

---

j'ai mis x x x car en fait, j'ai fait trois manips : 0 1 2, 0 0 0, et 2 2 2

et voilà les résultats avec une Lena 400x300 et de haut en bas image1, 2 et 3 (2 et 3 mal alignées à gauche) :
Pièce jointe 286560 Pièce jointe 286561 Pièce jointe 286565

De gauche à droite : les 3 filtres, juste Sharp (épaule massacrée, textes pourris), juste Lanczos.

En attendant, tu me donnes une super idée avec ton

Code:

---

1 2	type TFPCustomInterpolationClass = class of TFPCustomInterpolation;

---

À suivre,
:coucou:

Arf, il fallait donner les dimensions au Bitmap de destination...
Le code suivant fonctionne en utilisant le même filtre, pour successivement 2 redimensionnements de la même source :

Code:

---

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

procedure TForm1.Button1Click(Sender: TObject); type TFPCustomInterpolationClass = class of TFPCustomInterpolation; var Filtres: array[0..2] of TFPCustomInterpolationClass; SourceBitmap, DestBitmap: TBitmap; DestWidth, DestHeight: integer; DestIntfImage, SourceIntfImage: TLazIntfImage; DestCanvas: TLazCanvas; begin Filtres[0]:=TFPSharpInterpolation; // hérite directement de TFPCustomInterpolation (lazcanvas.pas) Filtres[1]:=TMitchelInterpolation; // hérite de TFPBaseInterpolation, qui hérite de TFPCustomInterpolation (fpcanvas.pas) Filtres[2]:=TLanczosInterpolation; // idem (extinterpolation.pas)   // Using the non-native StretchDraw from LazCanvas ; from : http://wiki.freepascal.org/Developing_with_Graphics //Prepare the source   SourceBitmap:=TBitmap.Create; SourceBitmap.LoadFromFile('c:\tests\lena.bmp'); // 512x512 Image1.Picture.Bitmap.Assign(SourceBitmap); // vérification que l'image a bien été chargée SourceIntfImage := TLazIntfImage.Create(0, 0); SourceIntfImage.LoadFromBitmap(SourceBitmap.Handle, 0);   // Prepare the destination DestWidth:=400; DestHeight:=400; DestBitmap := TBitmap.Create; DestBitmap.Width:=DestWidth; DestBitmap.Height:=DestHeight; DestIntfImage := TLazIntfImage.Create(0, 0); DestIntfImage.LoadFromBitmap(DestBitmap.Handle, 0);   DestCanvas := TLazCanvas.Create(DestIntfImage);   // Execute the stretch draw via TFPSharpInterpolation DestCanvas.Interpolation := Filtres[0].Create; DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);     // Reload the image into the TBitmap DestBitmap.LoadFromIntfImage(DestIntfImage); Image2.Picture.Bitmap.Assign(DestBitmap); // vérification bien exécuté   // 2ème redimensionnement DestWidth:=800; DestHeight:=800; DestBitmap.Width:=DestWidth; DestBitmap.Height:=DestHeight; DestIntfImage.LoadFromBitmap(DestBitmap.Handle, 0); DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);   // Reload the image into the TBitmap DestBitmap.LoadFromIntfImage(DestIntfImage); Image3.Picture.Bitmap.Assign(DestBitmap); // vérification bien exécuté   SourceIntfImage.Free; DestCanvas.Interpolation.Free; DestCanvas.Free; DestIntfImage.Free; SourceBitmap.Free; DestBitmap.Free;   end;

---

Citation:

---

Envoyé par tourlourou

Arf, il fallait donner les dimensions au Bitmap de destination...

---

8-)
Bien joué,

Citation:

---

Envoyé par tourlourou

Le code suivant fonctionne en utilisant le même filtre, pour successivement 2 redimensionnements de la même source :

---

Vérifié, validé, :plusser:

Sinon, suite à ta piste class of, j'ai un poil modifié les noms, a priori ça le fait !
Dans mon module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

type // manip Yves TFPCustomInterpolationClass = class of TFPCustomInterpolation; // et ce mot-clé, "class of", je ne pouvais pas le deviner TArrayOfFilters = array of TFPCustomInterpolationClass;   var aArrayOfFilters: TArrayOfFilters;   implementation   ...   initialization SetLength(aArrayOfFilters, 16); aArrayOfFilters[00] := TBilinearInterpolation_ei; // 14 autres entrées similaires aArrayOfFilters[15] := TQuadraticInterpolation_ei;

---

Dans unit1 :
FormCreate :

Code:

---

1 2 3

for i := 0 to Length(aArrayOfFilters)-1 do cbbxFilters.Items.Add(aArrayOfFilters[i].ClassName); cbbxFilters.DropDownCount := cbbxFilters.Items.Count;

---

bouton 15 (j'en suis à 18 ! Ménage plus tard...), proc principale :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

// a) pour chaque filtre réduire l'image et l'enregistrer for i := 0 to cbbxFilters.Items.Count-1 do begin SetupBMPdestination(80); cbbxFilters.ItemIndex:=i; StretchDrawWithFilter(src, dst, dst.Width, dst.Height); dst.SaveToFile(FileUtil.ProgramDirectory+'output/red_080/'+cbbxFilters.Items.Strings[i]+'.bmp'); end;   // b) pour chaque filtre agrandir l'image " " " " for i := 0 to cbbxFilters.Items.Count-1 do begin SetupBMPdestination(120); cbbxFilters.ItemIndex:=i; StretchDrawWithFilter(src, dst, dst.Width, dst.Height); dst.SaveToFile(FileUtil.ProgramDirectory+'output/agr_120/'+cbbxFilters.Items.Strings[i]+'.bmp'); end;

---

la proc "travailleuse" :

Code:

---

1 2	DestCanvas.Interpolation := aArrayOfFilters[cbbxFilters.ItemIndex].Create; DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);

---

Tout baigne dans l'huile !

Yves, un milliard de mercis pour ton test qui m'a déverrouillé et a fait sauter ce mur :ccool:
Champion !
Merci aux autres également, pour s'évertuer à me conseiller, et à supporter mes loooooooongues proses :P

Bon aprème,

Bonjour,

ce tout petit post (ça va vous changer :mouarf:) juste pour vous informer que ce matin j'ai rajouté à mon module dérivé de extinterpolation 6 filtres abandonnés dans cette vieille unité ReSample (trouvée il y a pas mal de semaines dans le projet DoubleCmd), histoire de les comparer avec ceux issus de FreePascal.

Enfin, comparer leurs rendus sur des images, puisque maintenant je quitte le mode debug (la tête pleine de bosses, la faute au mur, :mrgreen:) pour entrer dans le mode prod' et c'est là que le projet précédent, CompareBmp, va avoir toute son importance !

En conclusion, je fais donc logguer au FormCreate dans un mémo ma liste de filtres, le plus long ayant été leur intégration dans l'unité (copier/coller, changement de variables, etc.), bref, de l'édition de texte en mode méticuleux, mais ensuite F9 et hop ! :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

TBellInterpolation_rs TBilinearInterpolation_ei TBlackmanInterpolation_ei TBlackmanBesselInterpolation_ei TBlackmanSincInterpolation_ei TBoxInterpolation_ei TBoxInterpolation_rs TBsplineInterpolation_rs TCatromInterpolation_ei TCubicInterpolation_ei TGaussianInterpolation_ei THammingInterpolation_ei THanningInterpolation_ei THermiteInterpolation_ei THermiteInterpolation_rs TLanczosInterpolation_ei TLanczos3Interpolation_rs TMitchellInterpolation_fp TMitchellInterpolation_rs TQuadraticInterpolation_ei TSharpInterpolation_lc TTriangleInterpolation_rs

---

Plus qu'à utiliser ! Et ça l'a fait, sans l'ombre d'un éternuement :ccool:
2 x 22 fichiers image à analyser, au boulot mon gars.

Excellente journée à tous, encore un grand merci,
:coucou: