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. Oivallus

      Mitä olet oivaltanut viimeksi?
      Ikävä
      110
      675
    2. Jasmin Vähäkangas valehtelee kolumnissaan. Hän ei ole "taaperon" äiti.

      Lapsi ei taaperra. Vielä seurakunnan lehdessä valehtelee noin?
      Kotimaiset julkkisjuorut
      64
      516
    3. Mitä kuvittelet kaivattusi tekevän

      Arkena tai viikonloppuna? Mitä itse teet samaan aikaan?
      Ikävä
      39
      506
    4. Pyhäjärvi syvällä kusessa

      Pyhäjärvi ei tule selviämään millään tästä alhosta. Ollaan aivan liian syvällä. https://www.mtvuutiset.fi/artikkeli/pyha
      Pyhäjärvi
      71
      437
    5. Miten voi sinun

      tunteet yhtäkkiä kuolla kuin napista painamalla? Et enää vilkaisekaan minuun päin vaan jos vahingossa näet minut käännät
      Ikävä
      37
      432
    6. Hyvää yötä

      Ikuinen kohtalo, sydänystävä, rakkauteni♥️.. kumpa olisimme saaneet elämältä mahdollisuuden!
      Ikävä
      21
      419
    7. Martina sai ylinopeussakon

      Saiko sakkoa Porsche-merkkisellä autolla?
      Kotimaiset julkkisjuorut
      152
      414
    8. Missähän pöytäkirja viipyy, taas?

      Hallituksen kokouksessa oli eilen mielenkiintoisia asioita käsiteltävänä. Pöytäkirja on ollut yleensä saman iltana luett
      Kemijärvi
      38
      399
    9. Hyvästi feikit hiustenpidennykset - Kerttu Rissanen hurmaa uudella hiustyylillä

      Kerttu Rissanen ihastuttaa uudella hiustyylillään ja lookillaan. Rissasella on totuttu näkemään pitkät hiukset ja hiust
      Suomalaiset julkkikset
      6
      394
    10. Mikä on kaivattusi ikä?

      100v. On mun....
      Ikävä
      20
      371
    Aihe