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. Mitä tapahtuu?

      Mitä tapahtuu Humalojalla? Poliiseja talon ympärillä ja paljon ihmisiä pitkin pihoja???
      Haapavesi
      41
      1897
    2. Suomi on viittä vaille sodassa Venäjän kanssa...

      ...syynä tähän on kokoomuslainen presidenttimme Stubb. Hän on ainoa eurooppalaisen maan johtaja, joka kärkkäästi ja taha
      Maailman menoa
      710
      1290
    3. Miksi et lähesty minua

      Jos kerran kaipaat, mies? Mitä pelkäät?
      Ikävä
      99
      1031
    4. Mitä nyt haluaisit kysyä kaivatultasi?

      Tässä hetkessä tai menneestä?
      Ikävä
      102
      908
    5. Olen vähän epävarma siitä, oletko kiltti

      Nainen, ensivaikutelma oli, että olet tosi hyväsydäminen eli siinä mielessä harvinaisuus. Eli et mene virran mukana, etk
      Ikävä
      88
      904
    6. Mikä hänessä

      Saa sut kuumaksi?
      Ikävä
      66
      751
    7. Taidan olla pelkuri

      Kun en uskalla edes kysyä sulta 😳
      Ikävä
      33
      642
    8. Olinko yhden viestin arvoinen?

      Sen verran olit valmis panostamaan ja selvittämään umpisolmuja. Kukkuluuruu vaan sinullekin mies.
      Ikävä
      68
      518
    9. Kuka om uusi kylän mies?

      Ajelee polkupyörällä. Vaalea, melkein kalju. Ilmestyi katukuvaan tänä kesänä. Viettää aikaa kauppojen tuulikaapeissa. Ku
      Suomussalmi
      13
      518
    10. oot mun silmissä

      Vain äärettömän nolo. Anna olla jo 😂
      Ikävä
      78
      501
    Aihe