Discussion :

[Argol_Medusa]

bonjour,

j'ai le code suivant qui me permet d'intégrer un effet video/animation dans l'un de mes programmes.

Problème : je suis obligé d'écrire sur le disque la video avant de la lire car je suis limité par le composant MediaPlayer1 qui ne veut pas lire depuis une TMemoryStream

Quelqu'un sait-il s'il est possible de lire directement la memorystream sans passer par un fichier intermédiaire ( qui me fait perdre du coup l'avantage que j'avais de l'intégrer en ressource dans mon .EXE )

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
	/*! Charger le film */
 
	TMemoryStream *a;
	a= new TMemoryStream();
 
	// chargement de la video depuis les ressources
	HRSRC hRsrc;
	HGLOBAL hGlob;
 
	hRsrc = FindResource(NULL, L"Video1", RT_RCDATA);
	if (hRsrc == NULL)exit(EXIT_FAILURE);
 
	hGlob = LoadResource(NULL, hRsrc);
	if (hGlob == NULL)exit(EXIT_FAILURE);
 
	a->Write(hGlob,	SizeofResource(NULL, hRsrc));
	a->SaveToFile("patcheur.wmv");
	delete a;
 
	this->MediaPlayer1->FileName="test.wmv";
	this->MediaPlayer1->Open();
	this->MediaPlayer1->Position=0;
 
	// memoriser la position de la fenetre de depart
	Position_Fenetre_X=this->Left;
	Position_Fenetre_Y=this->Top;

[blondelle]

Salut Argol_Medusa
Regarde ce lien c'est malheureusement du Delphi en anglais, ca va peut etre t'aider

http://www.mail-archive.com/delphi@i.../msg02258.html

[ShaiLeTroll]

Est-ce que CreateFile peut ouvrir un fichier issu d'un CreateFileMapping ?
Si oui et si l'implémentation de MPlayer utilise CreateFile,
faudrait aussi voir si FileName accepte un nom de fichier issu d'un CreateFileMapping\MapViewOfFile pour gérer une mémoire partagé nommée
et au lieu de passer un "C:\\Dossier" tu passe un nom genre "Global\\MaMemoirePartage" !
Mais j'ai peu d'espoir que cela soit possible

Ce TMediaPlayerMemoryStream est très intéressant avec l'utilisation de mmioInstallIOProc

Sinon DSPack doit savoir faire cela non ?
On peut l'utiliser pour accéder plus facilement au couche base de DirectShow comme RenderStream dans ICaptureGraphBuilder2

Enfin, le TAnimate gère des AVI via ResName !
Des AVI basique, le format brut pas de compression genre MPEG !
Si tu as seven, cherche FlickAnimation.avi
Cela te donnera ce que donne une AVI Basique

[Argol_Medusa]

Bonjour,

tout d'abord merci à vous deux pour vos réponses.

Un petite précision : le fichier à lire est un WMV avec un codec, donc pas possible d'utiliser un TAnimate malheureusement

Je suis en train regarder ce composant TMediaPlayerMemoryStream (si ça ne donne rien je regarderai le DSpack )

En fait si je comprends bien (suis en train de décrypter, je ne parle pas le delphi couramment ), ça consite à charger un dummy file, puis à modifier le contenu de la mémoire du TMediaPlayer en écrasant ses données avec nos données présentes dans un TMemoryStream.

J'ai juste ou j'ai rien compris ?

[Argol_Medusa]

Code :

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

1
2
  mmioInstallIOProc (mmioStringToFourCC (PChar (fExtension), 0), IOProc,
MMIO_INSTALLPROC); // or MMIO_GLOBALPROC);

Au passage je reste bloqué sur un pauvre cast dans le code indiqué par Blondelle ( mais en delphi du coup je ne connais pas la syntax )

Code :

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

Type imcompatibles : PAinsiChar et PWideChar

[ShaiLeTroll]

Sinon, tu peux inclure directement le fichier PAS dans un projet CPP, inutile de la traduire, il va te générer le HPP pour faire l'include et c'est réglé !

Code delphi :

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

1
2
  mmioInstallIOProc (mmioStringToFourCC (PChar (fExtension), 0), IOProc,
MMIO_INSTALLPROC); // or MMIO_GLOBALPROC);

devient

Code :

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

1
2
 mmioInstallIOProc (mmioStringToFourCC (fExtension.c_str(), 0), IOProc,
MMIO_INSTALLPROC); // or MMIO_GLOBALPROC);

fExtension est une String, si tu n'as pas joué avec les options de projet
Si tu as migré un projet 2007 et laisser le mappage char alors AnsiString
Si nouveau projet ou alors mappage w_chart alors String ou UnicodeString

Tu peux aussi appeler mmioStringToFourCCA ou mmioStringToFourCCW

Faudra aussi voir IOProc ou &IOProc
Même en Delphi, IOProc fonctionne mais aussi @IOProc
N'oubli pas que IOProc est stdcall (WINAPI)

[Argol_Medusa]

Ok, merci pour les infos, je vais essayer de compiler le code PAS en delphi directement alors comme tu le suggères, j'ai encore jamais fait.

Par contre l'erreur de compilation est en delphi, c'est ce point qui me gène.

Bref, je vais encore travailler dessus =)

[ShaiLeTroll]

Ah l'erreur est depuis le PAS intégré !
OK, je pensais que tu tentais de le traduire en C++ !

Est-ce que le mappage CHAR du projet impacte le code Delphi ? j'en ai aucune idée !

Comme, je le disais, remplace mmioInstallIOProc par mmioInstallIOProcA ou mmioInstallIOProcW, l'un des deux passera !
Il sera prudent que tout soit W ou A ensuite !