フレームをNTSCドロップフレームタイムコードに変換

Question

フレーム内の整数値をNTSCドロップフレームタイムコード（hh：mm：ss.ff）に変換する関数を探しています。

私はDelphiを使用していますが、どの言語でも使用できます。

おかげ

Answer 1

function FramesToNTSCDropFrameCode(Frames:Integer;FramesPerSecond:Double):string; 
var 
    iTH, iTM, iTS, iTF : word; 
    MinCount, MFrameCount : word; 
begin 
    DivMod(Frames, Trunc(SecsPerMin * FramesPerSecond), MinCount, MFrameCount); 
    DivMod(MinCount, MinsPerHour, iTH, iTM); 
    DivMod(MFrameCount, Trunc(FramesPerSecond), ITS, ITF); 
    Result := Format('%.2d:%.2d:%.2d.%.2d',[iTH,iTM,iTS,iTF]); 
end; 

あなたはSysUtilsユニットからDivModルーチンをコピーする必要があり、また、この機能を実装して何にSysUtilsユニットが含まれます。その問題のためのよく知られた古典的な溶液があり

Answer 2

...

• 入力フレームカウントNRがオールウェイズ 1001分の30000〜= 29.97で実際のフレームレート、に相対的ですNTSC
• 算出結果フレーム-Nrが30fpsの公称フレームレートである（分10

によって分割可能でない限り、各フル分で+ 2framesジャンプを示すことになるため、毎秒フレーム0

結果のフレーム番号を「ドロップ」から

const uint FRAMES_PER_10min = 10*60 * 30000/1001; 
const uint FRAMES_PER_1min = 1*60 * 30000/1001; 
const uint DISCREPANCY  = (1*60 * 30) - FRAMES_PER_1min; 


/** reverse the drop-frame calculation 
* @param frameNr raw frame number in 30000/1001 = 29.97fps 
* @return frame number using NTSC drop-frame encoding, nominally 30fps 
*/ 
int64_t 
calculate_drop_frame_number (int64_t frameNr) 
{ 
    // partition into 10 minute segments 
    lldiv_t tenMinFrames = lldiv (frameNr, FRAMES_PER_10min); 

    // ensure the drop-frame incidents happen at full minutes; 
    // at start of each 10-minute segment *no* drop incident happens, 
    // thus we need to correct discrepancy between nominal/real framerate once: 
    int64_t remainingMinutes = (tenMinFrames.rem - DISCREPANCY)/FRAMES_PER_1min; 

    int64_t dropIncidents = (10-1) * tenMinFrames.quot + remainingMinutes; 
    return frameNr + 2*dropIncidents; 
}     // perform "drop" 

を（あなたがあなたの値の範囲が限定されている知っていればもちろん、あなたが小さいint型を使用する場合があります）、あなたは公称30fpsのフレームレートを使用して、いつものようにコンポーネントを計算することができます。 ..

frames = frameNumber % 30 
seconds = (frameNumber/30) % 60 

のように...