Making a simple video... free to use/modify/embed/spread

[code]

Here the code for now:
(Maybe later some more info about this)





''insert code here
nomainwin
   texteditor #scr.te1, 10, 150, 400, 40
   texteditor #scr.te2, 10, 200, 400, 40
   texteditor #scr.te3, 10, 250, 400, 40

   button #scr, "First download .zip file and UnZip... ", [b1], UL, 15, 40
   button #scr, "Make now video... ", [b2], UL, 15, 80

   open "..." for graphics_nsb as #scr

   print #scr, "fill green"
   print #scr, "flush"

print #scr.te1, "Greetings, from Frederik Pot"
print #scr.te2, "from Holland   "
 print #scr.te3, "Bye bye ... "

     wait

   [b1]
open "install.vbs" for output as #tf

print #tf,"Dim fsot"
print #tf,"Set fsot = CreateObject("+chr$(34)+"Scripting.FileSystemObject"+chr$(34)+")"

print #tf,"Dim fp"
print #tf,"fp = fsot.GetAbsolutePathName("+chr$(34)+chr$(34)+")"
print #tf, "dim xHttp: Set xHttp = CreateObject("+chr$(34)+"MSXML2.ServerXMLHTTP"+chr$(34)+")"
print #tf, "dim bStrm: Set bStrm = createobject("+chr$(34)+"Adodb.Stream"+chr$(34)+")"
print #tf, "xHttp.Open "+chr$(34)+"GET"+chr$(34)+" , "+chr$(34)+"http://c-studio.freevar.com/files.zip"+chr$(34)+" , False"
print #tf, "xHttp.setTimeouts 1000 * 60 * 1, 1000 * 60 * 1, 1000 * 60 * 1, 1000 * 60 * 7"
print #tf, "xHttp.send()"

   print #tf, "with bStrm"
   print #tf, ".type = 1 "
   print #tf, ".open"
   print #tf, ".write xHttp.ResponseBody"
   print #tf, ".savetofile fp & "+chr$(34)+"files.zip"+chr$(34)+" , 2"
   print #tf, "end with"

print #tf, "ZipFile=fp & "+chr$(34)+"files.zip"+chr$(34)

print #tf, "ExtractTo=fp "

print #tf, "Set fz = CreateObject("+chr$(34)+"Scripting.FileSystemObject"+chr$(34)+")"
print #tf, "If NOT fz.FolderExists(ExtractTo) Then"
print #tf, "fz.CreateFolder(ExtractTo)"
print #tf, "End If"

print #tf, "set objShell = CreateObject("+chr$(34)+"Shell.Application"+chr$(34)+")"
print #tf, "set FilesInZip=objShell.NameSpace(ZipFile).items"

print #tf, "objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)"
print #tf, "Set fz = Nothing"
print #tf, "Set objShell = Nothing"

close #tf


   RUN "wscript install.vbs"
wait
[b2]
UpperLeftX = 1
   UpperLeftY = 1
   WindowWidth = 680
   WindowHeight = 520

open "Bmpsave Test" for graphics_nf_nsb as #g

   #g "fill black"
   #g "font arial 15"
   #g "down;color white;backcolor blue; place 40 40"
   print #scr.te1, "!contents? res1$"
   #g "\"+res1$
   #g "getbmp image1 0 0 640 480"

   bmpsave "image1", "d1.bmp"

   #g "fill black"
   #g "font arial 15"
   #g "down;color white;backcolor blue; place 40 40"
   print #scr.te2, "!contents? res2$"
   #g "\"+res2$
   #g "getbmp image2 0 0 640 480"

   bmpsave "image2", "d2.bmp"

   #g "fill black"
   #g "font arial 15"
   #g "down;color white;backcolor blue; place 40 40"
   print #scr.te3, "!contents? res3$"
   #g "\"+res3$
   #g "down"
   #g "place 200 100"
   #g "circle 90"
   #g "getbmp image3 0 0 640 480"

   bmpsave "image3", "d3.bmp"

open "viddata.txt" for output as #b
print #b,"3xxxxemptyxxxx" '' 3 frames/.bmp files
close #b

RUN "change.exe"

RUN "vid.exe 3 3000" ''3 frames/.bmp files with 3 sec duration

b$ = "video.avi"
RUN "rundll32.exe url.dll,FileProtocolHandler ";b$


wait





[Rod]

The automatic .zip download fails with "failed to write to file." Why not just offer the .zip as a download and let folks try themselves? I would rather understand what you are doing to my PC than run an automatic script.

[code]

Hi,again..here some more explanation about the code above.
What does it do ? Simply said it makes 3 .bmp files (1.bmp,2.bmp,3.bmp) and combine it to
video.avi file.
When downloaded files.zip file it unzips 4 files(change.exe ,vid.exe ,sound.wav,viddata.txt) ,this is done with the file install.vbs (runned with : RUN"wscript install.vbs")

Now we look at the code under button [b2] :

It makes 3 .bmp files(d1.bmp,d2.bmp,d3.bmp) with:

#g "getbmp image1 0 0 640 480"

bmpsave "image1", "d1.bmp"


These 3 files won't work with vid.exe(to make the output video.avi)
So they have to be 'changed' with change.exe, this is a program made with realbasic('www.xojo.com')

This is how the realbasic code looks:

window1.Hide
dim a,total as integer
dim f as folderitem
dim datafile as TextInputStream
f=GetFolderItem("viddata.txt")
datafile=f.OpenAsTextFile
dim rd as String
rd=datafile.ReadAll
total=val(NthField(rd,"xxxx",1))


//MsgBox str(total)
//MsgBox rd


for a=1 to total step 1
dim im as Picture
dim lp as FolderItem
lp=GetFolderItem("d"+str(a)+".bmp")
im=lp.OpenAsPicture

dim p3 as picture
p3=newpicture(640,480,32)
p3.Graphics.DrawPicture(im,0,0,640,480)
dim b3 as folderitem
b3=getfolderitem(str(a)+".bmp")
b3.SaveAsPicture p3
next

quit


Simply said it changes the 3 files (d1.bmp,d2.bmp,d3.bmp) to : 1.bmp , 2.bmp, 3,bmp .
Now they can put with vid.exe to video.avi

The vid.exe file reads the 2 parameters ('RUN vid.exe 3 3000')...
It says: combine 3 files(1.bmp,2.bmp,3.bmp) to the video.avi file with the duration of 3 seconds(3000 ms).

The vid.exe is free to use/spread/embed/modify/redistribute .
Its based on:avi_utils.cpp

And then the (valid)sounfile sound.wav (this must exists to create video.avi)

Here some realbasic code for creating a .wav file:

Declare Function mciSendString lib "winmm" alias "mciSendStringA"(x1 as Cstring,x2 as Cstring,x3 as integer,x4 as integer)as integer
dim h as integer
h=mciSendString("open new type waveaudio alias track1","0",0,0)
h=mciSendString("set track1 bitspersample 16","0",0,0)
h=mciSendString("set track1 samplespersec 44100","0",0,0)
h=mciSendString("set track1 channels 1","0",0,0)
h=mciSendString("record track1 ","0",0,0)


me.Sleep(val(EditField2.text)*1000)

h=mciSendString("save track1 sound.wav","0",0,0)
h=mciSendString("close track1 ","0",0,0)


Till so far... i already discovered a 'bug' in the code above(close #g ''forgotten) and maybe there are more...

Greetings,

Frederik Pot

[code]

Hi,

The zip file is at:

c-studio.freevar.com/files.zip

Unzip it in the directory where your .bas file is.

Regards,

code

[B+]

I am glad Rod asked for more info and code provided some (still have to study it more before I try it).

I know I am having great fun with the sound post made at last JB forum, JB enhanced with VBS to get a speaking voice was great!

code was that yours too?

[code]

Yes, the .vbs (Visual Basic Script)tricks...

[Rod]

The VB script has been around for a while, think JohhnyD first posted it.

'This VisualBASIC script can be run by Just BASIC

open "speak.vbs" for output as #1
#1 "Set MyVoice = CreateObject("; chr$(34); "Sapi.SpVoice"; chr$(34); ")"
#1 "Set fso = CreateObject("; chr$(34); "Scripting.FileSystemObject"; chr$(34); ")"
#1 "Set f = fso.OpenTextFile(WScript.Arguments.Item(0),1,true)"
#1 "Do While f.AtEndOfStream <> True"
#1 "MyVoice.Speak f.ReadLine"
#1 "Loop"
#1 "f.close"
close #1

open "morning.txt" for output as #2
#2 "Good morning Just BASIC user how are you today"
close #2

open "evening.txt" for output as #2
#2 "Good evening Just BASIC user hope you had a good day today"
close #2

a$ = "morning.txt"
b$ = "cscript.exe speak.vbs "; a$
run b$, hide


a$ = "evening.txt"
b$ = "cscript.exe speak.vbs "; a$
run b$, hide


As regards the video script, well displaying thre bmps for three seconds with audio would be exceptionally easy in Just BASIC. SO I am still wondering why we need three languages and three interpreters to achieve something relatively simply done natively. But I may be missing the point.

What does this complex code add to Just BASIC that native code can't achieve?

[code]

It doesn't work anymore...

Here some attachments...?

Attachments:

vid.exe (224.03 KB)

change.zip (804.75 KB)

sound.wav (298.56 KB)

[code]

And viddata.txt

Attachments:

viddata.txt (16 B)

[Rod]

The code I posted still works on my PC, so voice is easy.