Ik heb een programma geschreven om een webcam te bekijken, het starten en stop lukt perfect, het opslaan van een bmp file lukt ook. Het bmp dan direct omlaten zetten gaat ook nog goed. Maar alleen als ik die camera laat opnemen naar die jpg, dan zegt hij opdenduur dat het geheugen vol is, je ziet het ook ook meer worden in de taskmanager, als ik er zo'n 1000 (=1000 sec opname) heb gehad is het geheugen al 223.900 KB en dit neemt met ongeveer 300 kb per seconde toe.
Het opslaan gebeurt in een do while loop die pas stop als ik op de knop stop druk.
Nou is de vraag kan ik het geheugen leeg gooien.
"Het loopje"
Do While Not strRecord = "uit"
PauseTime = 1 'Pauze lengte
Start = Timer 'Start time.
Do While Timer < Start + PauseTime
DoEvents
Loop
'Bestandsnaam JPG file
Tijd = Date & "-" & Format(Time, "hh-mm-ss")
Filesave = "\Archief\" & Tijd & ".jpg"
If lnghWnd <> 0 Then
'Het opslaan van een BMP file
lngRet = capFileSaveDIB(lnghWnd, Filename)
'Het omzetten naar een JPG file
PicFormat321.SaveBmpToJpeg App.Path & "\capture.bmp", App.Path & Filesave, "65"
Else
MsgBox "Problem saving frame", vbInformation, App.Title
End If
Loop
"Einde loop"
Het opslaan gebeurt in een do while loop die pas stop als ik op de knop stop druk.
Nou is de vraag kan ik het geheugen leeg gooien.
"Het loopje"
Do While Not strRecord = "uit"
PauseTime = 1 'Pauze lengte
Start = Timer 'Start time.
Do While Timer < Start + PauseTime
DoEvents
Loop
'Bestandsnaam JPG file
Tijd = Date & "-" & Format(Time, "hh-mm-ss")
Filesave = "\Archief\" & Tijd & ".jpg"
If lnghWnd <> 0 Then
'Het opslaan van een BMP file
lngRet = capFileSaveDIB(lnghWnd, Filename)
'Het omzetten naar een JPG file
PicFormat321.SaveBmpToJpeg App.Path & "\capture.bmp", App.Path & Filesave, "65"
Else
MsgBox "Problem saving frame", vbInformation, App.Title
End If
Loop
"Einde loop"