Flash dans Delphi : Recharger le flash

Version imprimable

25/06/2007, 11h43
gcvoiron

Flash dans Delphi : Recharger le flash

Bonjour,

J'affiche dans delphi une animation flash. Je peux modifier cette animation via delphi (les changements sont enregistrés dans un fichier XML, flash lit l'XML et delphi charge le flash).
Comment ré-actualiser un fichier flash, le recharger ?

Merci d'avance, gcvoiron.
26/06/2007, 16h55
gcvoiron
J'ai trouvé ceci :
Code:

1 2 3 4 5 ShockwaveFlash1.Destroy; ShockwaveFlash1 := TShockwaveFlash.Create(Self); ShockwaveFlash1.Parent :=Self; ShockwaveFlash1.Height := 400; ShockwaveFlash1.width := 400;
Mais dès que le flash est rechargé, il ne prend pas en compte les paramètres Height et Width et est minuscule...

Quelqu'un aurait une idée ?

Merci d'avance.

tout simplement essai
Code:

1 2 3 // dans une procedure OnResize ShockwaveFlash1.Refresh;
ludo

26/06/2007, 17h21
gcvoiron
J'ai fais un :
Code:

1 2 // dans une procedure OnResize ShockwaveFlash1.Refresh;
Ca n'a rien fait.

:cry:

Personne n'a une idée ?
En fait je clique sur un bouton qui modifie mon fichier XML. Donc il faut recharger le flash (qui lit l'XML).
Donc dans l'événement OnClick de mon bouton, j'ai :

Code:

RechargeFlash(Sender);

Et la procedure :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure Tmod_type.RechargeFlash(Sender: TObject);
begin
ShockwaveFlash1.Destroy;
ShockwaveFlash1 := TShockwaveFlash.Create(Self);
ShockwaveFlash1.Parent :=Self;
ShockwaveFlash1.CurrentFrame;
ShockwaveFlash1.Align := alNone;
ShockwaveFlash1.AlignMode := 0;
ShockwaveFlash1.AllowFullScreen := 'False';
ShockwaveFlash1.AllowNetworking := 'all';
ShockwaveFlash1.Anchors := [akLeft,akTop];
ShockwaveFlash1.BackgroundColor := -1;
ShockwaveFlash1.Cursor := crDefault;
ShockwaveFlash1.DeviceFont := false;
ShockwaveFlash1.DragCursor := crDrag;
ShockwaveFlash1.DragMode := dmManual;
ShockwaveFlash1.EmbedMovie := false;
ShockwaveFlash1.FrameNum := 0;
ShockwaveFlash1.Height := 400;
ShockwaveFlash1.HelpContext := 0;
ShockwaveFlash1.HelpType := htContext;
ShockwaveFlash1.Left := 16;
ShockwaveFlash1.Loop := True;
ShockwaveFlash1.Menu := true;
ShockwaveFlash1.Movie := FichierSWF;
ShockwaveFlash1.Name := 'ShockwaveFlash1';
ShockwaveFlash1.ParentShowHint := True;
ShockwaveFlash1.Playing := False;
ShockwaveFlash1.Profile := False;
ShockwaveFlash1.ProfilePort := 0;
ShockwaveFlash1.Quality := 1;
ShockwaveFlash1.Quality2 := 'Hight';
ShockwaveFlash1.Scale := 'ShowAll';
ShockwaveFlash1.ScaleMode := 0;
ShockwaveFlash1.SeamlessTabbing := True;
ShockwaveFlash1.ShowHint := False;
ShockwaveFlash1.TabOrder := 13;
ShockwaveFlash1.TabStop := True;
ShockwaveFlash1.Tag := 0;
ShockwaveFlash1.top := 16;
ShockwaveFlash1.Visible := True;
ShockwaveFlash1.Width := 400;
ShockwaveFlash1.WMode := 'Window';
ShockwaveFlash1.OnFlashCall := ShockwaveFlash1FlashCall;
end;

Le flash est bien rechargé, mais il est en petit (environ 200x200 px, alors que j'ai mis un width et height de 400x400 !)

:?

27/06/2007, 17h40
Laurent Dardenne

Salut,
une petite remarque tu devrais utiliser Free au lieu de Destroy.
27/06/2007, 17h41
Gaadek

Salut!

C'est un bug connu de l'activex flash: tu ne peux pas redimensionner le controle en cours d'exécution :roll:

Idem si tu essayes de créer l'objet dynamiquement. J'ai fais pas mal de recherches sur le net pour tenter de solutionner ce problème, et ma question reste désespérément sans réponse...
27/06/2007, 17h48
gcvoiron

Ok Gaadek, c'est bien dommage...:(
Mais il se redimensionne correctement (400x400) lorsque je clique sur la fenêtre quand il est en petit.
27/06/2007, 18h15
Laurent Dardenne

Citation:

Envoyé par Gaadek

J'ai fais pas mal de recherches sur le net pour tenter de solutionner ce problème, et ma question reste désespérément sans réponse...

As-tu essayé ici ?
Il y a également un forum (US).
27/06/2007, 21h17
Gaadek

Citation:

Envoyé par Laurent Dardenne

As-tu essayé ici ?
Il y a également un forum (US).

Oui, merci pour le lien, je connaissais déjà!

Mais soit je suis nul, soit ça ne fonctionne pas mieux que l'ocx original... A moins d'acheter le Delphi swf SDK, mais je n'en ai pas les moyens pour ce que je veux en faire (appli perso...)
28/06/2007, 11h33
Thierry Laborde

Salut,

juste une petite idée mais en jouant avec :

Citation:

ShockwaveFlash1.ScaleMode:= ... (Les valeurs possible sont 0,1,2 ou 3)

et

Citation:

ShockwaveFlash1.SetZoomRect(X, Y, Width, Height);

En fait j'ai trouvé ces infos ici :

http://silkyroad.developpez.com/VBA/PiloterFlash

Voila, j'ai pas fait le test donc je ne sais pas si ça peut t'aider, c'est juste une idée. A toi de tester et de nous dire. ;)
28/06/2007, 11h41
Thierry Laborde

Bon en fait je viens de faire un test et j'ai ceci qui a l'air de marcher :

Citation:

ShockwaveFlash1.Setbounds(0,0,400,400);
ShockwaveFlash1.SetFocus;

Est-ce que ça fonctionne chez toi aussi ?
28/06/2007, 12h00
gcvoiron

Oui, ça marche parfaitement !
Merci à tous pour votre aide.
:D :D :D :D :D
28/06/2007, 12h03
Thierry Laborde

N'oublie pas le tag :resolu: