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. Joko seuraava hallitus uskaltaa puuttua 7,5 viikon vuosilomiin

      Onhan se törkeää eriarvoisuutta ja verovarojen törkeää tuhlausta.
      Maailman menoa
      134
      742
    2. Kysymys

      Pystyisitkö tutustuu kaverina tai alkaa parisuhteeseen skitsofreenikon kanssa? T.Skitosoaffektiivinen (parantunut) Ois
      Sinkut
      197
      700
    3. Töysä otsikoissa

      Töysässä takavarikoitu kaksi luvallista käsiasetta ammuskelun jälkeen!Näin media uutisoi!
      Alavus
      26
      638
    4. Kyllä mä tiedän et me kuulutaan yhteen ja se on tähtiin kirjoitettu!!

      En vain halua satuttaa sua. Olen aivan perseestä epävakaan ja ADHD oireiluin vuoksi. Ja kun olisi aika "vapauttaa" ne su
      Ikävä
      45
      627
    5. Metsamanin muru kissa kuollut

      Nyt siellä surraan muru kissaa päivä tolkulla,vaikka muuten ei oo välittänyt mitenkään siitä,kun joka videolla vaan mars
      Tuusniemi
      99
      624
    6. Lähdetkö kanssani

      syömään joskus😘
      Ikävä
      61
      619
    7. 42
      554
    8. Mistäkö haaveilen

      Tällä hetkellä. Siitä, että kohtaamme, vetovoima on jäljellä ja saisimme olla aivan kahden, ei tarvitsisi välittää mistä
      Ikävä
      29
      521
    9. Kuinka hyvin kestäisit?

      Oletko miettinyt, että mitä jos olisit pyöreä pullukka ja vielä ruma niin kestäisitkö vai masentuisitko?
      Sinkut
      102
      520
    10. Tapailtaisko nainen

      Meidän kotien puolessavälissä suunnilleen, vähä niinku salaa. Siinä on yks kiva paikka joka sopis hyvin. Mieheltä
      Ikävä
      59
      515
    Aihe