Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : tester si un fichier est une video flv [ Système / Fichier & Disque ] (benus)

samedi 19 avril 2008 à 13:28:07 | tester si un fichier est une video flv

benus

bonjour,
connaissez-vous une librairie ou une astuce qui permet de tester si l'en-tete d'un fichier est bien au format flv (le format video de flash)?

samedi 19 avril 2008 à 23:16:21 | Re : tester si un fichier est une video flv

cantador

Membre Club

Tu crées un objet TShockwaveFlash et tu lances un Play
en encapsulant tes écritures par un Try Except..
C'est pas top mais faute de grives..

cantador


dimanche 20 avril 2008 à 00:24:10 | Re : tester si un fichier est une video flv

cirec

Membre Club Administrateur CodeS-SourceS
il y a du merle au menu

sinon tu check les 3 premiers octets (caractères) du fichier ... et si c'est "FLV" ...
je te laisse deviner

 
@+
Cirec


dimanche 20 avril 2008 à 00:43:09 | Re : tester si un fichier est une video flv

cirec

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
Voici un petit exemple :

Const FLVSignature = $1564C46;

Procedure TForm1.Button1Click(Sender: TObject);
Var MS : TMemoryStream;
    Sign : Longint;
Begin
  With
TMemoryStream.Create Do
  Try
    
LoadFromFile('test.flv');
    ReadBuffer(Sign, SizeOf(Sign));
    If Sign = FLVSignature Then ShowMessage('Fichier Flash');
  Finally
    
Free;
  End;
End;


 
@+
Cirec


dimanche 20 avril 2008 à 11:24:49 | Re : tester si un fichier est une video flv

cantador

Membre Club
hé cirec, c'est bon le merle !
trop fort..

cantador

dimanche 20 avril 2008 à 15:53:35 | Re : tester si un fichier est une video flv

benus

merci ce code me parrait assez optimisé mais au lieu de faire un loadfile, n'est-il pas possible de lire uniquement les 3 premiers octets du fichier?

dimanche 20 avril 2008 à 16:58:42 | Re : tester si un fichier est une video flv

cirec

Membre Club Administrateur CodeS-SourceS
ben comment veux tu lire une partie d'un fichier sans le loader

 
@+
Cirec


dimanche 20 avril 2008 à 17:00:41 | Re : tester si un fichier est une video flv

benus

c'etait justement ma question, est-t-il possible de loader uniquement les 3 premiers octets?

dimanche 20 avril 2008 à 17:44:04 | Re : tester si un fichier est une video flv

cirec

Membre Club Administrateur CodeS-SourceS
ben c'est ce que je fais ... le fichier est ouvert et je lis les premier caractères et pas plus, puis le fichier est refermé ... on ne peut pas faire moins

ps : dans l'exemple donné je lis les 4 premiers et non les 3 premiers

 
@+
Cirec


dimanche 20 avril 2008 à 19:25:57 | Re : tester si un fichier est une video flv

f0xi

Membre Club Administrateur CodeS-SourceS

function IsFlashVideoFile(const FileName: string): boolean;
var Sign : LongWord;
const FLVSignature = $01564C46;
begin
  Result := false;
  if not FileExists(FileName) then
    Exit;
  with TFileStream.Create(FileName, fmOpenRead) Do
  try
    ReadBuffer(Sign, 4);
    Result := Sign = FLVSignature;
  finally
    Free;
  end;
end;






1 2

Cette discussion est classé dans : fichier, tester, format, video, flv


Répondre à ce message

Sujets en rapport avec ce message

NMFTP, date modification fichier [ par usmok ] est ce que kk1 sait comment récupérer la date de derniere modification d'un fichier gra^ce à un TNMFTPpour l'instant ,jy parviens en utilisant NMFTP.L NMTFP date modification fichier [ par usmok ] est ce que kk1 sait comment récupérer la date de derniere modification d'un fichier gra^ce à un TNMFTPpour l'instant ,jy parviens en utilisant NMFTP.L NMTFP date modification fichier [ par usmok ] est ce que kk1 sait comment récupérer la date de derniere modification d'un fichier gra^ce à un TNMFTPpour l'instant ,jy parviens en utilisant NMFTP.L Tester si un fichier est deja ouvert. [ par magicvinni ] Bonjour, Existe il une procedure pour savoir si un fichier F:TextFile est deja ouvert avec append:Procedure OUvreAssignFile(f,....)Append(f);Procedure lecture des entetes de fichier video mpeg :-( :-( :-( [ par fcr_loch ] Salut tout le monde...bon j'ai un gros souci, en faite j'arrive pas a trouvé une ptite source ou explication compréhensible par le simple mortel que j RICHEDIT sauvegarde format text seulement [ par yvessimon ] en utilisant   RichEdit1.Lines.SaveToFile('fichier.txt')alors dans   fichier.txt il y a d'autres informations telque  :{\rtf1\ansi\ansicpg1252\deff0\d fichier format cur [ par adec0127 ] salut Je sursis entrain de faire une application pour dessiner des curseursLe problème et comment les enregistre au extensions *.curJe voudrais savoir creation de fichier video a partir de jpeg sous delphi6 [ par deschamp ] sous delphi6 je cree de 10 a 1000 fichiers jpeg, pour une representation sous powerpoint, je veux regrouper ces fichiers jpeg sous delphi6 en une anim Tester si un fichier est exécutable & extraire ses paramètres [ par maxabbey ] Bonjour à tous,Je bute depuis quelques heures sur un problème.J'aimerais pouvoir tester si un fichier est un fichier exécutable ou non.J'ai bien trouv active X pour lecteur FLV [ par benus ] salut,quelqu'un a-t-il entendu parlé d'un activex pour lire le format FLV (le format video de flash)?


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,234 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.