I'd like to generate a slideshow from two images then save the resulting
movie as h264 compressed.
I tried various ways, like generating a movie, the exporting it but it
always fails.
I'm curious to know what's the fastest way to go, maybe exporting directly
the movie I just built, without generating a movie in between that I need to
reopen then export.
Here's my code so far (I've voluntarily skipped the h264 setting for the
exporter for now in this code) :
-------------------------------
dim m as EditableMovie
dim track as QTVideoTrack
dim theEffect as QTEffect
dim sequence as QTEffectSequence
dim t, i as Integer
dim f, d as FolderItem
dim q as QTMovieExporterMBS
dim mm as Movie
dim e as Integer
f = SpecialFolder.Desktop.Child("testNew")
if f.Exists then
f.Delete
end if
m=f.CreateMovie
m.SaveOnClose = true
track=m.NewVideoTrack(1080, 720, 32)
t = 96
theEffect=GetQTCrossFadeEffect
sequence=new qteffectsequence(theEffect, hundertwasser,
southpark_lastsupper, t)
for i = 1 to t
sequence.frame=i
track.appendpicture sequence.image
Next
e = m.SaveMBS(f, true, true)
m = nil
mm=f.OpenAsMovie
d = f.Parent.Child("testNew_h264")
dim b as BinaryStream = BinaryStream.Create(d, true)
b.Close
q = new QTMovieExporterMBS
if q.ExportToFile(mm, d) then
MsgBox "OK"
else
MsgBox "Failed"
end if
//f.Launch
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
