récupérer la taille d'un movie avec applescript ?

[titojean]

Bonjour,

Est-il possible de récupérer la taille original (largeur & hauteur) d'un fichier ".mov" dans un script applescript sans avoir à lancer QT ? (au besoin en utilisant "un peu" de cocoa)

merci par avance de votre aide

 

[Didier Guillion]

Bonjour,

Est-il possible de récupérer la taille original (largeur & hauteur) d'un fichier ".mov" dans un script applescript sans avoir à lancer QT ? (au besoin en utilisant "un peu" de cocoa)

merci par avance de votre aide

En C:

/*****************************************************************************************************************************************
                QuicktimeGetMovie
Lit une movie
***************************************************************************************************************************************/
static OSErr QuicktimeGetMovie(char * name,Movie *theMovie)
{
OSErr 			err = noErr;
short			resFile = 0;
short			resID = 0;
Str255			movieName;
Boolean			wasChanged;
FSSpec			theFSSpec;

EnterMovies();
err=CreateFSSpecFromPathName(name,false,&theFSSpec);
if(err==noErr)
    {
    err= OpenMovieFile(&theFSSpec, &resFile, fsRdPerm); 
    if(err == noErr)
        {
        err= NewMovieFromFile(theMovie, resFile, &resID, movieName, newMovieActive, &wasChanged);
     	if(err==noErr)
            CloseMovieFile(resFile);
        else
           printf("NewMovieFromFile(%s) err %d\n",name,err);
        }
    else
        printf("OpenMovieFile(%s) err %d\n",name,err);

    }
else
    printf("CreateFSSpecFromPathName(%s) err %d\n",name,err);
return(err);
}

/*****************************************************************************************************************************************
               Extrai la taille d'une movie
***************************************************************************************************************************************/
- (void)ExtractMovieSize
{
OSErr err;
Rect aire;
Movie movie=NULL;

QTVRxSize=0;
QTVRySize=0;
err=QuicktimeGetMovie(SourceFile,&movie);
 if(err==noErr && movie) 
	{
    GetMovieBox(movie,&aire);
    OffsetRect(&aire,-aire.left,-aire.top);
    // Fichier MIDI pas de preview
    QTVRxSize=aire.right-aire.left;
    QTVRySize=aire.bottom-aire.top;
    DisposeMovie(movie);
	}
return;
}

QTVRxSize et QTVRySize sont les tailles x et y, tu en fait ce que tu veut.

Cordialement

 

[titojean]

Ok, super, merci
...je vais tenter d'utiliser ces lignes...
(si j'arrive à les comprendre...)