Discussion :

[Roland Chastain]

Bonjour !

Je voulais vous faire part d'une trouvaille que j'ai faite, qui permet de "jouer" une animation Flash dans un programme Lazarus.

Ce que je vous propose est une version légèrement améliorée de ce programme. Les unités utilisées proviennent de cette page.

L'amélioration que j'ai apportée est l'utilisation de l'unité SwfFileInfo pour détecter les dimensions de l'animation et ajuster en conséquence la taille de la fenêtre et du panneau.

J'ai fait une petite modification dans l'unité pour la rendre compatible avec Free Pascal :

Code :

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

1
2
uses
  SysUtils, Classes, {$IFDEF FPC}ZStream{$ELSE}ZLib{$ENDIF};

Le site sur lequel j'avais trouvé cette unité (ainsi que la fonction GetFrameSize()) a disparu.

J'ai inclus dans l'archive ci-jointe quelques animations réalisées avec FlashPascal. Comme vous pourrez le constater, tout fonctionne, non seulement les clics de la souris, mais aussi le copier-coller, ce qui (soit dit en passant) n'était pas le cas avec la version AIR du programme en question !

P.-S. Ma pièce jointe dépassant la limite autorisée, je mets la DLL dans une archive séparée. Elle doit être placée dans le répertoire de l'exécutable.