Visual Basic 6 - AcromaWebCam OCX

Forum - Visual Basic 6 - AcromaWebCam OCX

acromangelo (Ex-Member)
Rookie

Messaggi: 25
Iscritto: 19/06/2008

Postato alle 20:26
Venerdì, 22/05/2009

Per chi volesse avere l'immagine della webcam in modo molto semplice ho creato questo OCX proprio oggi. Le funzioni sono le seguenti:

Avvio dello streaming:

Codice sorgente - presumibilmente Plain Text

AcromaWebCam1.Inizializza          'Inizializza la webcam e crea il processo
AcromaWebCam1.Ridimensiona         'Ridimensiona il controllo a seconda della dimensione
                                    dell'immagine dalla webcam
AcromaWebCam1.Start 10             'Fa partire lo streming con un intervallo di 10ms

Fermare lo streaming:

Codice sorgente - presumibilmente Plain Text

AcromaWebCam1.Ferma                'Ferma lo streaming
AcromaWebCam1.Distruggi            'Libera la memoria dal processo creato

Modificare le impostazioni:

Codice sorgente - presumibilmente Visual Basic 6

AcromaWebCam1.MsgBoxFormato        'Visualizza la finestra della scelta del formato e
                                    della dimensione
AcromaWebCam1.MsgBoxSorgente       'Visualizza la finestra per la modifica dell'immagine
                                    sorgente
AcromaWebCam1.MsgBoxCompressione   'Visualizza la finestra per la scelta della
                                    compressione dell'immagine

Salvataggio di un'immagine istantanea:

Codice sorgente - presumibilmente Plain Text

AcromaWebCam1.SalvaFrame Percorso, Nome_Immagine, Qualità

Per la gestione degli errori c'è l'evento:

Codice sorgente - presumibilmente VB.NET

Private Sub AcromaWebCam1_Errore(ByVal Descrizione As String, ByVal Tipo As String, ByVal Titolo As String)
MsgBox Descrizione, Tipo, Titolo
End Sub

Spero sia utile per qualcuno!!!
E spero anche che serva 8-|

Così ora per tutti quelli che chiederanno come possono visualizzare l'immagine della webcam ditegli di vedere questo topic ^^

Ciaoooo

acromangelo ha allegato un file: Acroma_Web_Cam.zip (12875 bytes)
Clicca qui per scaricare il file

Ultima modifica effettuata da acromangelo il 22/05/2009 alle 20:27

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 20:37
Venerdì, 22/05/2009

io ti consiglierei di scrivere le funzioni in un txt e di compattare txt e prog in zip e pubblicarlo nella zona sorgenti grazie a questa pagina:
http://www.pierotofy.it/etc/member/programs/programs.php

così è molto più "rintracciabile"

TheLizard (Ex-Member)
Pro

Messaggi: 87
Iscritto: 12/09/2007

Postato alle 0:03
Giovedì, 28/05/2009

Domani ci do un'occhiata. Sembra interessante, e ,visto che spesso in miei programmi ho usato la webcam, potrebbe aprirmi un pò gli occhi a qualche metodo più facile o veloce :P
Comunque quoto GrG, sposta in programmi.

Dyango (Normal User)
Pro

Messaggi: 83
Iscritto: 02/01/2009

Postato alle 19:09
Giovedì, 28/05/2009

con questa ocx si possono creare videoconferenze tipo quella di msn?

acromangelo (Ex-Member)
Rookie

Messaggi: 25
Iscritto: 19/06/2008

Postato alle 20:56
Giovedì, 28/05/2009

Esattamente...con una funzione che non è dentro questa OCX si puo creare una videoconferenza anke alla velocità di quella di msn. Se farò un altra versione implementerò questa funzione.

Per ora te la devi fare tu la funzione, cioè, devi usare la sub .SalvaFrame e poi mandare quell'immagine.

Ultima modifica effettuata da acromangelo il 28/05/2009 alle 20:58

ddemarch (Normal User)
Rookie

Messaggi: 29
Iscritto: 17/08/2009

Postato alle 9:45
Martedì, 18/08/2009

Ciao,
sono molto interessato a utilizzare questa ocx, purtroppo con le mie scarse conoscenze del basic nn ci sono riuscito!! :rofl:

Qualcuno di voi saprebbe darmi qualche dritta?
Partendo proprio dall'inizio perchè oltre ad aggiungere il componente nn sono riuscito a fare altro, apparte far piantare tutto un paio di volte.. :rotfl:

Grazie in anticipo!

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 10:42
Martedì, 18/08/2009

Un dubbio:

Tutte le webcam ormai funzionano con connessione USB.
Come hai gestito la funzione di comunicazione con la porta USB?
Potresti farmi vedere il codice usato per connettersi alla USB?

E' un po che cerco una "COM" tramite porta USB in VB6.

In poche parole la CALL alla ocx per connettersi potrebbe essere usata da qualsiasi
interfaccia USB?...solo che poi gestisce altro,ecco perche' sarei interessato solo
alla parte della comunicazione(nonche' alla webcam molto utile ma mettici la videoconf.tipo msn...senno che ocx è :-))) ...)

Ciao grazie

Ultima modifica effettuata da fusebyte il 18/08/2009 alle 10:47