Discussion :

[gcvoiron]

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.

[gcvoiron]

J'ai trouvé ceci :

Code :

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

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.

[Ludo_360]

tout simplement essai

Code :

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

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

ludo

[gcvoiron]

J'ai fais un :

Code :

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

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

Ca n'a rien fait.

[gcvoiron]

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 :

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

RechargeFlash(Sender);

Et la procedure :

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
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 !)

[Laurent Dardenne]

Salut,
une petite remarque tu devrais utiliser Free au lieu de Destroy.

[Gaadek]

Salut!

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

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...