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ź
