Mediaplayer

SikaPossujaKärpänen

Miten tuossa Mediaplayer komponentissa, jos käyttää Displayna panel komponenttia saa videon venytettyä koko paneelin kokoiseksi?

4

635

    Vastaukset 4

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • MadMax

      MediaPlayer1.DisplayRect := Panel1.ClientRect;

      • MadMax

        se pitää laittaa oikeaan kohtaan

        mediaPlayer1.Open;
        mediaplayer1.DisplayRect:=panel1.ClientRect;
        mediaPlayer1.Play;


    • adsl2
    • Mika0800

      toinen vaihtoehto:

      Importoi ActiveX -komponenttina Microsoftin Windows Media Player. HUOM: Et voi hyväksyä Delphin ehdottamaa TMediaPlayer -nimeä, koska se menee päällekkäin Delphin oman MCI -pohjaisen komponentin kanssa (ainakaan Delphi5:ssä ei voi).

      Sensijaan nimeä tuotavana oleva ActiveX -komponentti vaikkapa TMsMediaPlayer, niin pitäisi toimia ok.

      Jos ongelmana on toistuvat AccessViolation -ilmoitukset, tee näin:

      1. ÄLÄ pudota TMsMediaPlayeriä formille, vaan luo se koodissa, siis näin:

      TForm1.FormCreate(...);
      begin
      //
      MyPlayer := TMsMediaPlayer.Create(Self);
      MyPlayer.parent := Panel1;

      end;


      ja sitten:

      lisää formille WM_Destroy -viestikäsittelijä.

      Siinä tee näin:

      TForm1.WMDestroy(...);
      begin
      //
      FreeAndNil(MyPlayer);

      inherited;
      end;

      Tämän pitäisi lopettaa AccessViolation -ilmoitukset.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Suomalaiset nuoret Eu:n köyhimpiä?

      Suomalaisen nuoren varallisuus keskimäärin 5000e. Eu:ssa keskimäärin 25 000e.
      Maailman menoa
      154
      1246
    2. Mikä on sun ja kaivattusi nimen viimeinen kirjain?

      Välillä näin päin...
      Ikävä
      88
      1174
    3. Sofia teki aika pahat oharit

      Leikkiikö Sofia kansainvälistä kosmopoliittia vai menikö rehdisti pupu pöksyyn, kun perui viestillä tulonsa puoli tunti
      Kotimaiset julkkisjuorut
      205
      1080
    4. Mikä on toinen nimesi?

      Tiedätkö naisen?
      Ikävä
      65
      882
    5. Mikä on kaivattusi

      Nimi väärinpäin🤔🙃
      Ikävä
      57
      632
    6. Mikä kaivatussasi

      on niin erityistä?
      Ikävä
      32
      548
    7. Kohdataanko me

      Enää?
      Ikävä
      52
      543
    8. Muiden vaikutus

      Oletko antanut muiden vaikuttaa mielipiteisiisi, tunteisiini tai valintoihisi suhteessa kaivattuusi?
      Ikävä
      79
      499
    9. No tavallaan seuraava kohtaaminen on käänteentekevä

      Koska sanon sulle että rakastan sua. On aika. Pösilö.
      Ikävä
      29
      474
    10. Miten J sitten tehdään se?

      Varaanko kumin?
      Ikävä
      45
      467
    Aihe