Dim mTimeStart As M_DATETIME
Dim mTimeStop As M_DATETIME
Dim eStartType As eMStartType
Dim myTask As MItem
pItem.ItemTimesGet(mTimeStart, mTimeStop, eStartType)
Dim strPath As String = "d:\clips\SampleClip1.wmv"
myPlaylist.SchedulerAdd(mTimeStop, Nothing, strPath, "", myTask)
Dim myLastTime As M_DATETIME
Dim myCount As Integer
myPlaylist.SchedulerStatGet(myTask, myLastTime, myCount)
M_DATETIME mTimeStart;
M_DATETIME mTimeStop;
eMStartType eStartType;
MItem myTask;
pItem.ItemTimesGet(out mTimeStart, out mTimeStop, out eStartType);
string strPath = @"d:\clips\SampleClip1.wmv";
myPlaylist.SchedulerAdd(mTimeStop, null, strPath, "", out myTask);
M_DATETIME myLastTime;
int myCount;
myPlaylist.SchedulerStatGet(myTask, out myLastTime, out myCount);
var
myPlaylist: MPlaylist;
mTimeStart, mTimeStop, mLastTime: M_DATETIME;
eStartType: eMStartType;
myTask: MItem;
myCount: integer;
strPath: string;
myScheduler: IMScheduler;
begin
myPlaylist:= CreateComObject(CLASS_MPlaylist) as MPlaylist;
pItem.ItemTimesGet(mTimeStart, mTimeStop, eStartType);
myScheduler := myPlaylist as IMScheduler;
strPath :='d:\clips\SampleClip1.wmv';
myScheduler.SchedulerAdd(mTimeStop, nil, strPath, '', myTask);
myScheduler.SchedulerStatGet(myTask, myLastTime, myCount);
end;