Καλημέρα φίλε μου!
Πριν φτάσουμε στο προγραμματιστικό κομμάτι που έει να κάνει με τη διαχείριση λειτουργίας του Mediaplayer θα πρέπει να λάβουμε υπόψη μας τα παρακάτω:
Αν πρόκειται για μικρά αρχεία προεπισκοπήσεις (Priview) και όχι για φουλ ταινίες μπορείς να τα επισυνάπτεις στη βάση.
Ωστόσο δεν θα το συνιστούσα επειδή τα αρχεία αυτά θα πρέπει
κάθε φορά που κάνει κλικ ο χρήστης να αντιγραφούν από τη βάση στο σε προσωρινή διαδρομή του δίσκου (εδώ πρέπει να γραφτεί κώδικας) για να μπορούν να εν συνεχεία να αναπαραχθούν από τον ενσωματωμένο Mediaplayer.
Αυτό σημαίνει ότι σε ένα αρχείο των 100 ΜΒ θα χρειαστούν ολόκληρα δευτερόλεπτα για να μέχρι να ξεκινήσει η αναπαραγωγή του.
Εκτός αυτού, ο μεγάλος όγκος μιας βάσης δεδομένων δεν είναι ότι το καλύτερο.
Θα πρότεινα στον πίνακα Assets να υπάρχει ένα πεδίο με το όνομα πχ.
MoviePath που θα φιλοξενούσε τη διαδρομή του αρχείου (σχετική ή απόλυτη) στο δίσκο.
Ο κώδικας που θα βάλεις σε ένα κουμπί για αρχίζει η αναπαραγωγή της τρέχουσας εγγραφής θα είναι:
Κώδικας:
Option Explicit
Private wmp As WindowsMediaPlayer
Private Sub cmdOpenMovie_Click()
Set wmp = Me.WindowsMediaPlayer8.Object
wmp.URL = Nz(Me.MoviePath, "")
'wmp + τελεία και σου ανοίγει το Intellisense για περισσότερες εντολές του στοιχείου.
End Sub
Φιλικά
Τάσος