Discussion :

[tazthedev]

Bonjour,

J'essaye de créer un TShockwaveFlash dynamiquement en indiquant,

Swf := TShockwaveFlash.Create(self);
swf.Visible := true;
swf.Movie := filelistbox1.Items.Strings[I];
UpdateWindow(Handle);
swf.Play ;

Mais rien à faire.. Quelqu'un aurait une idée ?

Merçi.

[Thierry Laborde]

Ton message manque un peu de précision pour que l'on puisse t'aider. Qu'entends tu par :

Mais rien à faire..

Cela te génère une erreur ? laquelle ? à quel endroit dans le code ? ...etc.
Donnes nous plus de précisions.

PS : As tu bien installé l'active X Shockwave Flash et déclaré l'unité dans le Uses de ton appli ?

[tazthedev]

En fait, je n'ai aucune erreur, donc pour le uses, il y est. L'application démarre, mais je ne vois pas du tout le .swf jouer.

Bizarre...

[Rayek]

Essai comme çà :

Code :

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

1
2
3
4
5
6
Swf := TShockwaveFlash.Create(self);
swf.Visible := true;
swf.Movie := filelistbox1.directory + '\' + filelistbox1.Items.Strings[i];
UpdateWindow(Handle);
swf.Play ;

Si je me souviens bien le filelistbox.items.Strings[i] ne retroune que le nom du fichier sans son chemin.

[jula2i]

Hello,

A mon avis, cela vient du parent qui n'est pas renseigné lors de la création en dynamique du composant.

Essay comme ça :

Code :

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

1
2
3
4
5
6
Swf := TShockwaveFlash.Create(self);
Swf.Parent := Self;
swf.Visible := true;
swf.Movie := filelistbox1.Items.Strings[i];
swf.Play ;

A+.

[tazthedev]

Malatar, ca ne change rien, malheureusement.

L'application se lance sans erreurs, mais le .swf ne s'affiche pas. Aucune erreurs.

Je comprends pas...

Et vous ?!?

[tazthedev]

Oh yes,

toi, je t'aimes Jula heh...

Merçi à tlm.

[jula2i]

de rien... mais retiens tes ardeurs !!
Et n'oubli pas le tag