Mediaplayer

SikaPossujaKärpänen

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

4

543

    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. Sebastian Tynkkynen (pers.) ei vastusta raiskauksia

      "Sebastian Tynkkynen oli ainoa 14 suomalaismepistä, joka vastusti uutta suostumuksen puuttumiseen perustuvaa raiskauslak
      Maailman menoa
      109
      4515
    2. Purra jäi kiinni valehtelusta, Heinäluoma ei

      Ja heti alkoi Purra joukkoineen maalittamaan Heinäluomaa. Niin toimii äärioikeistoa edustava putinistipersulauma, jonka
      Maailman menoa
      55
      3336
    3. Oot kaunis

      Oot kaunis nainen.
      Ikävä
      84
      1113
    4. Alkuperäinen kristillinen kaste on uskoville annettava upotuskaste

      Kreikan sana BAPTIZO merkitsee upottamista. Alkuseurakunta kastoi upottamalla Apostolien tekojen kirjan mukaan: Ap.t 2
      Kaste
      552
      929
    5. Me, Suomen kansa, vaadimme Riikka Purraa jatkamaan valtiovarainministerinä!

      Ja jollei valtiovarainministerinä, niin sitten pääministerinä. Purra on nostanut Suomen talouden nyt komeaan kasvuun Ma
      Maailman menoa
      83
      820
    6. Kuka murhasi Anneli Auerin miehen?

      Tapaus edelleenkin selvittämättä.
      Maailman menoa
      171
      804
    7. Saisikin sinut

      Saisikin sinut nainen rakastajattareksi.
      Ikävä
      57
      779
    8. Pitäisikö naisen haluta "puolisomies"?

      Toivottavasti saan nyt tämän idean purettua hyvin sanoiksi? Mutta tuossa eräässä aloituksessa tuli vastaan tälläinen tek
      Sinkut
      140
      766
    9. Miksi piti uhota naapuri Venäjälle ja tehdä itsestä heidän vihollinen?

      https://www.iltalehti.fi/kotimaa/a/f0eee963-3605-47e6-9989-a21347ce7757 "Jos sota syttyy Suomessa, näin tapahtumat vois
      Maailman menoa
      195
      748
    10. Asiantuntijat todistavat: Rydman valehteli.

      Virta oli oikeassa jokaisessa kolmessa eri väitteessä, sen sijaan RYDMAN VALEHTELI kaikissa kolmessa väitteessä. https:/
      Maailman menoa
      189
      716
    Aihe