Discussion :

[Archimède]

Bonjour, j'ai tenté d'intégrer une application flash dans delphi à partir de :
ShockwaveFlashObjects_TLB.

ma question n'est qu'une simple histoire de chemin :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 procedure TForm1.FormCreate(Sender: TObject);
begin
 Position:=poscreencenter;
 formstyle:=fsstayontop;
 width:=screen.Width;
 height:=screen.Height;
 ShockwaveFlash1.align:=alclient;
 ShockwaveFlash1.Movie:='../flash/delphi/horloge.swf';
end;

Si je donne le chemin complet, pas de soucis, ça marche... En revanche, si mon fichier flash se trouve dans le sous répertoire delphi et que je définisse le chemin en relatif comme montré dans le code, ça ne fonctionne pas...
Comment déclarer le chemin d'un fichier se trouvant dans le même répertoire que l'exe delphi qui le gère.

Le but étant de rendre portable le répertoire qui contient l'exe et le fichier flash...

Merci (question toute bête mais qui m'empoisonne la vie.)

[Paul TOTH]

le plus mieux c'est de ne pas passer par un fichier non ?

l'activeX supporte la lecture depuis un flux, je n'ai plus le détail en mémoire mais ça tourne autour de IStream si mon souvenir est bon.

Google: Delphi SWF IStream
http://www.delphiflash.com/how-to-open-swf-from-memory

[Archimède]

Merci Paul, si l'activeX permet le passage par un flux... que demande le peuple
Je vais évidemment ne pas passer par le fichier...

merci pour ta réflexion toujours très pertinente.
Je regarde ça.

[tenpigs]

Je te propose de passer par ExtractFilePath(Application.ExeName) pour récupérer le dossier d'installation de ton exe.
Il me semble que les chemins relatif sont impactés lorsque tu utilises des OpenDialog/SaveDialog par exemple...

[Archimède]

Merci tempiqs pour ta réponse mais je n'avais pas vu toutes les possibilités que pouvait m'offrir l'activeX...cf post réponse à Paul Toth.

[cincap]

Bonsoir à toutes et à tous,

@ Archimède, voici le code que j'utilise à l'occasion :

Depuis le dossier de l'application :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var Chemin:string;
  begin
   Chemin := ExtraCtFilePatH(Application.ExeName);
   Chemin[2] := '|';
   Chemin := 'file:///'+ Chemin;
   if op1.Execute then begin
 
   Player.Movie :=  op1.filename;
   Player.Play;
  end;

Depuis une ressource :
Fichier RC = ANIM2 FLASH "ANIM2.swf"

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
 
var 
 
    Chemin:string;
    temp :array[0..255]of char;
    res :TresourceStream;
  begin
   gettemppath(255, temp);
   Chemin := temp;
 
 
   res := TresourceStream.Create(hinstance, 'ANIM2', 'FLASH');
    res.SaveToFile(Chemin + 'ANIM2.swf');
   res.Free;
 
   Chemin[2] := '|';
   Chemin := 'file:///'+ Chemin;
 
    Player.Movie := Chemin + 'ANIM2.swf';
    Player.Play;
  end;

Car, avec le "LoadMovieFromStream();" j'avais une erreur sous D6 et "ShockwaveFlashObjects_TLB".

@+,

Cincap

[Archimède]

Merci Cincap, je teste tout ça...

@+

[cincap]

Bonjour à toutes et à tous,

@ Paul TOTH, cela m'intéresserait de savoir pourquoi ce code ne fonctionne pas avec D6 et "ShockwaveFlashObjects_TLB":

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
var
  mem: TMemoryStream;
begin
 with TOpenDialog.Create(self) do
  begin
    Filter := 'SWF|*.swf';
    if Execute then
    begin
      mem := TMemoryStream.Create;
      mem.LoadFromFile(FileName);
      mem.Position := 0;
      Player.LoadMovieFromStream(mem); //Erreur ici "Identificateur non déclaré"
      //Player.PutMovieFromStream(mem);

    end;
    Free;
  end;

@+,

Cincap