|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
Sujet : pivoter acquisition image [ Archives Visual Basic / Divers ] (joe321)
Informations & options pour cette discussion
vendredi 15 avril 2005 à 17:03:31 |
pivoter acquisition image

joe321
|
Salut,
J'utilise la procedure suivante pour recuper le signal video de ma carte TV
| Code: | Private Const WM_CAP_DRIVER_CONNECT As Long = 1034
Private Const WM_CAP_GRAB_FRAME As Long = 1084
Private Const WM_CAP_EDIT_COPY As Long = 1054
Private Const WM_CAP_DRIVER_DISCONNECT = 1035
Private Const WM_CAP_SEQUENCE = 1086
Private Const WM_CAP_GET_SEQUENCE_SETUP = 1089
Private Const WM_CAP_SET_SEQUENCE_SETUP = 1088
Dim mCapHwnd As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long
Private 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
Private Declare Function SendMessage Lib "user32" Alias
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As
Long, lParam As Any) As Long
Private Sub Form_Load()
picOUT.ScaleMode = vbPixels
mCapHwnd = capCreateCaptureWindow("My Own Capture Window", 0, 0, 0, 320, 240, Me.hWnd, 0)
SendMessage mCapHwnd, WM_CAP_DRIVER_CONNECT, 0, 0
SendMessage mCapHwnd, WM_CAP_SEQUENCE, 0, 0
End Sub
Private Sub Timer1_Timer()
SendMessage mCapHwnd, WM_CAP_GRAB_FRAME, 0, 0
SendMessage mCapHwnd, WM_CAP_EDIT_COPY, 0, 0
picOUT.Picture = Clipboard.GetData(vbCFBitmap)
End Sub
|
La video est donc affiché dans un picturebox et je voudrais faire pivoter l'image de 90° dans le sens anti-horaire.
Merci d'avance pour votre aide
|
|
|
mercredi 20 avril 2005 à 10:16:12 |
Re : pivoter acquisition image
|
lundi 26 septembre 2005 à 21:47:00 |
Re : pivoter acquisition image

WariorProg
|
Utilise la fonction GetPisel pour stocker les points de ton picturebox dans un tableau et utilise setPixel sur un autre picturebox avec les points du tableau mais dans un sens different cette fois ci. tu enregistre tes points comme ca:  et tu les retrace comme ca:  et le tour est joué. WariorProg
|
|
|
Cette discussion est classé dans : long, private, const, wm, cap
Répondre à ce message
Sujets en rapport avec ce message
utiliser la swebcam [ par EhJoe ]
Bonjour,J'ai trouvé un exemple concernant la lecture d'une webcam, par contre je me demande, dans la mesure où la webcam est évidemment sensée tourner
Problèmes avec systray en vb2005 [ par Julien237 ]
Bonjour, je viens de passer à VB2005 (à mon avis ceux qui utilisent .NET peuvent très bien me répondre, vb6 pas vu la nature de mon problème...) Je vo
[VB6]Ajouter icone dans systray [ par aurelien2723 ]
Bonjour, je voudrais ajouter une icone dans la barre des taches lors de l'execution de mon application en VB6. Je n'ai aucune form, mon programme n'u
Modifier la résolution de plusieurs écrans [ par Daghis ]
Bonjour,J'ai récupérer le code suivant sur le site pour modifier la résolution d'un écran, mais comment l'adapter pour modifier l'affichage de 4 écran
envoi un code touche a une apli par son hwnd [ par breton51 ]
bonjour je voudrai envoyer CtrL+O au bloc notemais voila rien ne se passevoici mon code ci quelqu'un a une idée <span lang="EN-GB" st
Prblème avec l'API Shell_NotifyIconA en VBA [ par slyman00 ]
Bonjour à tous!Je tente d'ajouter un icone dans le "system tray" en VBA sous msaccess 2007 et j'y arrive pas... <img src="http://www.vbfrance.com/imgs
!! Avis aux boss des Api !!!!!!! [ par schouly ]
Comment capter le click de la souris sur un bouton dans un popupmenu créé par : CreatePopupMenu, TrackPopupMenu, AppendMenuMerci Schoulyex : (allapi.n
Service NT [ par ricopetitdejeuner ]
Bonjour a tous!J'ai une pitite question sur les service NT. J'arrive bien a creer mon service, mais lorsque je veux le lancer, il n'y arrive pas (aucu
api pour showintaskbar [ par Stephane ]
salut a tousj'ai un probleme, il me faudrai savoir comment enlever un rectangle(dont je connai le hwnd) dans la barre des taches a partir d'un hwnd, e
ScrollBar [ par MickeyCohen ]
J'ai ce bout de code :Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As LongPrivate
Livres en rapport
|
Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|