vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
AVI's per API abspielen! 
Autor: ModeratorDieter (Moderator)
Datum: 12.10.02 21:22

Hi Ulli,

alles was Du hierzu brauchst ist eine Form mit einer PictureBox, in der das AVI-File abgespielt werden soll.
Und natürlich ein bisschen API-Wissen. Und das habe ich Dir mal zusammengefasst.

Auf die Form mit der PictureBox platzierst Du zusätzlich noch zwei CommandButtons mit den Namen cmdPlay und cmdClose.

Und hier der Code:
Option Explicit
 
' benötigte API-Deklarationen
Private Declare Function mciSendString Lib "winmm.dll" _
  Alias "mciSendStringA" ( _
  ByVal lpstrCommand As String, _
  ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Long, _
  ByVal hwndCallback As Long) As Long
 
Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" ( _
  ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long
 
' AVI-File öffnen
Private Sub AVI_Open(ByVal sFile As String)
  Dim sBuffer As String * 256
  Dim nResult As Long
 
  ' DOS-Namen ermitteln (8.3-Format)
  nResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))
  sFile = Left$(sBuffer, nResult)
 
  ' AVI öffnen
  ' öffnet ein Gerät und eine Multimedia-Datei
  mciSendString "open " & sFile & " type avivideo" & _
    " alias myAVI", 0, 0, 0
 
  ' Anzeige in der PictureBox
  mciSendString "window myAVI handle " & _
    CStr(Picture1.hWnd), 0, 0, 0
 
  ' Zeitformat festlegen
  mciSendString "set myAVI Time Format Milliseconds", _
    0, 0, 0
End Sub
 
' AVI in PictureBox abspielen
Private Sub AVI_Play()
  mciSendString "play myAVI from 0", 0, 0, 0
End Sub
 
' Abspielvorgang stoppen
Private Sub AVI_Stop()
  mciSendString "close myAVI", 0, 0, 0
End Sub
 
' MCI Schließen
Private Function AVI_Close()
  mciSendString "close myAVI", 0, 0, 0
End Function
 
' Abspielvorgang beenden und MCI schließen
Private Sub cmdClose_Click()
  AVI_Stop
  AVI_Close
End Sub
 
' AVI öffnen und abspielen
Private Sub cmdPlay_Click()
  Dim sFile As String
 
  ' Dateiname
  sFile = "c:\winnt\clock.avi"
 
  ' MCI öffnen
  AVI_Open sFile
 
  ' Abspielvorgang starten
  AVI_Play
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem!102Ulli12.10.02 14:31
schau mal in der FAQ unter CommonDialog225Elwood12.10.02 14:35
2. Frage57Ulli12.10.02 19:30
Re: 2. Frage248unbekannt12.10.02 19:38
Re: 2. Frage45Ulli12.10.02 21:03
AVI's per API abspielen!239ModeratorDieter12.10.02 21:22
Keine Lösung!57Ulli12.10.02 15:36
Re: Keine Lösung!338unbekannt12.10.02 15:48

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel