Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Tomar una foto con VB

Visual Basic - Tomar una foto con VB

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Tomar una foto con VB

Publicado por anonymous (171 intervenciones) el 15/09/2006 23:58:19
Hola amigos programadores.
Soy novato pero he conseguido crear un programa para mi escuela, (administración de alumnos y profesores), sin embargo, no tengo idea de cómo poder mediante ese mismo programa, capturar una foto con cámara web para tener completos todos los datos, he visto por ahi un código pero para capturar video y no puedo tomar una fotografía.
Alguien puede ayudarme o darme una referencia para resolver mi problema?
Gracias de antemano.
Paco
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tomar una foto con VB

Publicado por Jasall (60 intervenciones) el 16/09/2006 12:31:48
Buenas, te paso un codigo (modificado) que puso Leandro en la web www.canalvisualbasic.net.

pon en un formulario, 1 picture1, 2 botones y 1 timer1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
'En el formulario
 
Dim Imagen() As Byte
Private Sub Command1_Click()
Timer1.Enabled = True
If Command1.Caption = "Conectar" Then
 
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 0, 0, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
 
Command1.Caption = "Desconectar"
Else
Timer1.Enabled = False
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
 
End If
End Sub
 
Private Sub Command2_Click() ' captura imagen del Picture1
On Error Resume Next
 
SavePicture Clipboard.GetData, App.Path + "\temporal.bmp"
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub
 
Private Sub Timer1_Timer()
 SendMessage mCapHwnd, GET_FRAME, 0, 0
 SendMessage mCapHwnd, COPY, 0, 0
 Picture1.Picture = Clipboard.GetData
End Sub
 
' y en el Modulo1
 
Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
 
Public mCapHwnd As Long
 
Public Const CONNECT As Long = 1034
Public Const DISCONNECT As Long = 1035
Public Const GET_FRAME As Long = 1084
Public Const COPY As Long = 1054

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tomar una foto con VB

Publicado por jose (2 intervenciones) el 05/01/2013 15:35:59
no me funciono, me gustaria si es posible el codigo en vb6 para tomar una foto con una webcam integrada al pc.
gracias de antemano
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tomar una foto con VB

Publicado por Marcos (2 intervenciones) el 18/09/2020 18:43:37
Ante todo pido mil disculpas por el pedido que voy a hacer... pero si alguien me pudiera ayudar con el código en visual basic 6.0 de como activar mi cámara web desde un formulario y en el mismo formulario poder grabar un video con un botón y tomar fotos con otro botón agradecería un mundo.... y si ademas de esto me ayudan con el código en visual basic 6.0 de como enviar un Email desde un formulario capturando alguna imagen o algún archivo en word y enviarlo a una dirección de correo sea esta en Hotmail o Gmail o cualquier correo que sea. Por favor... agradecería muchísimo ... muchas gracias

Att.

Nota : Dejo mi correo electrónico para su respuesta... de antemano muchas gracias... [email protected]

Marcos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JOSE
Val: 58
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Tomar una foto con VB

Publicado por JOSE (36 intervenciones) el 08/11/2020 01:15:42
mira veras el codigo en cierta forma esta bien de echo esta funcionando yo hice so siguiente en el load ya arranca funcionando pero lo puedes quitar y ponerlo en un boton atento al timer hay que ponerle 1 en interval si no no arranca y no funciona y el modulo tal cual como esta el command 2 es para guardar la captura y el tres es para salir si no te funciona me lo dices pero si te funciona lo puedes acomodar a tu gusto un saludo..




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Imagen() As Byte
Private Sub Command2_Click() ' captura imagen del Picture1
On Error Resume Next
SavePicture Clipboard.GetData, App.Path + "\temporal.bmp"
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 0, 0, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub

Private Sub Timer1_Timer()
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
Picture1.Picture = Clipboard.GetData
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar