AVI FİLMLERİ OYNATMAK
DERGİYE gelen Visual Basic mektuplarından birçoğunda WAV ve MIDI dosyalarını
çalabildiğinizi belirtiyor, AVI ve FLI görüntü dosyalarını çalıştırmayı
soruyorsunuz. FLI dosyaları Autodesk'in hareketli görüntü formatı olup
Internet üzerinde bulunabilecek bazı VBX ve OCX dosyaları sayesinde görüntülenebilirler.
AVI dosyalarını görüntülemek için ise Windows'un bir parçası olan medya
aygıtını kullanabilirsiniz.
Declare Function mciSendString Lib ' mmsystem' (ByVal strCommand
As String, ByVal strReturn As String, ByVal iReturnLength As Integer, ByVal
hCallback As Integer)
Yukarıdaki satırı General - Declarations bölümüne yazdıktan sonra
satırı herhangi bir altyordamdan aşağıdaki gibi çağırabilir, nReturn değişkenini
okuyarak AVI dosyasının oynatılıp oynatılmadığını anlayabilirsiniz.
Dim nReturn as Long
nReturn = mciSendString(' Open deneme.avi type AVIVideo Alias Video'
, ' ' ,0,0)
nReturn = mciSendString(' Play Video FullScreen' ,' ' ,0,0)
nReturn = mciSendString(' Close Video' ,' ' ,0,0)