comment stocker une video(mpeg,AVI) en res

[MIWAN]

Salut tous le monde
Comment stocker des fichiers (Mpeg ou avi) dans un fichier ressource et puis avoir les possibilités
de les affichés dans un TForm
NB : 1- les fichiers ont une taille entre 1 et 40 Mo .
2- je sais faire avec ( images - sound .....) sauf avec les Video 32bit .

Merci pour toutes aides.

[Lung]

la commande brcc32 sur un fichier *.rc ne fonctionne pas ?

[MIWAN]

Envoyé par Lung

la commande brcc32 sur un fichier *.rc ne fonctionne pas ?

si elle fonctionne .
mais sur quel composant on 'affiche les vidéos ?
est-ce sur TmediaPlayer ? ou TWindowsMediaPlayer ?
et c'est quoi le code SVP
je suis sur Delphi2010 .
Merci en tous les cas.

[ShaiLeTroll]

TMediaPlayer c'est un control Delphi qui encapsule les API MCI de Windows
TWindowsMediaPlayer c'est un ActiveX que l'on importe avec sa bibliothèque de type qui donne accès directement à l'objet de Windows Media Player, c'est pas tout à fait les même que celle de Windows

Il me semble qu'il faut fournir le Handle d'un composant pour recevoir le dessin, un Panel fait très bien l'affaire !
après, tu as des fonctions comme Open, Start... et des propriétés comme FileName...

Attention, il te faut installer les Codecs nécessaire !

Tu peux aussi utiliser VLC, il a aussi des API intégrés, et souvent lui n'a pas besoin de Codecs, il les a par défaut !

[MIWAN]

Merci ShaiLeTroll
Je n’ai pas de problèmes avec les Codecs mais je galère avec les codes oops:
J’ai le fichier.res
Et voici le code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
implementation
 
{$R *.dfm}
 
{$R Video.res}  
 
procedure TForm1.Button1Click(Sender: TObject);
var
  rs: TResourceStream;
begin
  rs := TResourceStream.Create(hinstance, 'TESTMPEG', RCDATA);
  Try
// qu’est-ce que je doit mettre dans la partie Try
…………………
……………….
………………….
  Finally
    rs.Free;
  end;
end;

je suis vraiment heureux de votre explications

MIWAN