Miten tuossa Mediaplayer komponentissa, jos käyttää Displayna panel komponenttia saa videon venytettyä koko paneelin kokoiseksi?
Vastaukset 4
- MadMax
MediaPlayer1.DisplayRect := Panel1.ClientRect;
- MadMax
se pitää laittaa oikeaan kohtaan
mediaPlayer1.Open;
mediaplayer1.DisplayRect:=panel1.ClientRect;
mediaPlayer1.Play;
- adsl2
Jos olet video soitinta tms. tekemässä suosittelen DSPackia.
http://www.progdigy.com/ - 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
- 79875
- 58836
- 63826
Uunimakkara koululaisten suosikki
https://www.is.fi/ruokala/ajankohtaista/art-2000012228523.html on tärkeää että oppilaat syövät hyvin, muuten ei jaksa p264655- 49648
Meistä puhutaan
Meistä varmaan puhutaan ja huhutaan. Luulen niin. Ei kiva juttu. Ja ystävät on minusta huolissaan. Yritän tehdä kaikkeni27646Luotan sinuun nainen, kuin kallioon!
Jos joskus tuntuu siltä, että haluat puhua minulle jotain luottamuksella niin voit luottaa siihen, että kaikki jää meid39511- 17502
En tiedä sinusta
Olisitko lempeä, hyväntuulinen ja rento vai jämpti, määrätietoinen ja huoliteltu kumppani?38502- 58488