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. Liikenneonnettomuus kuhmo

      Taisi Audi mennä lunastukseen ja pemari kilometritehtaalle
      Kuhmo
      36
      2042
    2. Olen pahoillani kun olen satuttanut

      Välillä kiukuttaa paljon.
      Ikävä
      41
      630
    3. Olen aivan hajalla yhden

      Naisen takia😞
      Ikävä
      40
      603
    4. Mitä oikeasti haluat?

      🥹
      Ikävä
      42
      480
    5. Miten sä jaksat

      Pitää susta huolen.
      Ikävä
      62
      472
    6. Naurettavia provoja ja lavastuksia täällä

      Saa olla aika harhainen jos uskoo juttuja täällä faktoina 😆😆😆 ihmiset matkii toisia jne
      Ikävä
      60
      470
    7. Mitä näät

      Siinä miehessä?
      Ikävä
      45
      460
    8. T.h tuomio

      Onko tämä lainvoimainen vai onko tästä valitettu? Mitenhän on mennyt linnassa joko pehmennyt pää täysin
      Suomussalmi
      6
      427
    9. Pientä pintaremonttia

      Mistä löytää kirves sähkö putkimiestä tai lasin asentajaa rässä hyrynsalmen pitäjässä, kun eiole puhelinluetteloa eikä k
      Hyrynsalmi
      14
      423
    10. Hyvää yötä mies

      Kulta söpöliini 🥺❤️
      Ikävä
      40
      411
    Aihe