no c si habra algun surce q me puedan dar .
mi codigo
Citar
Option Explicit
Dim flag As Boolean
Dim lBytes As Long
Dim lFileSize As Long
Dim Foto As New Class1
Dim file As String, FileTotal As Long
Dim Resolucion As Byte
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim Size As Long
Dim arrData() As Byte
Text3.Text = App.Path & "\capture.jpg"
Resolucion = "19"
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion
Foto.SampleScreen
Foto.SaveFile App.Path & ("\capture.jpg")
Open Text3 For Binary Access Read As #1
Size = LOF(1)
ReDim arrData(Size - 1)
'Leemos y almacenamos todo el fichero en el array
Get #1, , arrData
'Cerramos
Close
Open App.Path & "\capture.avi" For Binary As #1
Put #1, , arrData
Close #1
End Sub
Dim flag As Boolean
Dim lBytes As Long
Dim lFileSize As Long
Dim Foto As New Class1
Dim file As String, FileTotal As Long
Dim Resolucion As Byte
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim Size As Long
Dim arrData() As Byte
Text3.Text = App.Path & "\capture.jpg"
Resolucion = "19"
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion
Foto.SampleScreen
Foto.SaveFile App.Path & ("\capture.jpg")
Open Text3 For Binary Access Read As #1
Size = LOF(1)
ReDim arrData(Size - 1)
'Leemos y almacenamos todo el fichero en el array
Get #1, , arrData
'Cerramos
Close
Open App.Path & "\capture.avi" For Binary As #1
Put #1, , arrData
Close #1
End Sub
EL CLASS1 ES UN CLAS JPG YA LO DEBEN CONOCER ME IMAGINO