Πως μπορούμε να δούμε video μέσω φόρμας?

[marios1984]

καλημερα και καλως σας βρηκα....και ξεκιναω με μια απορια πως παιζουν videakia μεσα σε access?παραθετω την προσπαθεια που εκανα μονος μου παρακατω...
αρχικα εχω εναν πινακα με στηλες τιτλοσ ταινιας και θρλ ταινιας (δλδ που βρισκεται στον σκληρο η ταινια)
μετα υπαρχει μια φορμα μεσα στην οποια εχω βαλει αρχειο activex (wmp) με τιτλο WMPlayer, ενα πλαισιο λιστας που μου εμφανιζει τον πινακα και ενα κουμπι εντολης που στο κλικ εχει την ακολουθη εντολη

cmdPlayMovie_click()
if not isnull(me.listmovies)then
me.wmplayer.url=me.listmovies
else MsgBox "First select a movie"
end if
end sub

αλλα πατωντας το κουμπι δεν βλεπω την ταινια τι κανω λαθος?

[Tasos]

Φίλε μου Μάριε, καλωσόρισες στο νέο φόρουμ!
Η απάντηση που θέλω να σου δώσω θα είναι εύστοχη μόνο όταν γνωρίζω την έκδοση Office που χρησιμοποιείς αλλά και την έκδοση του λειτουργικού συστήματος σου.
Μπορείς αν θέλεις, να συμπλήρώσεις τα στοιχεια αυτά μια φορά στα ανάλογα πεδία που υπάρχουν στον Πίνακα Ελέγχου και συγκεκριμένα στο μενού "Χρήσιμες πληροφορίες".

Με εκτίμηση

Τάσος Φιλοξενίδης

[marios1984]

windows xp sp2 και office 2000...ελπιζω να τα εκανα σωστα με τις πληροφοριες

[Tasos]

Καλησπέρα σε όλους!
Μάριε, δες αν σου κάνει ο κώδικας στο συνημμένο παρακάτω ( απλό παράδειγμα σε μορφή 2002/2003).

Κανονικά, με τον παρακάτω κώδικα θα πρέπει να δουλέψει:

Private Sub MovList_DblClick(Cancel As Integer)

    Wmp.URL = MovList.Value

    Wmp.Controls.play

End Sub


 

περιμένουμε νέα σου
 

Τάσος
        

[marios1984]

καλημερα...νομιζω οτι με υπερκαλυψες....ευχαριστω πολυ

και βεβαια το δικο σου ειναι πιο ευπαρουσιαστο απο το δικο μου που ειναι πιο χυμα...

[SOELLICHA]

Καλημέρα,

Προσπαθώ κι'εγώ να ενσωματώσω βιντεο μέσα σε φόρμα, όμως σαν active X > Microsoft Media Player.
Χρησιμοποιώ Win7 & Access 2007.
Η φόρμα μου παρουσιάζει μια εγγραφή τη φορά και πρέπει το βίντεο να είναι διαφορετικό για κάθε εγγραφή.
Το πρόβλημα μου ειναι οτι, βάζω το active X στη φόρμα αλλά δεν ξέρω πως να του πω ποιό βίντεο και απο πού να το βρεί και να το παίξει!
Στο συνημμένο, η κυρίως φόρμα είναι η "Form2" και ακολούθως όταν πατήσουμε το κουμπί με το μεγενθυντικό φακό, τρέχει ενα query και έπειτα ανοίγει η φόρμα "Movie Search Result" ώστε κάποιος να δει την περιγραφή της εγγραφής και το σχετικό βίντεο.

Ευχαριστώ εκ των προτέρων,

Με Εκτίμηση,

Ανδρέας Αχιλλέως

[Tasos]

Καλημέρα φίλε μου!

Πριν φτάσουμε στο προγραμματιστικό κομμάτι που έει να κάνει με τη διαχείριση λειτουργίας του 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

Φιλικά

Τάσος

[SOELLICHA]

Καλημέρα Τάσο,

Ελπίζω να είσαι καλά;

Έχω βάλει το κουμπί, μετα έχω ακυρώσει το παράθυρο για τις ρυθμίσεις και πήγα στο properties>EVENT>OnClick και διαλέγω "event procedure", μετά εμφανίζεται το VBA editor. Εκεί Τάσο, πρέπει να σβήσω το "Private Sub Command28_Click() End Sub" και να βάλω τον κώδικα τον οποίο μου έχεις δώσει;
Έχω κάνει το εξής:
Έχω σβήσει την αρχή του κώδικα που έβγαλε αυτόματα:"Private Sub Command28_Click() End Sub"
και έκανα paste αυτό:
Option Compare Database
Option Explicit


Private wmp As WindowsMediaPlayer

Private Sub cmdOpenMovie_Click()
Set wmp = Me.WindowsMediaPlayer8.Object
wmp.URL = Nz(Me.MoviePath, "C:\Users\Public\Videos\Sample Videos\Wildlife.wmv")
End Sub

Ονόμασα και το κουμπί : "cmdOpenMovie"

Όμως όταν το πατώ μου βγάζει λάθος!

Δες το συνημμένο..

Ευχαριστώ πολύ για τον χρόνο σου :)

Με εκτίμηση,

Ανδρέας Αχιλλέως

[Tasos]

Καλησπέρα Ανδρέα!

Αντικατέστησε το όνομα "WindowsMediaPlayer8" με το όνομα του Mediaplayer της εφαρμογής σου.

Καλή συνέχεια!

Τάσος

[SOELLICHA]

Καλημέρα Τάσο,

Το media player των windows θέλω να ορίσω σαν εφαρμογή για τα βίντεο αλλά που θα βρω την σωστή ονομασία για να το γράψω μεσα στο VBA editor?

Ευχαριστώ,

Με εκτίμηση,

Ανδρέας Αχιλλέως