Çözüldü Ts dosyası süresi

[k0081]

Aşağıdaki linkten, kullandığım TS dosyasını indirip kodu deneyin bence...

https://www.w6rz.net/bbb24p_00.zip

.

hocam bbb24p_00.zip şimdi indirememde.,, Büyük ihtimalle gönderdiğiniz dosyada kod düzgün çalışacaktır. %95... lakin benim dosyalarda neden sonuç alamıyorum. dosyalar bozuk da değil. TV den kayıt edilmiş TS biçimleri...

 

[k0081]

Arkadaşlar, sorunun nereden kaynaklandığını buldum.

Haluk hocam , göndermiş olduğunuz kodlar çalışıyor. SÜRE yi veriyor. Sorun Benim Eski işletim sistemimden kaynaklanıyormuş.( Win XP x32 )

Laptop da denedim. Tüm dosyaların Sürelerini aldım.

Çok Teşekkür ediyorum, Tamamdır... Hakkınızı helal edin , Biraz uğraştırdım.

 

[k0081]

Buyurun bakalım kod

Dosya_adi = ThisWorkbook.Path & "\Kralın Kızı.TS"


Hocam buradaki kodun içinde bulunan type: kısmı, ts için ne yazılabilir ?

#If Win64 Then
Private Declare PtrSafe 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 PtrSafe Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
#Else
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
#End If


Sub zamanbul()
Dim yer As String
Dim lRet As Long
Dim sReturn As String
Dim Dosya_adi As String
Dim iMin As Integer
Dim iSec As Integer
Dim iSat As Integer
Dim i As Integer
'On Error Resume Next
Dosya_adi = ThisWorkbook.Path & "\Kralın Kızı.TS"
yer = Space$(255)
lRet = GetShortPathName(Dosya_adi, yer, Len(yer))
If lRet <> 0 Then
Dosya_adi = Left$(yer, InStr(yer, vbNullChar) - 1)
End If
mciSendString "open " & Dosya_adi & " type MPEGVideo alias mp3audio", 0, 0, 0
sReturn = Space$(256)
lRet = mciSendString("status mp3audio length", sReturn, Len(sReturn), 0&)
mciSendString "close mp3audio", 0, 0, 0
iSec = Int(Val(sReturn) / 1000)
iMin = Int(iSec / 60)
iSec = iSec - (iMin * 60)

If iMin > 59 Then
iSat = Int(iMin / 60)
iMin = iMin - (Int(iMin / 60) * 60)
End If
MsgBox Format$(iSat, "00") & ":" & Format$(iMin, "00") & ":" & Format$(iSec, "00")

End Sub

 

[halit3]

Anlamadım ne demek istediniz.

 

[k0081]

Anlamadım ne demek istediniz.

Halit hocam;
Şu satır : mciSendString "open " & Dosya_adi & " type MPEGVideo alias mp3audio", 0, 0, 0

Bu satırın TS dosyası için bir biçimi olması lazım gibi geliyor bana...

Haluk beyin; kodları

Win7 de Excel tablosuna süre yazıyor. Ama değişkene alınmıyor.

 

[Haluk]

....
..

Haluk beyin; kodları

Win7 de Excel tablosuna süre yazıyor. Ama değişkene alınmıyor.

Değişkenin adı : strInfo

.

 

[k0081]

Değişkenin adı : strInfo

.

Haluk hocam; biliyorum.

Excel alınan listeye göre “i” yerine sayısal rakamlar yazarak almaya çalıştım. Excel listesindeki kısımları aldım, ama “uzunluk” kısmına gelince veriyi almıyor.

 

[Haluk]

Arkadaşım...... 14 No'lu mesajdaki kodu denemedin mi?

i=27 olduğunda, vermesi lazım.... En azından; Win7'de böyle, diğer işletim sistemlerinde nasıldır, bilmiyorum....

.

 

[k0081]

Arkadaşım...... 14 No'lu mesajdaki kodu denemedin mi?

i=27 olduğunda, vermesi lazım.... En azından; Win7'de böyle, diğer işletim sistemlerinde nasıldır, bilmiyorum....

.

Evet Hocam , tamamdır... Haklısınız. Win7 de Süreyi aldım değişkene... Bir yerde Hata yapmışım.

Teşekkürler.