QTMTB 48 - SetMovieDefaultDataRef とは

Q: SetMovieDefaultDataRef 関数のマニュアルを見つけることができません。この関数の働きと使い方を教えてください。

A: SetMovieDefaultDataRef は、Movies.h の中で次のように定義されています。

pascal OSErr SetMovieDefaultDataRef(Movie theMovie, Handle dataRef, OSTypedataRefType);

     OSErr ConvertGeneralMIDIToSoundTrack (void)
     {
          OSErr                              err = noErr;
          StandardFileReply                  reply;
          short                              refNum;
          long                                logicalEOF;
          Handle                             dataHandle = nil, tempHandle = nil;
          Movie                              theMovie = nil, tempMovie = nil;

          // インポートの対象として General MIDI ファイルを指定する
          StandardGetFilePreview (nil, 0, nil, &reply);
          if (reply.sfGood)
          {
               // データフォークを開き、すべてのデータをハンドルの中に吸い上げる
               err = FSpOpenDF (&reply.sfFile, fsRdPerm, &refNum);
               err = GetEOF (refNum, &logicalEOF);
               dataHandle = NewHandleClear (logicalEOF);
               HLock (dataHandle);
               err = FSRead (refNum, &logicalEOF, *dataHandle);
               HUnlock (dataHandle);
               FSClose (refNum);

               // メモリ内に新しいムービーを作成し、そのデフォルトのデータ参照を
               // ハンドルに設定する
               tempMovie = NewMovie (newMovieActive);
               tempHandle = NewHandleClear (4);
               SetMovieDefaultDataRef (tempMovie, tempHandle,
                    HandleDataHandlerSubType);
               DisposeHandle (tempHandle);

               // ハンドルに格納されたデータをムービーにペーストする
               err = PasteHandleIntoMovie (dataHandle, 'Midi', tempMovie, 0, nil);

               // ムービーをフラット化されたファイルに保存する
               StandardPutFile ("\pSave MIDI to:", "\pMIDI movie", &reply);
               if (reply.sfGood)
               {
                    theMovie = FlattenMovieData (tempMovie,
                         flattenAddMovieToDataFork, &reply.sfFile, 'TVOD',
                         smCurrentScript, createMovieFileDeleteCurFile);
               }
          }
          return err;
     }

SetMovieDefaultDataRef (tempMovie, fileAlias, rAliasType);

[ Technical Q&A's : Graphics & Media : QuickTime : QuickTime Movie Toolbox : QTMTB 48 ]