Xojo Conferences
XDCMay2019MiamiUSA

Re: [MBS] Best way to generate a slideshow movie, then save or export it as h264 (MBS Xojo Plugin Mailinglist archive)

Back to the thread list
Previous thread: [MBS] Where is LSOpenFromURLSpec?
Next thread: [MBS] [ANN] Real Studio Developer Magazine's Conference Specials -- 50% off All Books for Attendees!


Re: [MBS] Best way to generate a slideshow movie, then save or export it as h264   -   Louis
  Re: [MBS] Best way to generate a slideshow movie, then save or export it as h264   -   Christian Schmitz
  [MBS] Best way to generate a slideshow movie, then save or export it as h264   -   Louis
   Re: [MBS] Best way to generate a slideshow movie, then save or export it as h264   -   Christian Schmitz

Re: [MBS] Best way to generate a slideshow movie, then save or export it as h264
Date: 12.04.13 16:41 (Fri, 12 Apr 2013 11:41:40 -0400)
From: Louis
>> I'd like to generate a slideshow from two images then save the resulting
>> movie as h264 compressed.
>
> Mac or Win?
Mac and Win ideally, but my test is for Mac only at the moment.

>> e = m.SaveMBS(f, true, true)
>>
>> m = nil
>
> This movie does play fine?
Yes.

>> mmðOpenAsMovie
Although when I open it mm is nil...

> On Windows you need to use OpenAsMovieMBS, I think.
Ok. Will try that.

>
>> if q.ExportToFile(mm, d) then
>> MsgBox "OK"
>> else
>> MsgBox "Failed"
>> end if
>

> This gives failed?
Yes.

> I don't see you using OpenExporter function and doing settings!?
That's cause I wanted to isolate each problem and from your instructions in
another email, I think I can handle that part fine. But it's more like :

- the movie I open once it has been saved is nil

- I would like to avoid generating a file in between as much as possible. If
I could for example deal with the movie in memory and only export to h264,
that would be my ideal situation.

Louis

_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
<email address removed>
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info

Re: [MBS] Best way to generate a slideshow movie, then save or export it as h264
Date: 12.04.13 16:50 (Fri, 12 Apr 2013 17:50:17 +0200)
From: Christian Schmitz

Am 12.04.2013 um 17:41 schrieb Louis <<email address removed>>:

>> I don't see you using OpenExporter function and doing settings!?
> That's cause I wanted to isolate each problem and from your instructions in
> another email, I think I can handle that part fine. But it's more like :
>
> - the movie I open once it has been saved is nil

is nil?
Sounds like there are still references open.

> - I would like to avoid generating a file in between as much as possible. If
> I could for example deal with the movie in memory and only export to h264,
> that would be my ideal situation.

you don't need to save to file in-between.
You can export a movie directly.

Greetings
Christian

[MBS] Best way to generate a slideshow movie, then save or export it as h264
Date: 12.04.13 00:02 (Thu, 11 Apr 2013 19:02:45 -0400)
From: Louis
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ð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ð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 address removed>
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info

Re: [MBS] Best way to generate a slideshow movie, then save or export it as h264
Date: 12.04.13 10:19 (Fri, 12 Apr 2013 11:19:56 +0200)
From: Christian Schmitz

Am 12.04.2013 um 01:02 schrieb Louis <<email address removed>>:

> I'd like to generate a slideshow from two images then save the resulting
> movie as h264 compressed.

Mac or Win?

> e = m.SaveMBS(f, true, true)
>
> m = nil

This movie does play fine?

> mmðOpenAsMovie

On Windows you need to use OpenAsMovieMBS, I think.

> if q.ExportToFile(mm, d) then
> MsgBox "OK"
> else
> MsgBox "Failed"
> end if

This gives failed?

I don't see you using OpenExporter function and doing settings!?

Greetings
Christian

-