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. Yli 3 Vuotta sinä jaksoit

      ja yrititit ottaa selvää minusta. Aika hämmästyttävää. Naiselle.
      Ikävä
      85
      1196
    2. Mikä minussa sitten

      Kiihottaa enemmän kuin muissa?
      Ikävä
      74
      959
    3. Jasmin Vähäkangas paljastelee

      Eilinen päivä on heillä kulunut biitsillä niin silloin tuo äiti ihminen on intoutunut paljastelemaan kunnolla. Laittanut
      Kotimaiset julkkisjuorut
      169
      932
    4. Mikä on viimeinen

      este joka vielä pitää sinut ja kaivattusi erillään?
      Ikävä
      57
      690
    5. Miehet lähtevät itse pois deittailumarkkinoilta

      Ovat saaneet tarpeekseen naisista. Tyypillisin poistuja on: Koulutettu, työssäkäyvä, etsii pitkäaikaista parisuhdetta.
      Sinkut
      183
      652
    6. Oikea nainen

      On äärimmäisen naisellinen, pienikokoinen, kapeaharteinen, pienet kapeat kasvot, paksut huulet, kauniit hiukset, upeat t
      Sinkut
      159
      651
    7. Miksi kumppaniehdokkaan oma elämä on teille ongelma?

      Täällä monesti kuulee vaatimuksia siitä, että kumppaniehdokkaalla ei saisi olla lemmikkejä, lapsia, kavereita, eksiä, su
      Sinkut
      267
      648
    8. Kangaskylän alkoholi-hurjastelijat

      Oppi olkoon että autollessa etanoli kuuluu pääasiassa 95 E10 polttoaineseen, siihenkin vain enimmillään 10% vahvuisena t
      Hyrynsalmi
      4
      616
    9. Taidan lähettää kaveripyynnön

      Sulle nainen. Otan vaan rohkaisuryypyn ensin.
      Ikävä
      43
      615
    10. Ei mulle kelpaa kukaan muu...

      Kuin "hän"
      Ikävä
      30
      602
    Aihe