Miten tuossa Mediaplayer komponentissa, jos käyttää Displayna panel komponenttia saa videon venytettyä koko paneelin kokoiseksi?
Mediaplayer
4
634
Vastaukset
- 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
- 87965
- 55712
Huonoja uutisia-nyt lähtee höyrylaivat
https://www.ita-savo.fi/ Konkurssiin meni tämäkin yritys. Raja kiinni ja venäläiset turistit puuttuvat. Täällä menee pe35594Ei näytä hyvältä
Kyllä nyt Ähtäriä viedään vesikelkalla. Neuvotteliat untuvikkoja kaikki. Mikko tietty tapansa mukaan loikki puheenjohtaj39536- 31459
- 34437
Älä itke rakas.
Tunnen sun kyyneleet silmissäni. Kaikki tulee menemään hyvin. Loppu häämöttää jo...46423Jos vielä toivot...mies...
Saisinpa jonkun merkin sinulta, jos vielä odotat 📝➡️📱 Rohkeus on mennyt jos seurustelet vaikka nykyisin. En halua häi41419Olet hurmaava
Olet paras mies, joka on tullut vastaan. Sinussa on jotakin, mitä muissa ei ole. En vaan tiedä, mikä on oikein sinun su14411Dina on valittu virkaan Rovaniemelle
Kemijärven kaupunginjohtaja on pyrkinyt pois Kemijärveltä ja näyttää että näin tulee käymään.25408