Mediaplayer

SikaPossujaKärpänen

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

4

635

    Vastaukset

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

      että tein pahaa sulle. En ole täysijärkinen.
      Ikävä
      173
      1661
    2. Ketä naista se poju tällä hetkellä vetää höplästä

      Sillä kun pitää aina olla joku höplästä vedettävä kierroksessa
      Ikävä
      347
      1258
    3. Milloin olet viimeksi ollut hänen..

      Lähettyvillä??
      Ikävä
      63
      1145
    4. Tappio Rydmanille

      Ei pystynyt Wille saamaan tahtonsa läpi. https://www.hs.fi/politiikka/art-2000012093775.html
      Perussuomalaiset
      192
      919
    5. Milloin näit kaivattusi viimeksi?

      Mitä olisit halunnut tehdä tai sanoa hänelle?
      Ikävä
      44
      878
    6. 69
      768
    7. Missä tapasit kaivattusi

      ensimmäisen kerran?
      Ikävä
      49
      760
    8. Sometähti villisika-Seppo on kuollut

      Suomussalmella lemmikki­eläimeksi virallisesti hyväksytty villisika Seppo on kuollut. https://yle.fi/a/74-20232445
      Suomussalmi
      37
      705
    9. Aattelin nainen

      Jos oppisin puhumaan. Rehellisesti, rennosti ja hetkessä.
      Ikävä
      119
      654
    10. J-mies, miten voit olla niin varma siitä

      että minä olen juuri se nainen, kenen ajattelet ja haluat minun olevan, se kenelle avaat ajatuksiasi ja tunnustat syvimp
      Ikävä
      79
      630
    Aihe