Subroutine running on....
Hi,
Firstly thanks for taking the time out to read this and even more thanks if anyone manages to come up with a solution...
Problem..
I am writing a video camera surveillance system in VB which basically allows the user to switch camera's, record and playback footage, etc.
The problem exisits in the playback.. Basically the programme stores each frame of the 'video' as a jpg image and the player creates a buffer for each image in the video and plays them back, bit like an old fashioned flip book. This works a treat but the user can not do anything untill the full video has been played. The form will not respond to any toolbar mouse click (ie the pause button) or slider bar.
Here's the code I'm using to display each frame. Its called from another subroutine passing through the frame number for the next frame.
[code]
Private Sub ShowPic(acount As Long)
Dim MyFile As Long
Dim Buffer As String
Dim aVariant As Variant
Dim nLen As Long
Dim nPos As Long
Dim nGet As Long
Dim i As Long
strFile = "c: empyCam
ew" & acount & ".jpg"
MyFile = FreeFile
Open strFile For Binary Access Read As #MyFile
nLen = LOF(MyFile)
Buffer = Space(nLen)
Get #MyFile, , Buffer
Close #MyFile
ReDim abuffer(0 To nLen - 1) As Byte
For i = 1 To Len(Buffer)
abuffer(i - 1) = Asc(Mid(Buffer, i, 1))
Next
aVariant = abuffer
Call CamImage2.SetImage(aVariant, Len(Buffer))
Slider1.Value = acount
Me.Refresh
End Sub
[/code]
Can anyone see why its taking full priority??
[black] Regards [/black]
[Size=4][purple]GazzaLad[/size][/purple]
[Size=1] [Grey]"Just when you thought your software was idiot proof, along comes a better idiot" :-D[/grey] [/Size]
[hr]
Firstly thanks for taking the time out to read this and even more thanks if anyone manages to come up with a solution...
Problem..
I am writing a video camera surveillance system in VB which basically allows the user to switch camera's, record and playback footage, etc.
The problem exisits in the playback.. Basically the programme stores each frame of the 'video' as a jpg image and the player creates a buffer for each image in the video and plays them back, bit like an old fashioned flip book. This works a treat but the user can not do anything untill the full video has been played. The form will not respond to any toolbar mouse click (ie the pause button) or slider bar.
Here's the code I'm using to display each frame. Its called from another subroutine passing through the frame number for the next frame.
[code]
Private Sub ShowPic(acount As Long)
Dim MyFile As Long
Dim Buffer As String
Dim aVariant As Variant
Dim nLen As Long
Dim nPos As Long
Dim nGet As Long
Dim i As Long
strFile = "c: empyCam
ew" & acount & ".jpg"
MyFile = FreeFile
Open strFile For Binary Access Read As #MyFile
nLen = LOF(MyFile)
Buffer = Space(nLen)
Get #MyFile, , Buffer
Close #MyFile
ReDim abuffer(0 To nLen - 1) As Byte
For i = 1 To Len(Buffer)
abuffer(i - 1) = Asc(Mid(Buffer, i, 1))
Next
aVariant = abuffer
Call CamImage2.SetImage(aVariant, Len(Buffer))
Slider1.Value = acount
Me.Refresh
End Sub
[/code]
Can anyone see why its taking full priority??
[black] Regards [/black]
[Size=4][purple]GazzaLad[/size][/purple]
[Size=1] [Grey]"Just when you thought your software was idiot proof, along comes a better idiot" :-D[/grey] [/Size]
[hr]
Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Categories
- 140.8K All Categories
- 103.6K Programming Languages
- 6.4K Assembler Developer
- 401 Assembly Code Share
- 239 Getting started in assembly
- 4.6K x86 Assembly
- 1.9K Basic
- 97 Qbasic
- 39.9K C and C++
- 5.6K Beginner C/C++
- 330 C/C++ on Linux/Unix
- 450 C/C++ Windows API
- 522 C++ Builder
- 253 C++ Game Development
- 3.3K C++ MFC
- 103 C++.NET
- 404 Visual C++
- 2.9K C#
- 7.9K Delphi and Kylix
- 334 Advanced Delphi
- 360 Delphi beginners
- 4 Haskell
- 9.7K Java
- 56 Enterprise JavaBeans
- 1.3K Java Beginners
- 304 Java Server Pages
- 4.1K Pascal
- 1.3K Perl
- 11 Perl 6
- 2K PHP
- 546 Python
- 37 Ruby
- 4.4K VB.NET
- 258 Advanced VB.Net
- 1.6K VBA
- 20.9K Visual Basic
- 767 Access databases and VB
- 831 Advance Visual Basic
- 1.2K Beginner VB
- 2.6K Game programming
- 315 Console programming
- 90 DirectX Game dev
- 1 Minecraft
- 112 Newbie Game Programmers
- 2 Oculus Rift
- 9K Applications
- 1.8K Computer Graphics
- 279 3D Graphics
- 129 DirectX
- 125 OpenGL
- 740 Computer Hardware
- 9 Cooling & Overclocking
- 3.4K Database & SQL
- 1.1K Access
- 91 ADO Programming
- 288 MySQL
- 358 Oracle
- 440 SQL-Server
- 535 Electronics development
- 1.6K Matlab
- 628 Sound & Music
- 25 DirectSound
- 257 XML Development
- 3.3K Classifieds
- 200 Co-operative Projects
- 198 For sale
- 190 FreeLance Software City
- 1.9K Jobs Available
- 603 Jobs Wanted
- 209 Wanted
- 2.9K Microsoft .NET
- 1.8K ASP.NET
- 1.1K .NET General
- 22 .NET WEB-Services
- 129 .NET WinForms
- 14 .NET XML
- 50 ADO.NET
- 144 C# & VB.NET School Support
- 3.4K Miscellaneous
- 4 Join the Team
- 354 Comments on this site
- 69 Computer Emulators
- 2.1K General programming
- 187 New programming languages
- 621 Off topic board
- 200 Mobile & Wireless
- 72 Android
- 126 Palm Pilot
- 338 Multimedia
- 154 Demo programming
- 184 MP3 programming
- 0 Bash scripts
- 27 Cloud Computing
- 1 Witsbits Go Cloud
- 53 FreeBSD
- 1.7K LINUX programming
- 1 Awk scripting
- 332 Linux Support
- 0 Sed scripting
- 370 MS-DOS
- 0 Shell scripting
- 321 Windows CE & Pocket PC
- 4.1K Windows programming
- 177 COM/DCOM
- 61 Networking And Security
- 17 Windows 2003 Server
- 6 Windows Vista
- 176 Windows XP
- 941 Software Development
- 417 Algorithms
- 68 Object Orientation
- 24 RUP & UML
- 92 Project Management
- 95 Quality & Testing
- 268 Security
- 63 Evil Scripting
- 81 Hacking
- 7.7K WEB-Development
- 1.8K Active Server Pages
- 61 AJAX
- 4 Bootstrap Themes
- 55 CGI Development
- 28 ColdFusion
- 224 Flash development
- 1.4K HTML & WEB-Design
- 1.4K Internet Development
- 131 Mobile Internet & Messaging
- 211 Wireless development
- 2.2K JavaScript
- 37 JQuery
- 304 WEB Servers
- 153 Apache
- 79 IIS
- 150 WEB-Services / SOAP
Comments
:
: Firstly thanks for taking the time out to read this and even more thanks if anyone manages to come up with a solution...
:
: Problem..
:
: I am writing a video camera surveillance system in VB which basically allows the user to switch camera's, record and playback footage, etc.
:
: The problem exisits in the playback.. Basically the programme stores each frame of the 'video' as a jpg image and the player creates a buffer for each image in the video and plays them back, bit like an old fashioned flip book. This works a treat but the user can not do anything untill the full video has been played. The form will not respond to any toolbar mouse click (ie the pause button) or slider bar.
:
: Here's the code I'm using to display each frame. Its called from another subroutine passing through the frame number for the next frame.
:
: [code]
: Private Sub ShowPic(acount As Long)
: Dim MyFile As Long
: Dim Buffer As String
: Dim aVariant As Variant
: Dim nLen As Long
: Dim nPos As Long
: Dim nGet As Long
: Dim i As Long
:
: strFile = "c: empyCam
ew" & acount & ".jpg"
:
: MyFile = FreeFile
: Open strFile For Binary Access Read As #MyFile
: nLen = LOF(MyFile)
: Buffer = Space(nLen)
: Get #MyFile, , Buffer
: Close #MyFile
: ReDim abuffer(0 To nLen - 1) As Byte
: For i = 1 To Len(Buffer)
: abuffer(i - 1) = Asc(Mid(Buffer, i, 1))
: Next
: aVariant = abuffer
: Call CamImage2.SetImage(aVariant, Len(Buffer))
: Slider1.Value = acount
: Me.Refresh
: End Sub
: [/code]
:
: Can anyone see why its taking full priority??
VB is not multithreaded. Not easily, at least. When you call CamImage2.SetImage(), your code will block there until that call returns. If that procedure is doing a lot of stuff, then your code will block for a long time.
[size=5][italic][blue][RED]i[/RED]nfidel[/blue][/italic][/size]
: :
: : Firstly thanks for taking the time out to read this and even more thanks if anyone manages to come up with a solution...
: :
: : Problem..
: :
: : I am writing a video camera surveillance system in VB which basically allows the user to switch camera's, record and playback footage, etc.
: :
: : The problem exisits in the playback.. Basically the programme stores each frame of the 'video' as a jpg image and the player creates a buffer for each image in the video and plays them back, bit like an old fashioned flip book. This works a treat but the user can not do anything untill the full video has been played. The form will not respond to any toolbar mouse click (ie the pause button) or slider bar.
: :
: : Here's the code I'm using to display each frame. Its called from another subroutine passing through the frame number for the next frame.
: :
: : [code]
: : Private Sub ShowPic(acount As Long)
: : Dim MyFile As Long
: : Dim Buffer As String
: : Dim aVariant As Variant
: : Dim nLen As Long
: : Dim nPos As Long
: : Dim nGet As Long
: : Dim i As Long
: :
: : strFile = "c: empyCam
ew" & acount & ".jpg"
: :
: : MyFile = FreeFile
: : Open strFile For Binary Access Read As #MyFile
: : nLen = LOF(MyFile)
: : Buffer = Space(nLen)
: : Get #MyFile, , Buffer
: : Close #MyFile
: : ReDim abuffer(0 To nLen - 1) As Byte
: : For i = 1 To Len(Buffer)
: : abuffer(i - 1) = Asc(Mid(Buffer, i, 1))
: : Next
: : aVariant = abuffer
: : Call CamImage2.SetImage(aVariant, Len(Buffer))
: : Slider1.Value = acount
: : Me.Refresh
: : End Sub
: : [/code]
: :
: : Can anyone see why its taking full priority??
:
: VB is not multithreaded. Not easily, at least. When you call CamImage2.SetImage(), your code will block there until that call returns. If that procedure is doing a lot of stuff, then your code will block for a long time.
:
:
: [size=5][italic][blue][RED]i[/RED]nfidel[/blue][/italic][/size]
:
:
It could also be the number of sequential calls to the function. Try putting a DoEvents statement somewhere!
Greets...
Richard
:
: Firstly thanks for taking the time out to read this and even more thanks if anyone manages to come up with a solution...
:
: Problem..
:
: I am writing a video camera surveillance system in VB which basically allows the user to switch camera's, record and playback footage, etc.
:
: The problem exisits in the playback.. Basically the programme stores each frame of the 'video' as a jpg image and the player creates a buffer for each image in the video and plays them back, bit like an old fashioned flip book. This works a treat but the user can not do anything untill the full video has been played. The form will not respond to any toolbar mouse click (ie the pause button) or slider bar.
:
: Here's the code I'm using to display each frame. Its called from another subroutine passing through the frame number for the next frame.
:
: [code]
: Private Sub ShowPic(acount As Long)
: Dim MyFile As Long
: Dim Buffer As String
: Dim aVariant As Variant
: Dim nLen As Long
: Dim nPos As Long
: Dim nGet As Long
: Dim i As Long
:
: strFile = "c: empyCam
ew" & acount & ".jpg"
:
: MyFile = FreeFile
: Open strFile For Binary Access Read As #MyFile
: nLen = LOF(MyFile)
: Buffer = Space(nLen)
: Get #MyFile, , Buffer
: Close #MyFile
: ReDim abuffer(0 To nLen - 1) As Byte
: For i = 1 To Len(Buffer)
: abuffer(i - 1) = Asc(Mid(Buffer, i, 1))
: Next
: aVariant = abuffer
: Call CamImage2.SetImage(aVariant, Len(Buffer))
: Slider1.Value = acount
: Me.Refresh
: End Sub
: [/code]
:
: Can anyone see why its taking full priority??
:
:
:
:
: [black] Regards [/black]
:
: [Size=4][purple]GazzaLad[/size][/purple]
: [Size=1] [Grey]"Just when you thought your software was idiot proof, along comes a better idiot" :-D[/grey] [/Size]
: [hr]
:
I've never used but if you use AxisCamControl, there is On_Click event.
Take a look at followong link. May be that'll help
http://www.axis.com/techsup/cam_servers/dev/files/AxisCamControl.pdf
Thanks Richard!!
[black] Regards [/black]
[Size=4][purple]GazzaLad[/size][/purple]
[Size=1] [Grey]"Just when you thought your software was idiot proof, along comes a better idiot" :-D[/grey] [/Size]
[hr]