Redimentionner une vidéo

Version imprimable

05/01/2013, 21h53
programmes

Redimentionner une vidéo

Bonsoir à tous,

Je cherche à redimmentionner une vidéo à la taille de la form sous visual studio 2010. Es-ce possible et comment? Sur mes recherches avec google il y a VISCOM Video Edit ActiveX Control. Quelqu'un en sait-il plus à ce sujet ou il y a t'il une autre possibilité?

Pour infos j'utilise Windows Média Player. Dois-je utiliser une autre fonction?
Merci à vous tous...
06/01/2013, 17h45
programmes

Y-a personne pour m'aider à résoudre mon problème?

bonjour programmes.....

Pas tres clair vu qu'il n'y a aucun code pour comprendre le besoin.
Mais tu as aussi DirectX 9.0 for Managed Code(august 2006) que tu peux utiliser(sdk dispo en telechargement free sur site MSDN)....
Il suffit de designer le control(form ou panel) qui sera le "video.owner" de ta video.....elle se resize à sa taille automatiquement.....

exemple code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
'apres installation de la sdk(voir dans dossier C:\WINDOWS\Microsoft.NET\DirectX for Managed Code\1.0.2902.0\)
'ajouter ue reference aux assemblies:
'-Microsoft.DirectX.dll
'-Microsoft.DirectX.AudioVideoPlayback.dll
 
'pour executer cet  exemple:
'dropper sur le form dans l'ordre
'- panel1(contiendra nos 2 buttons)
'
'- panel2 (adffichera la video)
' 
Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
 
Public Class frmVideo
 
    Private vid As Video
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.ResizeRedraw = True
        Me.Panel1.Dock = DockStyle.Top
        Me.Panel2.Dock = DockStyle.Fill
    End Sub
    Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click
        Dim strFileVid As String = String.Empty
 
        Dim dlg As OpenFileDialog = New OpenFileDialog
        dlg.FilterIndex = 0
        dlg.Filter = "Fichiers Video(*.*)|*.*"
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            strFileVid = dlg.FileName
            If Len(strFileVid) = 0 Then
                Return
            Else
                vid = New Video(strFileVid, True)
                vid.Caption = "bear"
                Me.Text = vid.Caption
                vid.Size = New Size(Me.Panel2.Width, Me.Panel2.Height)
                vid.Owner = Me.Panel2
                vid.ShowCursor()
                vid.Play()
 
 
            End If
        End If
    End Sub
 
 End Class

lien de telechargement:
http://www.google.fr/url?sa=t&rct=j&..._s_nx3w7tcmLRQ

bon code..................

08/01/2013, 01h51
programmes

Merci pour ta réponse c'est exactement ce qu'il me fallait
Sympa! A+

J'ai une erreur avec directX. Le programme m'affiche la fenêtre "Delay Notification" avec les boutons "Swicth to..." et 'Contiinue Waiting". Je n'ai même pas la possibilité d'annuler.

J'ai du importer manuellement les dll car directx ne figurait nulle part dans les références
J'ai donc importé:
Directx3D.dll (j'ai un écran 3D)
audiovideoplayback.dll
Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Imports Microsoft.DirectX Imports Microsoft.DirectX.AudioVideoPlayback Public Class Form1 Private Vid As Video Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Vid = New Video("C:\Décompression\Intro.avi", True) Vid.Caption = "bear" Me.Text = Vid.Caption Vid.Size = New Size(Me.Panel1.Width, Me.Panel1.Height) Vid.Owner = Me.Panel1 Vid.ShowCursor() Vid.Play() End Sub End Class
Merci à vous tous pour votre aide!

09/01/2013, 19h59
programmes

Personne ne peut m'aider à résoudre mon problème?
Ce serait sympa...