Mam taki problem, mam MediaPlayer i jak odtwarzam film, to film leci w straasznie szybkim tempie (chyba co 1000 parę klatek). Co zrobić, żeby film normalnie się odtwarzał?
Użycie WindowsMediaPlayer raczej nie wchodzi w grę, bo potrzebuję móc przenosić po formie Panel z filmem, zmieniać jego rozmiar itp. Potrzebuję też informację o tym która klatka jest odtwarzana.
Chce sobie robić własny program do odtwarzania filmów z napisami.
EDIT:
Znalazłem TVideoGrabber ale to jest Trial. Czy ktoś zna coś podobnego?
[delphi] MediaPlayer za szybko odtwarza.
- siekierzyński
- Użytkownik
- Posty: 482
- Rejestracja: 01 cze 2010, 23:12
- Lokalizacja: Nareszcie Polska
Korzystam z programu Tiny Player.
Sam program nie odtwarza filmów, ale wraz z kodekami (korzystam z K-lite Codec Pack) działa całkiem sprawnie.
Dodatkowo umożliwia korekcje czasową napisów i prędkości odtwarzania.
Autor udostępnia kody źródłowe, więc możesz się na nich wzorować.
Sam program nie odtwarza filmów, ale wraz z kodekami (korzystam z K-lite Codec Pack) działa całkiem sprawnie.
Dodatkowo umożliwia korekcje czasową napisów i prędkości odtwarzania.
Autor udostępnia kody źródłowe, więc możesz się na nich wzorować.
- siekierzyński
- Użytkownik
- Posty: 482
- Rejestracja: 01 cze 2010, 23:12
- Lokalizacja: Nareszcie Polska
- siekierzyński
- Użytkownik
- Posty: 482
- Rejestracja: 01 cze 2010, 23:12
- Lokalizacja: Nareszcie Polska
Wiem, tylko jak daje:
to wywala bład przy
Kod: Zaznacz cały
procedure TForm1.FormCreate(Sender: TObject);
var
przycisk: TWindowsMediaPlayer;
begin
przycisk:=TWindowsMediaPlayer.Create(self);
przycisk.Left:=10; // pozycja X przycisku na formularzu
przycisk.Top:=10; // pozycja Y przycisku na formularzu
przycisk.Width:=140; // szerokość przycisku
przycisk.Height:=40; // wysokość przycisku
przycisk.Caption:='Przycisk dynamiczny'; // podpis przycisku
przycisk.Parent:=self; // rodzic przycisku
przycisk.Visible:=True; // czy przycisk widoczny?
end;
Kod: Zaznacz cały
var
przycisk: TWindowsMediaPlayer;Jaki bląd?siekierzyński pisze: to wywala bład przyKod: Zaznacz cały
var przycisk: TWindowsMediaPlayer;
W tym przypadku na 99% będzie to "undeclared identifier", czyli kompilator nie wie co to i gdzie szukać identifikatora TWindowsMediaPlayer.
Dodaj do sekcji uses WMPLib_TLB
pozdrawiam.
- siekierzyński
- Użytkownik
- Posty: 482
- Rejestracja: 01 cze 2010, 23:12
- Lokalizacja: Nareszcie Polska