Konu: Web Cam Kullanımı
merhba burda örneklerde buldum fakat bir türlü web camdan resim çekmeyi başaramadım bana yardımcı olabilir misini? çalışan bir kod olsa sorunu çözeceğim şimdiden çok teşekkürler
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
merhba burda örneklerde buldum fakat bir türlü web camdan resim çekmeyi başaramadım bana yardımcı olabilir misini? çalışan bir kod olsa sorunu çözeceğim şimdiden çok teşekkürler
Ben vbasic ile yazılmış bir exe yi program içinden çalıştırarak kullanıyorum. Kodları da var ama şu an yanımda değil. Exe yi aşağıdaki linkten alabilirsiniz.
www.denbil.com/webcam.exe
web cam ler genelde wdm veya twain driverı vasıtası ile kontrol edebilirsiniz.
leadtools diye bir tool var. bununla yıllar önce yapmıştım. herhangi bir tool kullanmadan yapılır mı? Bilmiyorum.
kolay gelsin
herşey için teşekkürler biraz daha araştırmam gerekecek galiba
bir türlü yolunu bulamadım web cama bağlantı kurup aktif lambası yansa bile görüntüyü yakalayamıuyorum
hocam sizin verdiğiniz exe çok güzel ve kullanışlı çek dedinmi çekiyor aygıtlarda listelendiyor kodlarını verebilseniz çok sevinirdim
Vbasic kodları:
www.denbil.com/WebCamKodlar.rar
sasmazali;
sana benim programımda kullandıgım vfp kodlarını veriyorum
detaylı açıklamalarını her satıra yazdım.
aşagıda Thisform.text1.Value öğrencinin numarası ile
bmp dosyasını oluşturur bu dosya "C:\OGRRES\" dizini içerisine ekleni
sonra ne yapmak istiyorsan altına kodlarını yazarsın
bir butona da bu kodları eklersin "resim çek butonu" gibi
işlem tamam .
m.gcFotoDir="C:\OGRRES\"
LcOldPhoto=""
Declare Integer TWAIN_SelectImageSource In Eztw32.Dll Integer HWnd
Declare Integer TWAIN_AcquireNative In Eztw32.Dll Integer nAppWind, Integer nPixelTypes
Declare Integer TWAIN_WriteNativeToFilename In Eztw32.Dll Integer nDIB, String cFilename
Declare Integer TWAIN_FreeNative In Eztw32.Dll Integer nDIB
Local cFilename, lnImageHandle, lnReply,lcSource,LcPath,LcFile
m.LcPath = Addbs(m.gcFotoDir)
m.LcFile = Alltrim(STR(Thisform.text1.Value)) + ".BMP"
m.cFilename = m.LcPath+m.LcFile
* Kamera Veya Tarayıcıyı Seçmek
Surucu=TWAIN_SelectImageSource (Thisform.HWnd)
* resimi çağırıyor
lnImageHandle = TWAIN_AcquireNative(0,0)
* dosya olarak diske yazıyor
lnReply = TWAIN_WriteNativeToFilename(lnImageHandle,m.cFilename)
* alnını bosaltıyor
TWAIN_FreeNative(lnImageHandle)
* hata kotrolü yapılıyor
If lnReply = 0
* Messagebox("Foto Çekilemedi Bir hata Oluştu ..." + cFilename,64,'Fotoğraf Çekimi')
Else
* Messagebox("Foto Başarı İle Çekildi..." + cFilename,64,'Fotoğraf Çekimi')
Endif
çok teşekkür ederim inan fox'da hiç kitap bakmadan visual basik akınlığı ve bilgisini gizlemeen sizlerden öğrendim tekrar çok teşekkürler
eztw32.dll bilgisayarımda yoktu, manual ekledim.
Select source menüsü geliyor ama notebooka ait kamera listede gözükmüyor. Ne yaparak notebook kamerasının source listesinde gözükmesini sağlayabilirim. (Aslında listede hiç bir şey gözükmüyor.)
aşağıdaki kodlar ile bilgisayara takılı olan görüntü aygıtları listeye geliyor seçim yapılabiliyor.
Sıkıntım şu. Windows XP de web camda sorun yaşamıyorum ancak Windows 7'de web camın aktif ışığı yandığı halde görüntüyü alamıyorum siyah bir ekran geliyor. Sebebi ne olabilir?
Local oForm
oForm = Createobject("Tform")
oForm.Show(1)
Define Class Tform As Form
#Define WS_CHILD 0x40000000
#Define WS_VISIBLE 0x10000000
#Define WM_USER 0x0400
#Define WM_CAP_START 0x0400
#Define WM_CAP_UNICODE_START WM_USER + 100
#Define WM_CAP_SET_CALLBACK_ERRORW (WM_CAP_UNICODE_START + 2)
#Define WM_CAP_SET_CALLBACK_ERRORA (WM_CAP_START + 2)
#Define WM_CAP_SET_CALLBACK_FRAME (WM_CAP_START + 5)
#Define WM_CAP_SET_CALLBACK_VIDEOSTREAM (WM_CAP_START + 6)
#Define WM_CAP_DRIVER_CONNECT (WM_CAP_START + 10)
#Define WM_CAP_DRIVER_DISCONNECT (WM_CAP_START + 11)
#Define WM_CAP_DRIVER_GET_NAMEA (WM_CAP_START + 12)
#Define WM_CAP_DRIVER_GET_VERSIONA (WM_CAP_START + 13)
#Define WM_CAP_DRIVER_GET_NAMEW (WM_CAP_UNICODE_START + 12)
#Define WM_CAP_DRIVER_GET_VERSIONW (WM_CAP_UNICODE_START + 13)
#Define WM_CAP_DRIVER_GET_NAME WM_CAP_DRIVER_GET_NAMEW
#Define WM_CAP_DRIVER_GET_VERSION WM_CAP_DRIVER_GET_VERSIONW
#Define WM_CAP_DRIVER_GET_CAPS (WM_CAP_START + 14)
#Define WM_CAP_FILE_SET_CAPTURE_FILEA (WM_CAP_START + 20)
#Define WM_CAP_FILE_GET_CAPTURE_FILEA (WM_CAP_START + 21)
#Define WM_CAP_FILE_SAVEASA (WM_CAP_START + 23)
#Define WM_CAP_FILE_SAVEDIBA (WM_CAP_START + 25)
#Define WM_CAP_FILE_SET_CAPTURE_FILEW (WM_CAP_UNICODE_START + 20)
#Define WM_CAP_FILE_GET_CAPTURE_FILEW (WM_CAP_UNICODE_START + 21)
#Define WM_CAP_FILE_SAVEASW (WM_CAP_UNICODE_START + 23)
#Define WM_CAP_FILE_SAVEDIBW (WM_CAP_UNICODE_START + 25)
#Define WM_CAP_FILE_SET_CAPTURE_FILE WM_CAP_FILE_SET_CAPTURE_FILEW
#Define WM_CAP_FILE_GET_CAPTURE_FILE WM_CAP_FILE_GET_CAPTURE_FILEW
#Define WM_CAP_FILE_SAVEAS WM_CAP_FILE_SAVEASW
#Define WM_CAP_FILE_SAVEDIB WM_CAP_FILE_SAVEDIBW
#Define WM_CAP_FILE_ALLOCATE (WM_CAP_START + 22)
#Define WM_CAP_FILE_SET_INFOCHUNK (WM_CAP_START + 24)
#Define WM_CAP_EDIT_COPY (WM_CAP_START + 30)
#Define WM_CAP_SET_AUDIOFORMAT (WM_CAP_START + 35)
#Define WM_CAP_GET_AUDIOFORMAT (WM_CAP_START + 36)
#Define WM_CAP_DLG_VIDEOFORMAT (WM_CAP_START + 41)
#Define WM_CAP_DLG_VIDEOSOURCE (WM_CAP_START + 42)
#Define WM_CAP_DLG_VIDEODISPLAY (WM_CAP_START + 43)
#Define WM_CAP_GET_VIDEOFORMAT (WM_CAP_START + 44)
#Define WM_CAP_SET_VIDEOFORMAT (WM_CAP_START + 45)
#Define WM_CAP_DLG_VIDEOCOMPRESSION (WM_CAP_START + 46)
#Define WM_CAP_SET_PREVIEW (WM_CAP_START + 50)
#Define WM_CAP_SET_OVERLAY (WM_CAP_START + 51)
#Define WM_CAP_SET_PREVIEWRATE (WM_CAP_START + 52)
#Define WM_CAP_SET_SCALE (WM_CAP_START + 53)
#Define WM_CAP_GET_STATUS (WM_CAP_START + 54)
#Define WM_CAP_SET_SCROLL (WM_CAP_START + 55)
#Define WM_CAP_GRAB_FRAME (WM_CAP_START + 60)
#Define WM_CAP_GRAB_FRAME_NOSTOP (WM_CAP_START + 61)
#Define WM_CAP_SEQUENCE (WM_CAP_START + 62)
#Define WM_CAP_SEQUENCE_NOFILE (WM_CAP_START + 63)
#Define WM_CAP_SET_SEQUENCE_SETUP (WM_CAP_START + 64)
#Define WM_CAP_GET_SEQUENCE_SETUP (WM_CAP_START + 65)
#Define WM_CAP_SET_MCI_DEVICEA (WM_CAP_START + 66)
#Define WM_CAP_GET_MCI_DEVICEA (WM_CAP_START + 67)
#Define WM_CAP_SET_MCI_DEVICEW (WM_CAP_UNICODE_START + 66)
#Define WM_CAP_GET_MCI_DEVICEW (WM_CAP_UNICODE_START + 67)
#Define WM_CAP_SET_MCI_DEVICE WM_CAP_SET_MCI_DEVICEW
#Define WM_CAP_GET_MCI_DEVICE WM_CAP_GET_MCI_DEVICEW
#Define WM_CAP_STOP (WM_CAP_START + 68)
#Define WM_CAP_ABORT (WM_CAP_START + 69)
#Define WM_CAP_SINGLE_FRAME_OPEN (WM_CAP_START + 70)
#Define WM_CAP_SINGLE_FRAME_CLOSE (WM_CAP_START + 71)
#Define WM_CAP_SINGLE_FRAME (WM_CAP_START + 72)
#Define WM_CAP_PAL_OPENA (WM_CAP_START + 80)
#Define WM_CAP_PAL_SAVEA (WM_CAP_START + 81)
#Define WM_CAP_PAL_OPENW (WM_CAP_UNICODE_START + 80)
#Define WM_CAP_PAL_SAVEW (WM_CAP_UNICODE_START + 81)
#Define WM_CAP_PAL_OPEN WM_CAP_PAL_OPENW
#Define WM_CAP_PAL_SAVE WM_CAP_PAL_SAVEW
#Define WM_CAP_PAL_PASTE (WM_CAP_START + 82)
#Define WM_CAP_PAL_AUTOCREATE (WM_CAP_START + 83)
#Define WM_CAP_PAL_MANUALCREATE (WM_CAP_START + 84)
#Define WM_CAP_SET_CALLBACK_CAPCONTROL (WM_CAP_START + 85)
Width = 800
Height = 300
AutoCenter = .T.
Caption = "Usando Captura de Video"
MinButton = .F.
MaxButton = .F.
hWindow = 0
hCapture = 0
hCapture1 = 0
capWidth = 0
capHeight = 0
capOverlay = 0
Procedure Activate
LOCAL La_Array
DIMENSION La_Array[1]
If This.hWindow = 0
Declare Integer GetFocus In user32
This.hWindow = GetFocus()
Declare Integer capCreateCaptureWindow In avicap32;
STRING lpszWindowName, Long dwStyle,;
INTEGER x, Integer Y,;
INTEGER nWidth, Integer nHeight,;
INTEGER hParent, Integer nID
This.hCapture = capCreateCaptureWindow("Cap",WS_CHILD+WS_VISIBLE, 10,10,320,240, This.hWindow, 1)
This.hCapture1 = capCreateCaptureWindow("Cap2",WS_CHILD+WS_VISIBLE, 400,10,320,240, This.hWindow, 1)
Declare Integer SendMessage In user32 INTEGER HWnd, Integer Msg, INTEGER wParam, Integer Lparam
SendMessage(This.hCapture,WM_CAP_DRIVER_CONNECT,0,0)
SendMessage(This.hCapture,WM_CAP_SET_SCALE,.F.,0)
SendMessage(This.hCapture,WM_CAP_SET_PREVIEW,.T.,0)
SendMessage(This.hCapture,WM_CAP_SET_PREVIEWRATE,30,0)
SendMessage(This.hCapture,WM_CAP_DLG_VIDEOFORMAT,0,0)
SendMessage(This.hCapture,WM_CAP_DLG_VIDEOSOURCE,1,0)
ENDIF
ENDPROC
ENDDEFINE
avicap32 uygulamasının Windows 7 için daha güncel DLL leri gerekiyor olabilir.
Web camın sürücüsünü güncelledim birde avicap32 yi güncelleyim bakalım sorun çözülecek mi?
DEĞİŞEN BİR ŞEY OLMADI XP DE ÇALIŞIP WİN-7 DE ÇALIŞMAMASI CAN SIKICI
Belki kameranın twain driver ı win7 ye yuklenememiştir.
windows dizinininin altnda twain_32 diye dizin olması lazım
onun altında *.ds isimli bir dosya olmalı bu dosya yoksa twain driver doğru yuklenmemiştir.
Tamamen windows 7 ile alakalı tv kartında sorun çıkarmıyor ama web camda nakavt