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. 167
      1762
    2. Onko kaivattusi seksipommi?

      Minun kaivattuni on😅😍
      Ikävä
      77
      1242
    3. Hyvää yötä kivalle miehelle!

      Samasta kylästä! 😊
      Ikävä
      114
      933
    4. Realistisesti

      Miten toivoisit, että asiat etenisivät hänen kanssaan? Kuka tekisi mitä?
      Ikävä
      94
      817
    5. Olen osastolla

      Henkisesti olen aivan rikki siitä mitä olen tehnyt. Lisäksi olen vakavasti sairas. Verikokeet kertoo sen.
      Ikävä
      66
      666
    6. Oletkohan tajunnut mitä olen päättänyt

      En tule koskaan, ikinä, sanomaan sinulle mitään, ei tervehtimistä, ei aloitetta, ei katsetta, ei mitään, koska et ole si
      Ikävä
      41
      619
    7. Minkälaista ajattelisit elämänne olevan

      jos olisit kaivattusi kanssa yhdessä?
      Ikävä
      59
      617
    8. Sinulle nainen

      Koitan vihdoin jättäytyä täältä pois. Taas koko illan tänne tullut vain jotain pilkkaus viestejä, ei jaksa tuollaista. M
      Ikävä
      74
      520
    9. Miksi et edistä asiaa...

      Kaivattusi suhteen??
      Ikävä
      42
      514
    10. millaiset hiukset

      kaivatullasi on? :)
      Ikävä
      29
      502
    Aihe