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ä teidän jutussa on ongelmana?

      Missä meni pieleen?
      Ikävä
      173
      1445
    2. Kauhavan häiriköijistä

      Juttua Iltalehdessä. Pakko sanoa että noi nuoret on kyllä ihan pimeitä. Putkin peltoja jupksevat kiusaamaan kun ei tietä
      Kauhava
      41
      1039
    3. Haluan sinut, kuuletko minua.

      Haluan sinut. Toivon, että voisimme olla yhdessä. Mietin pystynkö täyttämään toiveesi, olemaan arvoisesi. Voisitko saad
      Ikävä
      38
      735
    4. Auto ajoi päälle?

      Ja pakeni luin iltapäivälehdestä. ! Ken on kuski joka tuollee teki
      Kuusankoski
      14
      660
    5. Sama ransetti taas!

      Keikkui tällä kertaa Honkavaaran tien varressa muutaman sadan metrin päässä Louhenkoskelta.. Otin rekisterin ylös ja ver
      Hyrynsalmi
      21
      650
    6. Hän on tosi

      hyvännäköinen. Ei edes ryppyi oo. :D
      Ikävä
      37
      637
    7. Miksi Lapset kiusaa yöllä

      Miksi Lapset kiusaa yöllä ihmisiä? Miksi vanhemmat antaa tämän tapahtua? Eikö ne huomaa ettei lapset ole kotona vai eivä
      Kauhava
      28
      632
    8. Tehdäänkö tänään toiveista totta?

      Poikkea tänä illasta siinä lähellä ja annetaan silmien puhua ja sen jälkeen puhu sinä lopulta mitä ajattelet..
      Ikävä
      46
      607
    9. Viimeinen lankafest

      Käykää viimeisessä lanka festissä. Ensivuonna sitä ei enää ole. Rahat on loppu. Harmi .
      Puolanka
      17
      593
    10. Ajatteletko ollenkaan minua

      Naiselle, jonka kanssa vahva tunne yhteydestä. Jota kipeästi kaipaan, mutta jota ei juuri näe. Onko siitä jo kolme vuott
      Ikävä
      30
      577
    Aihe