Insertion d'une vidéo

Version imprimable

28/06/2012, 18h13
Archimède

Insertion d'une vidéo

Comment insérer une video en Flashpascal ?

Je peux le faire avec html5 avec la balise <video> mais suivant le navigateur, je ne suis pas portable...

exemple une video.ogv est tout à fait lisible avec firefox mais ne l'est pas avec ie...Il faudrait le format H .264 etc...

Joindre plusieurs videos identiques en différents formats est fastidieux...
En plus, ce sont des .avi que je convertis...

Je me disais qu'en Flash, je deviendrais portable avec tous les navigateurs.
D'où ma question ...:)

à priori il te faut des vidéos au format FLV

voici un code AS2 pas très difficile à traduire :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
var url = "http://ENTER YOUR URL HERE";
var nc: NetConnection = new NetConnection();
nc.connect(url);
var ns: NetStream = new NetStream(nc);
ns.setBufferTime(5);
 
ns.onStatus = function(info){
    if(info.code == "NetStream.Buffer.Full"){
    }
    if(info.code == "NetStream.Buffer.Empty"){
    }
    if(info.code == "NetStream.Play.Stop"){
        ns.seek(0);
        ns.play(url);
    }
}
 
//video location
myVideo.attachVideo(ns);
ns.play(url);

29/06/2012, 09h48
Archimède

Merci, je vais essayer d'adapter le code :ccool:

Je viens de tenter d'adapter le code sans comprendre grand chose...

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
 
program PVideo;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
type
 Netconnection= external class(NetConnection)
  class procedure connect(url:String);
 end;
 
 NetStream = external class(NetStream)
  class procedure setBufferTime(tempo:number);
  class procedure Play(url:String);
  class procedure Seek(nb:Number);
  property onStatus: procedure of object;
 end;
 
 
var
  nc: NetConnection;
  ns:NetStream;
  myvideo:Video;
  url:String;
begin
  url := 'mavideo.flv';
  nc.connect(url);
  ns.setBufferTime(5);
  myVideo.attachVideo(ns);
  ns.play(url);
end.

A priori, c'est un http// qui est demandé et moi, j'ai mis mon fichier flv.
ça compile mais rien ne se passse...

06/07/2012, 17h34
Archimède

Je viens de me rendre compte qu'il faudrait peut-être introduire des constructeurs pour Netconnection et NetStream...je regarde ça.:roll:

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
 
program PVideo;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
type
 Netconnection= external class(NetConnection)
  class procedure	connect(targetURI:String);
  constructor Create();
 end;
 
 NetStream = external class(NetStream)
  class procedure setBufferTime(tempo:number);
  class procedure Play(url:String);
  class procedure Seek(nb:Number);
  property onStatus: procedure of object;
  constructor Create(connection:NetConnection) ;
 end;
 
 
var
  nc: NetConnection;
  ns:NetStream;
  myvideo:Video;
  url:String;
 
 
begin
  url := 'video.flv';
  nc:=NetConnection.create();
  ns:=NetStream.create(nc);
  myvideo:=Video.Create();
  nc.connect(url);
  ns.setBufferTime(5);
  myVideo.attachVideo(ns);
  ns.play(url);
end.

ça ne marche toujours pas...

06/07/2012, 18h04
Archimède

déjà connect est une fonction de type Boolean.

A modifier :

Code:

class Function connect(targetURI:String):Boolean;

A priori, ça, ça devrait marcher...:

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
 
program PVideo;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
type
 Netconnection= external class(NetConnection)
  Function	connect(targetURI:String):Boolean;
  constructor Create();
 end;
 
 NetStream = external class(NetStream)
   procedure setBufferTime(tempo:number);
   procedure Play(url:String);
   procedure Seek(nb:Number);
   property onStatus: procedure of object;
  constructor Create(connection:NetConnection) ;
 end;
 
 
var
  nc: NetConnection;
  ns:NetStream;
  myvideo:Video;
 
 
begin
  nc:=NetConnection.create();
  nc.connect('Video.flv');
  ns:=NetStream.create(nc);
  ns.setBufferTime(3);
  myvideo:=Video.Create();
  myVideo.attachVideo(ns);
  ns.play('video.flv');
end.

je n'ai toujours rien...

06/07/2012, 18h33
Archimède

il faudrait aussi ajouter :

Code:

video._parent:=_Root;

...je cherche...
06/07/2012, 20h19
Archimède

la procedure play n'est pas satisfaisant, apparemment il faut ajouter des paramètres.

je ne les comprends pas vraiment

j'ai tenté ça :

Code:

procedure play(name:string; start:Number=1;len:Number=0; reset:TObject=nil);

en fait après consultation de la doc adobe :

Code:

procedure play(name:string; start:Number=-2;len:Number=-1);

name normalement, c'est de type object ?
07/07/2012, 09h33
Paul TOTH

Hello,

bon en fait je crois qu'on a le même problème avec Video qu'avec Button...il ne semble pas être possible d'instancier un objet Video par programmation.

il va falloir attendre que FlashPascal permette de dessiner une interface visuel et de placer des objets à la souris :)

désolé
07/07/2012, 10h18
Archimède

Hello,
en effet...(merci pour ton lien).

Pas grave, avec HTML5, je peux me débrouiller...:lol:
07/07/2012, 19h28
Paul TOTH

alors j'ai une solution dans la nouvelle version que je viens de mettre en ligne :)
08/07/2012, 09h08
Archimède

Et là, c'est nickel...plus besoin de s'embêter avec 36 formats pour être portable avec l'ensemble des navigateurs....:ccool:

encore bravo !

ps: je fais un break un petit moment avec les vacances. à bientôt.