B4A Library videoviewExt Lib write by IceFairy

Hi,
this is my lib,It's different from the organizational one,It can zoom in video file!you can test by yourself!:sign0060:

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
Dim vvv As VideoViewExt
Dim pp As Phone
End Sub

Sub Activity_Create(FirstTime As Boolean)
'icemod.phone1.SetScreenOrientation(0)
vvv.Initialize("vv1")
'vve.Initialize("vve")
Log(icemod.playerfn)
vvv.LoadVideo(icemod.mypath,icemod.playerfn)
Activity.AddView(vvv,0,0,Activity.Width,Activity.Height)
vvv.Play
End Sub
Sub vv1_Complete
   Log("complete")
End Sub
Sub Activity_Resume
pp.SetScreenOrientation(0)
End Sub

Sub Activity_Pause (UserClosed As Boolean)
pp.SetScreenOrientation(1)
End Sub

 

[icefairy333]

and here is the src:

 

[icasee]

you did a great job. :sign0098:

 

[vb1992]

Nice, can you specify the zoom value? 1.5x, 2x, 3x

 

[Erel]

Thank you for sharing. I've created a wiki user for you. You should receive an email with the password.

Please add it to the list: Libraries - Basic4android Wiki

 

[icefairy333]

Thank you for sharing. I've created a wiki user for you. You should receive an email with the password.

Please add it to the list: Libraries - Basic4android Wiki

ok I will

 

[icefairy333]

Nice, can you specify the zoom value? 1.5x, 2x, 3x

you can do it by yourself

 

[bluedude]

So eh, what is this? Can you explain a little more?

Is this to load a local video file or what?

Cheers,

 

[icefairy333]

useage:see the videoview
differents:zoom in the video match the videoview size

 

[sally3599]

got a error message

A error message:

Compiling code.                         Error
Error parsing program.
Error description: Undeclared variable 'icemod' is used before it was assigned any value.
Occurred on line: 19
Log(icemod.playerfn)

Example is same:

'Activity module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
Dim vvv As VideoViewExt
Dim pp As Phone
End Sub

Sub Activity_Create(FirstTime As Boolean)
'icemod.phone1.SetScreenOrientation(0)
vvv.Initialize("vv1")
'vve.Initialize("vve")
Log(icemod.playerfn)
vvv.LoadVideo(icemod.mypath,icemod.playerfn)
Activity.AddView(vvv,0,0,Activity.Width,Activity.Height)
vvv.Play
End Sub
Sub vv1_Complete
    Log("complete")
End Sub
Sub Activity_Resume
pp.SetScreenOrientation(0)
End Sub

Sub Activity_Pause (UserClosed As Boolean)
pp.SetScreenOrientation(1)
End Sub

Any help will be appreciate it.

 

[klaus]

You are using the object icemod but you haven't dimed it.
Dim icemod As ????

Best regards.

 

[PaulR]

Sorry for the silly question, but how do we check what the scale of the video being loaded is to adjust the size and position of of the videoview if required?

 

[icefairy333]

to #11 This demo didn't use the module named icemod
to #12 the video will fill the parent container.

 

[margret]

I can only get the zoom function to work on Android 14 up. It will not zoom on Android 2.2 or 2.3. Is this a known limitation of the older OSs?

 

[vb1992]

how does this even zoom?

 

[margret]

I change the size of the VideoViewExtended object. To start with I set the view to the Activity.Width and calculate the 16.9 ratio:

'In Globals
w = Activity.Width
h = Activity.Height
vv.Width = w
vv.Height = (w/16) * 9

now to zoom:

Sub ZoomIn
     'Zoom 10 Pixels @ a time
     vv.Left = vv.Left -10
     vv.Width = vv.Width +20
     vv.Height = vv.Height +(20/16) * 9
End Sub

This works great in ICS but not in 2.2 or 2.3.

 

[vb1992]

It is possible, I just tested this video player's pinch/zoom on 2.3 device

https://play.google.com/store/apps/details?id=com.bsplayer.bspandroid.free

this app from the market - it's not perfect playback when zoomed though.

have to test more to see if we can get this library to work

http://stackoverflow.com/questions/9065307/issue-on-zoom-videoview

 

[margret]

Just loaded my code on the SG S2 which is 2.3.4. It works like ICS. However, when it is zoomed to larger than the screen the video plays fine but looks like it drops frames here and there(not as smooth). The other device I tried, kindle fire, will not do this at all. Must be their forked version of the OS. So it seems we have the code to do this but it will be device specific as to if it works or not and how smooth.

The last link posted above by: vb1992 from stackoverflow seems to state the same thing (some will work and others will not).

 

[PhilipBrown]

icemod query unresolved

Any advice on how to get rid of the icemod error?

 

[MarcoRome]

icemod query unresolved

Any advice on how to get rid of the icemod error?

icemod is structure as:

Type MyType( mypath As String ,playerfn As String )
Dim icemod As MyType
.....

The library work also without this of course.
This is a example complete:

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
Dim vvv As VideoViewExt
Dim w,h As Int
'Dim pp As Phone

End Sub

Sub Activity_Create(FirstTime As Boolean)
'icemod.phone1.SetScreenOrientation(0)
vvv.Initialize("vv1")
'vve.Initialize("vve")
w = Activity.Width * 1.5
h = Activity.Height * 1.5
Log(w & " " & h)

vvv.LoadVideo(File.DirRootExternal, "movie.m4v")

'Activity.AddView(vvv,0,0,Activity.Width,Activity.Height)
Activity.AddView(vvv,0,0,w,h)
vvv.Play
End Sub


Sub vv1_Complete
   Log("complete")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub