Utilisation de FMX.Graphics

Bonjour,

je cherche à porter ce code qui normalement est compatible FMX

Code:

---

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

var sl: TStringList; pic: TBitmap; begin pic := TBitmap.Create; pic.LoadFromFile(‘billgates.jpg’); sl := TStringList.Create; sl.AddObject(‘Photo=’,pic); sl.Add(‘Name=Bill Gates’); sl.Add(‘Street=Microsoft Way 1’); sl.Add(‘City=Redmond’); sl.Add(‘Country=USA’); TMSFMXRichEditor1.Merge(sl); sl.Free; pic.Free; end;

---

Alors la création du TBitmap se passe mal. Par quelle astuce TMS peut-il écrire le code ci-dessus sans provoquer d'erreur ?

J'en suis là

Code:

---

1 2 3 4 5 6 7 8 9

var var sl: TStringList; pic: FMX.Graphics.TBitmap; aFileName : string; begin afilename := 'xx.jpg'; pic := FMX.Graphics.TBitmap.CreateFromFile(afilename); end;

---

C'est nettement plus verbeux :mrgreen: Je m'y prends mal ?

Enfin ceci dit, je veux placer mon image xx.jpg dans un conteneur quelconque de ma Form (TImage ?) et l'assigner à ce pic.
Cela devrait être simple... et je n'y arrive pas.

Quelqu'un peut-il m'aider ?
Merci.

avec Firemonkey tu dois indiquer la taille du bitmap lors de la création

pic := TBitmap.Create(size_width,size_height)

Citation:

---

Envoyé par exoseven

avec Firemonkey tu dois indiquer la taille du bitmap lors de la création

pic := TBitmap.Create(size_width,size_height)

---

Non ce n'est pas obligatoire. On peut le faire, mais on peut aussi faire un Create classique sans préciser la taille.
En l’occurrence si je teste le code suivant (J'ai mis la ligne du composant TMS en commentaire car je n'ai pas le composant correspondant) :

Code:

---

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

var sl: TStringList; pic: TBitmap; begin pic := TBitmap.Create; pic.LoadFromFile('billgates.jpg'); sl := TStringList.Create; sl.AddObject('Photo=',pic); sl.Add('Name=Bill Gates'); sl.Add('Street=Microsoft Way 1'); sl.Add('City=Redmond'); sl.Add('Country=USA'); // TMSFMXRichEditor1.Merge(sl); sl.Free; pic.Free; end;

---

Cela fonctionne sans problème (A partir du moment ou j'ai bien entendu l'image billgates.jpg dans le répertoire de l'appli). De plus lorsque je fais ça :

Code:

---

1 2 3 4 5 6 7

var pic: TBitmap; aFileName : string; begin afilename := 'billgates.jpg'; pic := TBitmap.CreateFromFile(afilename); end;

---

Cela fonctionne également sans problème, donc je ne vois pas ou sont les problèmes ?

Par contre pour répondre à cela :

Citation:

---

Enfin ceci dit, je veux placer mon image xx.jpg dans un conteneur quelconque de ma Form (TImage ?) et l'assigner à ce pic.
Cela devrait être simple... et je n'y arrive pas.

---

Il suffit tout simplement de s'y prendre comme ça (On part du principe que mon composant TImage sur ma Form s'appelle Image1) :

Code:

---

1 2 3 4 5 6 7

var pic:TBitmap; begin Image1.Bitmap.LoadFromFile('billgates.jpg'); pic:=TBitmap.Create; pic.Assign(Image1.Bitmap); end;

---

Bonsoir,

j'ai laissé traîné un peu la question il est vrai. J'étais en train de me battre avec mon Delphi.

Mon code est le suivant :

Code:

---

1 2	pic := FMX.Graphics.TBitmap.Create(16,16); pic.Assign(Image1.Bitmap);

---

où Image1 est un TImage posé sur la Form.

Ce qui me désopile vraiment, c'est l'obligation de placer le nom des classes devant les objets :
FMX.Graphics.TBitmap.Create alors que dans les uses, FMX.Graphics est déclaré. Donc implicitement, on peu supposer qu'unTBitmap.Create y fait référence. En ne le mettant pas explicitement, on dirait qu'il y a un conflit avec la VCL, autrement dit avec ce quoi est fait l'éditeur.
Et je ne parle pas des MessageDlg... Atroce ! Et en plus, je ne sais toujours pas pourquoi, en saisissant les uses, je n'obtiens aucune aide. J'ai beau taper les premières lettres... je ne vois rien venir. Je me sers peut-être mal de Delphi... certainement :D.

Et j'allais oublier, le TMSFMXRichEditor1.Merge(sl); est (semble ?) défaillant... Il y avait beaucoup de raisons au final pour que cela ne fonctionne pas...

Citation:

---

Envoyé par selzig

Non ce qui me désopile vraiment, c'est l'obligation de placer le nom des classes devant les objets

---

On est pas obligé de préfixer le nom des classes devant les objets. D'ailleurs dans les codes que je cite, à aucun moment je ne l'ai fait.

Par contre ceci me choque :

Citation:

---

Envoyé par selzig

On ne le mettant pas, on dirait qu'il y a un conflit avec la VCL.

---

Qu'est ce que la VCL vient faire avec Firemonkey ?

Si vous devez préfixer c'est qu'il y a une autre unité qui déclare un type TBitmap dans les uses. Le plus simple est donc d'enlever le préfixe et de laisser le type TBitmap et de faire un CTRL+Click dessus pour voir dans quelle unité cela vous redirige. Puis dites nous le nom de cette unité.

Juste par curiosité c'est possible de copier ici le code de la clause USES, qu'on voit tout ce qu'il y a comme unité ?

On n'a pas le même produit ! J'ai repris mon code de départ qui m'a fait poser la question. Le create et l'assign provoquent une erreur.
Pièce jointe 183275

Citation:

---

[dcc32 Erreur] Unit1.pas(204): E2003 Identificateur non déclaré : 'Create'
[dcc32 Erreur] Unit1.pas(206): E2003 Identificateur non déclaré : 'Assign'
[dcc32 Erreur] Unit1.pas(208): E2010 Types incompatibles : 'TObject' et 'tagBITMAP'

---

avec les uses

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

uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.TMSBaseControl, FMX.TMSScrollControl, FMX.TMSRichEditorBase, FMX.TMSRichEditor, FMX.TMSRichEditorToolBar, FMX.TMSToolBar, FMX.TMSSpellCheck, FMX.TMSRichEditorSpellCheck, FMX.StdCtrls, FMX.TMSSpellCheckCorrectForm, FMX.TMSBitmapContainer, FMX.TMSRichEditorEmoticons, FMX.TMSRichEditorIO, {$IFDEF MSWINDOWS} Winapi.Windows, Winapi.ShellAPI, {$ENDIF} {$IFDEF POSIX} Posix.Stdlib, {$ENDIF POSIX} FMX.TMSPDFCreatorIO, FMX.TMSRichEditorPDFCreatorIO, FMX.Menus, FMX.TMSLabelEdit,   FireDAC.Phys.MySQLDef, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.FMXUI.Wait, FireDAC.Comp.UI, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Phys.MySQL,   uAlea, uSQLModule, uGlobals, FMX.Objects, FMX.Ani;

---

Bon c'est un peu le bazar mais je cherchais à comprendre le problème.

C'est pour ça que j'ai demandé à faire un CTRL+Click sur le TBitmap pour voir dans quelle unité il vous redirige. Car je pense qu'il y a une autre unité qui déclare le type TBitmap aussi, mais qui le gère différemment. Ce qui expliquerai l'obligation de préfixer.

Le problème vient du Winapi.Windows qui a aussi un type TBitmap mais qui est un record qui défini un Bitmap au sens API Windows, mais qui n'a rien à voir avec le Bitmap FMX.
Donc 3 solutions possibles :

• Vous supprimez dans le uses l'unité Winapi.windows si vous n'en avez pas besoin
• Vous préfixez le type TBitmap comme vous le faisiez car pas d'autres solutions vu que 2 unités déclarent le type Tbitmap
• Vous faites passer le FMX.graphics dans la clause USES à la fin, après le Winapi.windows

Le conflit est provoqué par le FMX.TMSBitmapContainer. En ordonnant les uses ainsi FMX.TMSBitmapContainer, FMX.Graphics, ce n'est guère mieux. Cela va vraiment devenir délicat... puisque les uses se remplissent automatiquement. Et à l'arrivée cela risque d'être non maintenable dès que le programme va prendre de l'envergure... à moins qu'à chaque fois je déclare les FMX.Graphics.

Enfin, une déclaration pic : FMX.Graphics.TBitmap; n'a aucune incidence sur les méthodes employées ensuite ? Si pic est un FMX.Graphics.TBitmap, les pic.méthodes employées sont issues de FMX.Graphics. Non ? Et comment expliquer que FMX.Graphics n'est pas prioritaire quelque soit l'ordre de déclaration dans les uses ?

Je commence à fatiguer vraiment. Je porte un projet Qt de traitement de texte collaboratif, les documents étant hébergés dans des bases mariaDB. Hormis le pdf en Qt, je n'ai pas rencontré de problèmes. Et je sens également les problèmes à ce niveau pdf en FireMonkey/Windows.
Pièce jointe 183279
La punaise remplace un texte modifié par un autre utilisateur. En cliquant dessus, l'utilisateur voit l'ancien texte sélectionné qui a été corrigé avec l'auteur et le datestamp. Au bout de 8 heures d'efforts, alors que la base existe, j'en suis à me battre avec des déclarations... Bon, un peu de repos me permettra d'y voir plus clair demain. Enfin, je l'espère.

Merci pour les informations apportées.

Le problème précisé dans l'image vient de l'unité Winapi.windows comme je le précise vu que dans cette unité il y a un TBitmap de type tagBITMAP comme indiqué dans l'erreur. Pour les unités TMS, elle viennent peut être en conflit aussi, mais vu que je n'ai pas les composants TMS je ne sais pas.

Avez-vous fait le test comme je l'ai précisé de mettre l'unité FMX.graphics en tout dernier de la clause USES ?

Et oui sinon, comme je l'ai indiqué, vous avez la solution de préfixer le type TBitmap comme vous le faisiez. Cela doit fonctionner dans ce cas là, non ?

Oui cela fonctionne avec les déclarations FMX.Graphics... et sans, en plaçant le FMX.Graphics après le TMS Bitmap et le Winapi.Windows et je crois que je vais opter pour la solution du FMX.Graphics.méthode. C'est lourd mais cohérent pour moi. En tout cas aussi cohérent que les MessageDlg ;)... J'ai rencontré ce problème une fois sous Lazarus pour l'appel de bibliothèques externes.

Malheureusement, j'ai également besoin du Winapi.Windows pour la gestion du pdf à moins qu'il existe un moyen d'ouvrir un pdf sous windows sans passer par un shellExecute.

Donc c'est vraiment résolu avec 2 solutions et je réactive ma méfiance au niveau de l'ordre des déclarations dans les uses. Reste le problème du pdf... indépendant de Delphi. J'ai contacté la société tierce à ce sujet, sachant que ce n'est pas rédhibitoire car normalement lorsque le texte est publié en pdf, les punaises n'y figurent pas. C'est un plus non indispensable.

Encore merci. Bonne nuit.

Peut-être est-il possible de se simplifier la vie en redéclarant le type TBitmap dans l'unité : TBitmap = FMX.Graphics.TBitmap pour ne pas préfixer tous les appels ?

Citation:

---

Envoyé par tourlourou

Peut-être est-il possible de se simplifier la vie en redéclarant le type TBitmap dans l'unité : TBitmap = FMX.Graphics.TBitmap pour ne pas préfixer tous les appels ?

---

oui ou placer Winapi.Windows en tête de liste du Uses puisqu'il ne sert que pour le ShellExecute qui ne rentrera en conflit avec personne.

Bonsoir,

Citation:

---

Envoyé par tourlourou

Peut-être est-il possible de se simplifier la vie en redéclarant le type TBitmap dans l'unité : TBitmap = FMX.Graphics.TBitmap pour ne pas préfixer tous les appels ?

---

J'avais mal compris la proposition... C'est "légal" cela ?

J'avais essayé pour me simplifier la vie au niveau des MessageDlg ceci

Code:

---

1 2 3 4

const mbOK = TMsgDlgBtn.mbOK; mtInformation = TMsgDlgType.mtInformation; mtError = TMsgDlgType.mtError;

---

Mais cela ne passe pas. Je ne sais pas si c'est la formulation qui est erronée ou la syntaxe XE7 qui a changé. Ce n'était pas mon souci principal à ce moment.

Pour en revenir à votre proposition, vous la déclareriez comment et où dans le code de la Form ? Dans les types je suppose ? Dans ce cas, effectivement, en remplaçant la déclaration de FMX.Graphics à son emplacement d'origine, le code suivant "passe" :

Code:

---

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

uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, [...], {$IFDEF MSWINDOWS} Winapi.Windows, Winapi.ShellAPI, {$ENDIF} {$IFDEF POSIX} Posix.Stdlib, {$ENDIF POSIX} [...];   type TBitmap = FMX.Graphics.TBitmap; TForm1 = class(TForm) end;   var //pic: FMX.Graphics.TBitmap; pic: TBitmap; begin pic := TBitmap.Create(16,16); pic.Assign(Image1.Bitmap); end;

---

D'un autre côté, je suis en train d'abandonner : les problèmes se succèdent de manière inattendue. L'insertion d'image dans le TMSFMXRichEditor a l'air de faire appel soit au nom du fichier de l'image (absolument sans intérêt, je voulais utiliser le TImage enfin le fameux pic : FMX.Graphics.TBitmap; ), soit à un TPicture... Or l'examen de FMX.Graphics ne fait pas apparaître de TPicture. D'où viendrait-il ?

Pièce jointe 183456

J'ai commencé une discussion avec TMS que je ne peux pas détailler puisque il y a -cela a l'air commun à toutes ces entreprises américaines- une clause de confidentialité notifiée en fin de mail. Disons que cela n'avance guère. Ce n'est pas une priorité puisque le projet est déjà développé en Qt. Mais je ne pensais pas errer autant.

Citation:

---

Envoyé par Paul TOTH

oui ou placer Winapi.Windows en tête de liste du Uses puisqu'il ne sert que pour le ShellExecute qui ne rentrera en conflit avec personne.

---

OK pour le placement du Winapi en tête. C'est effectivement une solution...

Citation:

---

Envoyé par selzig

Or l'examen de FMX.Graphics ne fait pas apparaître de TPicture. D'où viendrait-il ?

---

Est-ce que vous n'auriez pas sous la classe TPicture une propriété Bitmap ?

Citation:

---

Envoyé par selzig

OK pour le placement du Winapi en tête. C'est effectivement une solution...

---

Au passage je précise au vous auriez eu la même chose en mettant le FMX.graphics en tout dernier de la clause uses comme je l'ai expliqué plusieurs fois.

Bonsoir,

Citation:

---

Envoyé par Thierry Laborde

Au passage je précise au vous auriez eu la même chose en mettant le FMX.graphics en tout dernier de la clause uses comme je l'ai expliqué plusieurs fois.

---

Oui, tout à fait... Les 2 propositions sont équivalentes. Mais pour simplifier les écritures et éviter l'ordonnancement des uses, la proposition de Tourlourou est-elle sans risque ? Elle fonctionne dans mon cas... et je la trouve élégante.

Citation:

---

Envoyé par Thierry Laborde

Est-ce que vous n'auriez pas sous la classe TPicture une propriété Bitmap ?

---

Je ne sais pas si je comprends bien la question. Vous parlez du composant de TMS ?

J'ai essayé toutes les combinaisons possibles y compris avec les "Bitmap" de TMS du genre

Code:

---

InsertImage(TMSFMXBitmapContainer1.Items[0].<s>Bitmap</s>,16,16);

---

La seule qui fonctionne est l'appel de l'adresse du fichier

Code:

---

InsertImage('E:\DelphiProjets\TestCoop01\images\punaise16.png',16,16);

---

Deux exemples sont fournis pour le RichEditor (un qui gère du texte et des images et l'autre la correction orthographique). Et dans le premier, il est systématiquement fait appel aux adresses des fichiers des images. TMS m'a orienté vers la Doc et la FAQ qui sont aussi succinctes l'une que l'autre.... D'où abandon technique... sans gravité et sans conséquence... Mais c'est dommage, comme le glisser/coller de npp vers TMemo... Cela fait partie du même projet. De toute façon, j'étais coincé. Le temps n'étant pas extensible même en vacances, je passe à autre chose.

Encore une fois, merci pour vos aides.