[cadil]

В некоторых мультимедийных плеерах есть кнопка "Фото", которая позволяет сохранить отдельный кадр в формате рисунка, например, *.bmp. Какую инструкцию надо организовать, чтобы при нажатии кнопки, кадр просматриваемый стандартным видеоплеером delphi, записывался, допустим, в другом окне этого же приложения или открывал диалоговое окно "Сохранить рисунок как ...". Встречал исходники, где фрейм AVI-файла сохраняется в формате *.bmp. А как записать отдельный кадр?

[Admin]

Сообщение от cadil

В некоторых мультимедийных плеерах есть кнопка "Фото", которая позволяет сохранить отдельный кадр в формате рисунка, например, *.bmp. Какую инструкцию надо организовать, чтобы при нажатии кнопки кадр просматриваемый стандартным видеоплеером delphi записывался, допустим, в другом окне этого же приложения или открывал диалоговое окно "Сохранить рисунок как ...". Встречал исходники, где фрейм AVI-файла сохраняется в формате *.bmp. А как записать отдельный кадр?

http://www.delphisources.ru/pages/so...vi_loader.html

[cadil]

Спасибо!
Очень оперативно. На форуме ixbt эта тема висит около двух недель и ни одного ответа ... Перехожу к вам.

[moo2k]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.Button1Click(Sender: TObject); var   DC: HDC;   Canvas: TCanvas;   B: TBitmap; begin   Canvas := TCanvas.Create;   B := TBitmap.Create;   DC := GetDC(mplayer1.handle);   try     Canvas.Handle := DC;     with MPlayer1 do     begin       B.Width := Width;       B.Height := Height;       B.Canvas.CopyRect(Rect(0, 0, Width, Height),       Canvas, Rect(0, 0, Width, Height));       B.SaveToFile('c:\cadr.bmp');     end   finally     ReleaseDC(0, DC);     B.Free;     Canvas.Free   end   end;

[cadil]

Глубоко признателен за код!
Поставил в исходник стандартного видеоплейера - все заработало.
Осталось две проблемы:
1. Сохраняется рисунок только кнопок плейера. Самостоятельно ввести в качестве переменной MediaPlayer.Display вместо MediaPlayer.handle у меня не получается.
2. Как вывести рисунок (вместо его сохранения в файле) в окно объекта Image?
Спасибо!