ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Info fichier AVI   



L'auteur

Gregory Adam
Belgique Belgique
Membre Actif (personne physique)
# 0000001121
enregistré le 04/06/2006

Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Info fichier AVI
# 0000000452
ajouté le 17/06/2007 19:57:21 et modifié le 17/06/2007
consulté 5338 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0


Télécharger le ZIP (1.85 Ko)
Code source :
function Do_it()

  set proc to avi_FileInfo additive


  local Success
  Success = TRUE

  local obj, FileName
  FileName = '\tmp\in\FlickAnimation.avi'
  FileName = '\tmp\in\Search.avi'
  FileName = '\tmp\in\Wndsurf1.avi'
  FileName = '\tmp\in\Sample.avi'

  do case
  case !m.Success

  case !avi_FileInfo_Object(@m.obj)
    assert FALSE
    Success = FALSE

  case !m.obj.Info_get(m.FileName)
    assert FALSE
    Success = FALSE

  otherwise
    with m.obj
      ? 'MaxBytesPerSec', .MaxBytesPerSec
      ? 'Flags', .Flags
      ? 'Caps', .Caps
      ? 'Streams', .Streams
      ? 'SuggestedBufferSize', .SuggestedBufferSize
      ? 'Width', .Width
      ? 'Height', .Height
      ? 'Scale', .Scale
      ? 'Rate', .Rate
      ? 'Length', .Length
      ? 'EditCount', .EditCount
      ? 'Seconds', .Seconds

      ? 'FileType', .FileType

    endwith

  endcase

  return m.Success

endfunc
*---------------------------------------------------------------------------
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3