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)

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


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,718 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.