Discussion :

[Roland Chastain]

Bonjour !

J'ai vu qu'il existait une multitude d'outils pour convertir une animation Flash en �cran de veille. Soit dit en passant, la plupart sont payants, ce qui prouve qu'il doit y avoir une demande pour ce genre de choses.

J'ai commenc� � les essayer et parall�lement, j'ai voulu voir ce que je pourrais faire dans le m�me genre par moi-m�me, en partant du code propos� par Paul TOTH dans cette discussion et du tutoriel de nono40.

Voici l'�tat actuel de mon travail (un projet Delphi 7).

Dans le panneau de r�glage de l'�cran de veille (Windows 8), l'animation s'affiche correctement dans la petite fen�tre de pr�visualisation. En revanche si je clique sur "Aper�u", l'animation ne prend pas tout l'�cran mais seulement un carr� en haut � gauche. Je ne sais pas si le probl�me est dans le code FlashPascal ou dans le code Delphi.

Je me suis aper�u par hasard que si je clique sur ce carr�, l'animation prend cette fois tout l'�cran mais ensuite la fen�tre ne se ferme plus quand j'appuie sur une touche (elle se ferme en appuyant sur ALT + F4).

[Roland Chastain]

En visitant le site www.delphiflash.com, je suis tomb� sur une page qui (si je comprends bien) d�crit un bug de l'objet TShockwaveFlash correspondant � l'exp�rience que j'ai faite :

Actually TShockwaveFlash and some its methods do not always work correctly. For example, the movie does not stretch automatically resizing of a parent window;

Plus bas dans la m�me page, une fa�on de corriger ce probl�me est indiqu�e. Je vais prendre le temps de regarder tout �a de plus pr�s.

[Roland Chastain]

J'ai reconstruit exactement le m�me projet avec XE2 et cette fois tout fonctionne correctement.

Du coup je suis moins motiv� pour corriger la version D7 mais j'essaierai peut-�tre quand m�me.

Une petite question en passant : dans l'exemple du tutoriel de nono40, il y a cette ligne :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
procedure TFenEcran.FormShow(Sender: TObject);
var i: Integer;
begin
  // On masque l'application dans la barre des tâches
  ShowWindow(Application.Handle,SW_HIDE);

Franchement, je n'ai pas trop compris l'utilit� de la chose mais toujours est-il que dans le DPR de mon projet XE2 il y a cette ligne :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

  Application.MainFormOnTaskbar := True;

Est-ce que j'aurais l'�quivalent du ShowWindow(..., SW_HIDE) si je faisais la modification suivante dans mon DPR ?

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

  Application.MainFormOnTaskbar := False;

[Paul TOTH]

pas le temps de regarde ton code, mais oui � ta derni�re question, l'option n'existait pas sous D7

[Roland Chastain]

pas le temps de regarder ton code, mais oui � ta derni�re question, l'option n'existait pas sous D7

Merci pour la r�ponse, Paul. Franchement, moi non plus je n'ai pas le temps de le regarder.

Non, s�rieusement, je veux dire que puisqu'en utilisant XE2 tout fonctionne bien, je ne vais pas me casser la t�te pour rien. Je vais plut�t peaufiner mon projet XE2 et commencer � r�fl�chir � l'�cran de veille que je pourrais faire avec FlashPascal.

[Roland Chastain]

Voici la version D7 corrig�e !

J'ai modifi� l'unit� ShockwaveFlashObjects_TLB (en suivant les indications donn�es sur le site que j'ai cit� plus haut) et j'ai inclus l'unit� modifi�e dans le r�pertoire du projet.

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
procedure TForm1.LoadSWF(const AFileName: string);
...
  SWF.SetBounds(0, 0, ClientWidth, ClientHeight);
 
  // Appel de la méthode ajoutée CreateWnd pour corriger un défaut dans
  // l'affichage. Le défaut se manifeste lors de l'affichage en plein écran.
 
  if ClientWidth = Screen.Width then
    SWF.CreateWnd;

[Roland Chastain]

J'ai fait quelques recherches du c�t� de Lazarus.

Il y a ces composants payants : j'ai t�l�charg� la version gratuite et l'ai essay�e avec Delphi 7 mais malheureusement les unit�s FreePascal ne sont pas incluses. Il faudrait que j'en parle au p�re No�l.

J'ai trouv� aussi un projet bas� sur un autre composant : j'ai pu le compiler et le faire fonctionner sans avoir rien � installer.

[Roland Chastain]

J'ai reconstruit exactement le m�me projet avec XE2 et cette fois tout fonctionne correctement.

Ou presque ! Les m�thodes FormClick et FormMouseMove ne fonctionnent pas (alors que FormKeyDown fonctionne, sauf si j'ai d'abord essay� d'utiliser la souris, auquel cas il n'y a plus aucun moyen de fermer la fen�tre, mis � part ALT + F4).

[Roland Chastain]

Une petite d�monstration de l'objet TFlashViewerWindow de la biblioth�que DelphiSWFSDK (version gratuite), compil�e avec Delphi 7. Utilisez la souris pour d�placer la fen�tre ou la redimensionner (roulette). Appuyez sur ALT+F4 pour fermer.

[Roland Chastain]

Une autre d�monstration : un programme qui capture diff�rentes vues d'une animation.

La taille de l'animation est pr�alablement lue dans le fichier, au moyen de l'unit� swffileinfo.

Faites glisser et d�posez le fichier SWF de votre choix sur l'ic�ne de l'application.

[Roland Chastain]

J'ai essay� une autre biblioth�que : F-IN-BOX. Les derni�res versions de Delphi sont support�es (tandis que le d�veloppement de DelphiSWFSDK s'est arr�t� � Delphi XE). Dommage qu'il y ait �crit DEMO VERSION absolument partout.

[Roland Chastain]

Je vous propose un kit de g�n�ration d'�cran de veille Windows � partir d'une animation Flash.

Pour g�n�rer l'�cran de veille, d�posez sample.swf (ou le fichier de votre choix) sur make.bat.