Firstly thanks for taking the time out to read this and even more thanks if anyone manages to come up with a solution...
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.
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)
, , Buffer
ReDim abuffer(0 To nLen - 1) As Byte
For i = 1 To Len(Buffer)
abuffer(i - 1) = Asc(Mid(Buffer, i, 1))
aVariant = abuffer
Call CamImage2.SetImage(aVariant, Len(Buffer))
Slider1.Value = acount
Can anyone see why its taking full priority??
[black] Regards [/black]
[Size=1] [Grey]"Just when you thought your software was idiot proof, along comes a better idiot" :-D[/grey] [/Size]