Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Need a working ActiveX control for viewing AVI on a form
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00122841
Message ID:
00122934
Vues:
12
>Hello,
>
>I am looking for suggestions on getting a workable solution for
>viewing an AVI (Microsoft's Animated Video format) files in a
>Visual FoxPro 5.0 form.
>
>Currently, I am trying to get Microsoft ActiveMovie Control (amovie.ocx) running but I am not having much success. I easily created a small VisualBasic 5.0 using the same control without problems.
>
>The problem is that I cannot see the properties from VFP5.0 and I cannot seem to get into the "Custom" Properties page that would allow me to configure some of the properties at design time.
>
>I settled on amovie.ocx in VB but seem to be hitting a brick wall
>when using the same one in VFP5. That is, VFP crashes, some of the properties can only be defined at design time, and a couple of properties are available only from the Custom Properties panel in VB5.0.
>
>I ruled out the sample ActiveX demo from the Sample Solutions in VF5.0 because it was unable to handle or scale the AVI's I've tried feeding it (with the exception of the original AVI used in the demo). It also had caused VFP to crash with memory excpetions, etc.
>
>A co-worker has suggested that I subclass the amovie.ocx control in VB and simply add the a couple of methods for starting/stopping the animation. This will probably work but it would be nice if I could avoid this.
>
>What other *freely* available AVI controls are out there that can scale AVIs to fit the design size as well as handle what seems to be many different AVI file formats?
>
>Thanks

FoxPro Advisor just did an article on the Active Movie control and the MS Animation control. They recommended you use code to initialize and not the property sheet.
lcFile = GETFILE()
IF NOT EMPTY(lcFile)
    * Assumes the control is named ocxMovie
    WITH THISFORM.ocxMovie
        .FileName = lcFile
        .ShowControls = .F.
        .ShowDisplay = .F.
        .Visible = .T.
    ENDWITH
ENDIF
You then need to wait a few seconds and execute:
THISFORM.ocxMovie.Run()
Steve Ruhl
CitiMortgage, Inc.
steven.ruhl@citibank.com Office
Steve@steven-ruhl.com Home
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform