Discussion :

[ninaleo]

Bonjour

Je viens à nouveau vous solliciter sur FireMonkey pour un problème d'affichage de BitMap.

Le programme affiche des bitmaps sur la TFORM avec la commande DrawBitMap qui est appelée toutes les 15 millièmes de secondes pour faire une animation.

Cela fonctionne très bien quand je l'exécute sur la plate forme Windows 32 bits mais quand je l'exécute sur la plate-forme OS X du mac, aucune image ne s'affiche, la fenêtre reste irrémédiablement vide ;-(

Savez-vous d'où cela peut provenir ? Je travaille avec Delphi XE4.

Je vous remercie par avance de votre réponse.

Je vous souhaite une très bonne journée

Laurent CUSSAC

[ninaleo]

Bonjour

A force de chercher pourquoi cela ne fonctionne pas, en fait c'est le Timage.Canvas.BeginScene qui renvoie toujours faux donc je ne peux faire aucun graphique sur la fenêtre quand l'application tourne sur MAC. Savez-vous pourquoi ?

Un grand merci pour votre réponse

Bonne journée à tous

Laurent CUSSAC

[free07]

Bonjour,

Bonjour

Je viens à nouveau vous solliciter sur FireMonkey pour un problème d'affichage de BitMap.

Si c'est un problème avec FMX, pourquoi ne pas le mettre dans le forum FMX ? Tu aurais certainement plus de chance d'avoir une réponse.

Sinon, on pourrait voir le code qui affiche ces bitmaps et qui pose problème ?

[ALWEBER]

Bonjour
A force de chercher pourquoi cela ne fonctionne pas, en fait c'est le Timage.Canvas.BeginScene qui renvoie toujours faux donc je ne peux faire aucun graphique sur la fenêtre quand l'application tourne sur MAC. Savez-vous pourquoi ?
Un grand merci pour votre réponse
Bonne journée à tous
Laurent CUSSAC

Bonjour,
Je ne développe pas sur cible MAC, mais sur cible Androïd ou Windows. Peux tu isoler le problème dans quelques lignes de code que je les compare a celles que j'ai écrit pour dessiner avec FMX pour voir si le problème n'est pas ailleurs.

[ninaleo]

Bonjour

Merci pour toutes vos réponses, je vais poser cette question dans le forum FMX suite à vos conseils ;-)

Voici la partie du code qui fonctionne sur PC mais pas sur MAX ;-( ( Timage est l'image sur laquelle j'affiche la bitmap BulleTest )

Code :

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

1
2
3
4
5
6
7
8
9
    RectangleARestaurer := RectF(PosX - 56  , PosY - 56 , PosX + 56 , PosY + 56 );
    RectangleCopie := RectF(0, 0, 112 , 112) ;
    if Timage.Canvas.BeginScene () then
      Begin
       Try
         Timage.Canvas.DrawBitmap  ( BulleTest , RectangleCopie , RectangleARestaurer , 1 , True ) ;
       Finally
         Timage.Canvas.EndScene() ;
       End;

Merci d'avance pour votre réponse

Je vous souhaite une très bonne journée

Laurent CUSSAC

[ninaleo]

Bonjour

J'ai un composant TImage sur une fiche pour lequel Image.Canvas.BeginScene renvoie toujours faux donc je ne peux faire aucun graphique sur la fenêtre quand l'application tourne sur MAC. Savez-vous pourquoi ? Je précise que ce même code fonctionne parfaitement sur PC !!!

Voici le bout de code qui ne fonctionne pas : Image est le composant Image de la TForm sur laquelle je veux afficher l'image BulleTest

Code :

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

1
2
3
4
5
6
7
8
9
    RectangleARestaurer := RectF(PosX - 56  , PosY - 56 , PosX + 56 , PosY + 56 );
    RectangleCopie := RectF(0, 0, 112 , 112) ;
   if Image.Canvas.BeginScene () then
      Begin
       Try
         Image.Canvas.DrawBitmap  ( BulleTest , RectangleCopie , RectangleARestaurer , 1 , True ) ;
       Finally
         Image.Canvas.EndScene() ;
       End;

Je vous remercie par avance pour votre réponse.

Bonne journée à tous

Laurent CUSSAC

[ninaleo]

RE bonjour

Comme aucune commande graphique ne fonctionne, je me pose la question de savoir si le XCode 6.0.1 que j'ai installé sur le MAC est bien actif car j'ai cru comprendre que la compilation utilise Xcode pour tout ce qui est partie graphique. Comment savoir alors que XCode 6.0.1 est bien installé et activé sur le MAC ?

Je vous remercie par avance de votre réponse

Bonne journée à vous tous

Laurent CUSSAC

[Paul TOTH]

l'erreur est dans Windows en fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Image1.Canvas.BeginScene then
  begin
    Image1.Canvas.DrawLine(TPointF.Create(0, 0), TPointF.Create(100, 100), 1);
    Image1.Canvas.EndScene;
  end else begin
    Memo1.Lines.Add('Impossible de dessiner sur l''image');
  end;
end;

le Mac refuse de dessiner, et Windows me dessine un trait de 100x100 pixel à partir du coin gauche de la fiche, en fait il ne dessine pas dans l'image car elle est vide. Il suffit de redimensionner la fenêtre pour s'en rendre compte, le trait disparaît.

voici qui corrige les deux problèmes

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Bitmap := TBitmap.Create;
  Image1.Bitmap.SetSize(200, 200);
  Image1.Bitmap.Clear(TAlphaColorRec.White);
 
  if Image1.Bitmap.Canvas.BeginScene then
  begin
    Image1.Bitmap.Canvas.DrawLine(TPointF.Create(0, 0), TPointF.Create(100, 100), 1);
    Image1.Bitmap.Canvas.EndScene;
  end else begin
    Memo1.Lines.Add('Impossible de dessiner sur l''image');
  end;
end;

[ALWEBER]

...
if Timage.Canvas.BeginScene () then
Begin
Try
Timage.Canvas.DrawBitmap ( BulleTest , RectangleCopie , RectangleARestaurer , 1 , True ) ;
Finally
Timage.Canvas.EndScene() ;
End;...

Si ton TImage a pour nom Image1 j'aurai plutôt ce code

Bonjour
with Image1.Canvas do
Begin
BeginScene ()
DrawBitmap ( BulleTest , RectangleCopie , RectangleARestaurer , 1 , True ) ;
EndScene() ;
End;

Sauf erreur de ma part :
Le bloc try est superflu
Il faut travailler avec l'instance de l'image

[tourlourou]

Suite à la fusion de deux discussions, la chronologie intriquée des réponses rend le fil de lecture à peine moins linéaire

[ninaleo]

Merci beaucoup pour votre réponse !! ça marche nickel, par contre la vitesse de l'animation est beaucoup moins rapide pourtant la vitesse du CPU est 2,6 GHZ sur le Mac contre 2,4 GHZ sur mon portable et le rapport de vitesse va de 1 à presque 3 ! Est-ce normal ?

Très bonne fin de journée

Laurent CUSSAC

[Paul TOTH]

Merci beaucoup pour votre réponse !! ça marche nickel, par contre la vitesse de l'animation est beaucoup moins rapide pourtant la vitesse du CPU est 2,6 GHZ sur le Mac contre 2,4 GHZ sur mon portable et le rapport de vitesse va de 1 à presque 3 ! Est-ce normal ?

Très bonne fin de journée

Laurent CUSSAC

oui car ceci "la commande DrawBitMap qui est appelée toutes les 15 millièmes de secondes pour faire une animation." n'a aucun sens. 66 FPS c'est énorme, et ça ne tient pas compte de la capacité de rafraîchissement du PC/Mac. Il serait plus judicieux d'insérer le dessin dans un événement OnPaint et d'utiliser le Timer uniquement pour forcer un Invalidate si le précédent a déjà été traité (sinon c'est pas la peine, le PC ne suis pas).

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
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if FValide then
  begin
    FValide := False;
    Invalidate;
  end;
end;
 
procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
 // faire le dessins
 // ...
 
 // accepté une nouvelle frame
 FValide := True;
end;

[ninaleo]

Bonsoir

Merci beaucoup pour tous ces conseils : j'ai appliqué votre conseil: la vitesse reste la même sur le PC mais cela ne va pas plus vite sur le MAC ;-( Je ne comprends pas pourquoi, peut être XCode quine fonctionne pas comme sur le PC ?

Bonne soirée à vous et encore merci pour votre aide précieuse et rapide.

Laurent CUSSAC

[Paul TOTH]

XCode est correctement installé sinon l'application ne compilerait pas.

Par contre ce n'est pas la CPU qu'il faut comparer mais la GPU (carte graphique) elle seule intervient pour le rendu graphique...entre un AirBook avec une Intel HD Graphics 4000 et une nVidia sur PC y'a pas photo.