tester si un fichier est une video flvRésolu

Question

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)?

cs_cantador · Answer

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

Cirec · Answer

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

<hr siz="" />

Cirec · Answer

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

<hr siz="" />

cs_cantador · Answer

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

cs_benus · Answer

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?

Cirec · Answer

ben comment veux tu lire une partie d'un fichier sans le loader 

 
@+
Cirec

<hr siz="" />

cs_benus · Answer

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

Cirec · Answer

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

<hr siz="" />

f0xi · Answer

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; 





<hr size="2" width="100%" />

Cirec · Answer

ah, F0xi m'a grillé au poteau 

j'allais faire la même chose pour la poster dans les Snippets 

Trop tard 

 
@+
Cirec

<hr siz="" />

cs_benus · Answer

tu es pas loin de la mienne qui pourrait etre ameliorée grandement je pense (je debute avec le language delphi) :) function IsFlvFile(FilePath:string):boolean; Var //MS : TMemoryStream; Sign : Longint; Extention : string; Const FLVSignature = $1564C46; Begin result:=false; Extention:=ExtractFileExt(FilePath); Extention:=StringReplace(Extention,'.','',[rfReplaceAll, rfIgnoreCase]); if (FilePath<>'') AND (Extention<>'htm') AND (Extention<>'html') AND (Extention<>'css') AND (Extention<>'js') AND (Extention<>'gif') AND (Extention<>'jpg') AND (Extention<>'png') AND (Extention<>'txt') then begin With TMemoryStream.Create Do Try LoadFromFile(FilePath); try ReadBuffer(Sign, SizeOf(Sign)); except ShowMessage('cant read: '+FilePath); end; If Sign = FLVSignature Then begin ShowMessage('Fichier Flash: '+FilePath); result:=true; end; Finally Free; End; end; End;

cs_cantador · Answer

Tiens je viens de voir que :
$01564C46
çà donne en texte :




&#x0;1;VLF



une explication ?

cantador

Cirec · Answer

Ben  est la représentation Hexa de FLV mais inversé ... les octets sont écrits en sens inverse dans un fichier binaire

 
@+
Cirec

<hr siz="" />

cs_cantador · Answer

hoops..
les fichiers binaires c'est vraiment pas mon truc..
mais on ne sait jamais..
merci cirec

cantador

Tester si un fichier est une video flv

14 réponses

Votre réponse

Discussions similaires