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
- 1411020
Poliisin potkija
Kukahan oman elämänsä sankari oli potkaissut poliisia? Iltalehdessä oli juttua.27956Sinä mies olisit
ollut se kenet haluan. Edelleen pidän sinua kaikkein ihanimpana ja tärkeimpänä. Kukaan muu ei ole niinkuin sinä. Mutta s43848- 39725
Miksi jätit minut
Epätietoisuuteen? Tiedän että pelkäsit mitä siitä seuraa jos asiat tulevat mutta silti. Miksen merkinnyt tarpeeksi?48694- 57611
Kun et ota yhteyttä, tarkoittaako se
Että olet menny elämässä eteenpäin ja et myös toivo minulta naiselta viestiä enää?67588- 37579
Tykkäisitköhän todellisuudessa jutella
Minun kanssa kahdestaan, vai onko tämä palstailu enemmän sinun juttu minun suhteen?57575- 76567