cam tipo streaming con visual basic 6

[shinji83]

ciao a tutti sto creando una piccola chat con tutti gli optional essenziali e tra questi anche la cam.
So già trasmettere delle immagini aquisiti dalla cam trasferendoli tipo file ma quello che vorrei fare e visualizzarli tipo streaming cioè in modo molto veloce, il massimo che riesco a fare con un loop è visualizzare ogni immagine ogni secondo o 2. C'è la possibilità di visualizzarli molto più velocemente o in tempo reale? E' se è possibile mi dite dove posso leggere una guida?

Ps: Se c'è anche per l'audio ancora meglio

[otti]

Dovresti postare un pò di codice di come hai fatto fin'ora.
Ci sono diversi modi di visualizzare un'immagine. Forse quello che hai utilizzato tu è troppo lento.
Hai usato le api?

[shinji83]

ho usato la lib avicap32.dll

esempio con un modulo strutturato così

Global Const WM_CAP As Integer = &H400

Global Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP + 10
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP + 11
Global Const WM_CAP_EDIT_COPY As Long = WM_CAP + 30

Global Const WM_CAP_SET_PREVIEW As Long = WM_CAP + 50
Global Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP + 52
Global Const WM_CAP_SET_SCALE As Long = WM_CAP + 53
Global Const WS_CHILD As Long = &H40000000
Global Const WS_VISIBLE As Long = &H10000000
Global Const SWP_NOMOVE As Long = &H2
Global Const SWP_NOSIZE As Integer = 1
Global Const SWP_NOZORDER As Integer = &H4
Global Const HWND_BOTTOM As Integer = 1

Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
(ByVal lpszWindowName As String, ByVal dwStyle As Long, _
ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Integer, ByVal hWndParent As Long, _
ByVal nID As Long) As Long


Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long


Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Declare Function DestroyWindow Lib "user32" (ByVal hndw As Long) As Boolean

ecc..