ANIMATION FLASH DANS VOTRE APPLI !!!

Commentaire de grandvizir le 17/02/2005 19:39:20

Delphicool aime le flash:
http://www.delphifr.com/code.aspx?ID=11960
http://www.delphifr.com/code.aspx?ID=12109

Le second lien donnera toujours une belle application du prog sous forme de jeux.

Commentaire de Inekman le 22/02/2005 11:21:59

Salut Mauricio, je crois comprendre que ta source contient un fichier flash. Apparement tu ne fais que l'afficher dans ta form. J'avais fait un ti logiciel à la con il y'a quelques années qui intégrait aussi du flash dans la form sauf que là elle servait d'interface utilisateur pour le logiciel. Ca pourrait intéresser quelqu'un peut-être de voir comment faire communiquer Flash et Delphi, comment l'un peut donner des ordres à l'autre :-)

Commentaire de faten7 le 02/05/2006 11:37:32

enfin j'ai trouvé!!
c'est ce que je cherchais, je poursuit l'idée qu'a proposé INIKEMAN consernant la communication entre falsh et delphi.

voila j'ai réalisé un document entièrement en fireworks (famille de macromedia, cousin de flash) avec des bouttons interactifs, cette page est supposé être comme la form principale de mon application, je cherche non seulement qu'elle que faut il faire pour importer la page et ensuite pouvoir d'un siple clique sur l'un des bouttons voir les autres forms.

merci pour ttes vos lumières.

Commentaire de Inekman le 02/05/2006 12:14:32

C'est très simple ^^

Tout d'abord, déclare une procédure swFSCommand comme suit :

procedure swFSCommand(ASender: TObject; const command, args: WideString);

Et tu l'implémente de la sorte :

procedure TfrmMain.swFSCommand(ASender: TObject; const command, args: WideString);
begin

if command = 'ouvrir' then
        begin
            [instructions]
        end;

end;

Maintenant que ton programme sait gérer la commande "ouvrir", il te faut l'appeler depuis ton animation Flash. Pour ce faire, tu dois faire un appel dans un évènement du bouton depuis Flash. Dans mon exemple j'ai pris "release" qui se déclenche quand on arrête d'appuyer sur le bouton :

on (release) {
    fscommand("ouvrir");
}

Et voilà. L'anmiation va envoyer la commande "ouvrir" et ton programme Delphi va le récupérer et exécuter le code de ton choix.

Lé pas belle la vie ? ;-)