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. Mikä sai sinut ajattelemaan mies...

      Ettet riittäisi minulle?😔
      Ikävä
      124
      1197
    2. Anteeksi

      että tein pahaa sulle. En ole täysijärkinen.
      Ikävä
      118
      1048
    3. Luulet olevasi pidetty

      Luulet olevasi pidetty ihminen ja tärkeä monille. Oikeasti et ole! Kukaan EI oikeasti sinua jeesaa, kun tarvitset olkap
      Ikävä
      98
      879
    4. Miksi olet sitten

      Yksin? Eikö kukaan kelpaa sinulle?
      Ikävä
      112
      818
    5. 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ä
      270
      734
    6. Miten murun juhannus meni

      ❤️🤗 Muistithan olla kiltisti 😁😘
      Ikävä
      48
      685
    7. Kalateltta

      Ollaan tulossa Kuhmoon Kamarimusiikkiin jos majoitus viela jarjestyisi kuitenkin. Milloin kalateltta aukeaa naillanakymi
      Kuhmo
      17
      667
    8. Mitä ihanaa voisit tehdä, että saat kaivattusi?

      Mitä ihanaa voisit tehdä, että saat kaivattusi?
      Ikävä
      41
      594
    9. Miten j mies

      Sun juhannus meni?
      Ikävä
      49
      579
    10. Milloin olet viimeksi ollut hänen..

      Lähettyvillä??
      Ikävä
      25
      545
    Aihe