Visualizzazione dei risultati da 1 a 10 su 10
  1. #1
    Utente di HTML.it
    Registrato dal
    Dec 2008
    Messaggi
    152

    [vb6] Ottenere durata da un video

    Ciao raga ho cercato nel forum e ho trovato solo una discussione di codice in vb5, pur provando a inserirla nel progetto non funzionava come mi aspettavo, la mia domanda è avendo la destinazione di un video ipotizzando C:\a.avi come sapere la sua durata un grazie anticipato

  2. #2
    Utente di HTML.it L'avatar di Boolean
    Registrato dal
    Oct 2005
    Messaggi
    758
    Devi interrogare la collection delle Extended Properties.
    Sul mio blog trovi una funzione che fa al caso tuo:

    TheTruster's Box - Estrarre Extended Properties da un File in Visual Basic 6

    Boolean

  3. #3
    Utente di HTML.it
    Registrato dal
    Dec 2008
    Messaggi
    152
    Grazie per la risposta ho letto la discussione del blog d'avvero interessante, ho copiato il codice in vb6 ma ottengo vari errori non è che mi potresti creare un progetto, perchè non capisco dove sbaglio

  4. #4
    Utente di HTML.it L'avatar di Boolean
    Registrato dal
    Oct 2005
    Messaggi
    758
    Non ti sembra il caso di dire *quali* errori ti si presentano, piuttosto che chiedere la pappa pronta... tralasciando il fatto che lo è già, visto che basta un copia-incolla?

    Boolean

  5. #5
    Utente di HTML.it
    Registrato dal
    Dec 2008
    Messaggi
    152
    ok mi da errore alla seguente riga

    Debug.Print clProps("Durata")

    Mi dice chiamata di rutine o argomento non valido

  6. #6
    Utente di HTML.it L'avatar di Boolean
    Registrato dal
    Oct 2005
    Messaggi
    758
    Prova con:

    codice:
    Debug.Print clProps("Duration")
    In ogni caso, come consigliavo anche nell'articolo, possono verificarsi problemi con le differenti lingue in cui i parametri possono essere espressi.
    Se si vuol andare sul sicuro, è meglio usare l'indice numerico che, per la durata è il 12:

    codice:
    Debug.Print clProps(12)
    Boolean

  7. #7
    Utente di HTML.it
    Registrato dal
    Dec 2008
    Messaggi
    152
    Mi da sempre errore io ho fatto così

    Private Sub Command1_Click()
    Dim clProps As Collection
    Set clProps = FileProperties("C:\", "a.avi")

    Debug.Print clProps(12)
    End Sub

  8. #8
    Utente di HTML.it L'avatar di Boolean
    Registrato dal
    Oct 2005
    Messaggi
    758
    Il codice è giusto. Se ti da errore, il problema è da un'altra parte.
    Sei sicuro che il percorso del file sia giusto?
    Perchè non analizzi in Debug il contenuto della Collection?

    Boolean

  9. #9
    Utente di HTML.it
    Registrato dal
    Dec 2008
    Messaggi
    152
    Cioè ?

  10. #10
    Originariamente inviato da gprox
    Cioè ?
    Cioè imposti un punto di interruzione sulla riga "Debug.Print clProps(12)"
    esegui il codice e quando si blocca al punto di interruzione aggiungi "clProps" tra le "espressioni di controllo" (click col destro sul nome della collection e poi scegli nell'elenco che si apre "aggiungi espressione di controllo..")

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.