begin process at 2008 05 16 04:35:42
1 173 215 membres
57 nouveaux aujourd'hui
13 970 membres club

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)

tester si un fichier est une video flv le 19/04/2008 13:28:07

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

Re : tester si un fichier est une video flv le 19/04/2008 23:16:21

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


Re : tester si un fichier est une video flv le 20/04/2008 00:24:10

cirec
Membre Club
(Admin CS)
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


Re : tester si un fichier est une video flv le 20/04/2008 00:43:09

cirec
Membre Club
(Admin CS)
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


Re : tester si un fichier est une video flv le 20/04/2008 11:24:49

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

cantador

Re : tester si un fichier est une video flv le 20/04/2008 15:53:35

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?

Re : tester si un fichier est une video flv le 20/04/2008 16:58:42

cirec
Membre Club
(Admin CS)
ben comment veux tu lire une partie d'un fichier sans le loader

 
@+
Cirec


Re : tester si un fichier est une video flv le 20/04/2008 17:00:41

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

Re : tester si un fichier est une video flv le 20/04/2008 17:44:04

cirec
Membre Club
(Admin CS)
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


Re : tester si un fichier est une video flv le 20/04/2008 19:25:57

f0xi
Membre Club
(Admin CS)

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;






[Page 1 Page 2]
Classé sous : fichier, tester, format, video, flv

Participer à cet échange

Appels d'offres

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS