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. Oivallus

      Mitä olet oivaltanut viimeksi?
      Ikävä
      147
      1013
    2. Pyhäjärvi syvällä kusessa

      Pyhäjärvi ei tule selviämään millään tästä alhosta. Ollaan aivan liian syvällä. https://www.mtvuutiset.fi/artikkeli/pyha
      Pyhäjärvi
      112
      960
    3. Miten voi sinun

      tunteet yhtäkkiä kuolla kuin napista painamalla? Et enää vilkaisekaan minuun päin vaan jos vahingossa näet minut käännät
      Ikävä
      63
      758
    4. PYHÄJÄRVEN KAUPUNKI VALTIOVARAINMINESTERIÖN ARVIOINTIMENETTELYYN..TE

      ...siinä se nyt on, mitä tässä enää vikistään. Uutiset Yle, 14.8. Klo 20.30, ei tunnu mukavalta.
      Pyhäjärvi
      49
      547
    5. 42
      519
    6. Missä vaiheessa

      Unohdit minut? Onko sinulla oikeasti mies jota rakastat? Tiedän että möhlin ja odotin liikaa. Ei tarvitse vastata jos et
      Ikävä
      33
      491
    7. Miksi meidän yhteys vain

      Säilyy? Säilyy ja säilyy? Joku syyhän siihen on?:))
      Ikävä
      63
      463
    8. Rakastan sinua mies

      Siksi haluankin vain sinun kanssa sitä.
      Ikävä
      22
      427
    9. Kyllä mulla on kovasti tunteita sinuun

      Rakkautta, intohimoa, välittämistä, hellyyttä jne.
      Ikävä
      13
      411
    10. Ulla Appelsin: Sari Essayahin kohtelu vs Nasima

      https://www.is.fi/kotimaa/art-2000012205897.html Mutta vaikuttaa siltä, että kun kyse on kristinuskosta, samat säännöt
      Maailman menoa
      157
      375
    Aihe