Zrzut klatki z TMediaPlayer - problem z mpg

0

Siema,
Robię program do robienia zrzutów z filmów (używam komponentu TMediaPlayer).
Wszystko pięknie, otwieram plik AVI, robię zrzut, jest cacy.
Jednak kiedy próbuję zrobić zrzut z pliku MPG, MPEG, to wychodzi mi cały czarny(!).
Tak robię zrzuty:

procedure TForm1.Button1Click(Sender: TObject);
var
 BMP : TBitmap;
 ADC : HDC;
 GetPoint : TPoint;
 MyJpeg: TJpegImage;
 Renamed: Boolean;
begin
  if eSzerokosc.Text='' then
    eSzerokosc.Text:='640';
  if eWysokosc.Text='' then
    eWysokosc.Text:='480';
 BMP := TBitmap.Create;
 BMP.Height := strtoint(eWysokosc.Text);
 BMP.Width := strtoint(eSzerokosc.Text);
 MediaPlayer1.TimeFormat := tfFrames;
 GetPoint := Video.ClientToScreen(Point(0,0));
 ADC := GetDC(0);
 Application.ProcessMessages;
 Bitblt(BMP.Canvas.Handle, 0,0,
            BMP.Width,BMP.Height,
            ADC, GetPoint.X, GetPoint.Y, SRCCOPY);

 MyJpeg:= TJpegImage.Create;
 MyJpeg.Assign(BMP);
 MyJpeg.SaveToFile(sPlik.FileName);
 
 MyJpeg.Free;
 BMP.Free;
end;
</code

Video to TPanel.

PLZ help!
THX za każdą odpowiedź
0

rownie dobrze mozesz nacisnac PrtScrn :-|. TMediaPlayer odwoluje sie do directxa czy czegos - filmy nie sa wyswietlane w systemie tylko leca prosto na monitor... musialbys napisac wlasnego TMediaPlayera :-/ Osobiscie sobie z tym poradzilem - uzywam VirtualDub i jest cacy ;))

mozliwe ze sie myle, ale nie sądze zeby dalo sie to obejsc :(

0

Mój programik jest troszkę bardziej zaawansowany niż się może wydawać :-)
Niedawno gdzieś na forum znalazłem "To jest coś jakby drugi pulpit tylko dla multimediów" (cytat niedokładny, bo piszę z pamięci). Może można się dostać jakoś do tego pulpitu? Napisał to Scorch więc do niego się odezwę jak będzie dostępny (może już coś wymyślił). Tymczasem każda odpowiedź mile widziana.

1 użytkowników online, w tym zalogowanych: 0, gości: 1