Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

FullScreen в DSPack   Найти похожие ветки 

 
zero-g ©   (2004-10-22 15:38) [0]

Доброго времени суток.
У меня такой вопрос...

Играю видео файл по средствам DSPack перехожу в FullScreen
DSVideoWindowEx21.StartFullScreen;
Как мне увеличить саму видео катринку ???

Получается, что в FullScreen перехажу, а видео картинка остается маленькой.
В MediaPlayer было так...
MediaPlayer1.DisplayRect := Rect(0,0,screen.Width,screen.Height);
а в DSVideoWindowEx21.StartFullScreen; как ???


 
WondeRu ©   (2004-10-22 18:09) [1]

Берешь буфер картинки и сам рисуешь с помощью StretchDIBits


 
programania ©   (2004-10-22 23:48) [2]

Я просто увеличиваю размер VideoWindow1
например больше экрана:
left:=-160; width:=screen.width+320;
top:=-120; height:=screen.height+240;
и вызываю VideoWindow1.update;
и даже fullScreen не использую т.к.
в нем свои проблемы.
А как сделать захвать кадров
используя DSVideoWindowEx2?
У меня SampleGrabber с ним не работает.


 
zero-g ©   (2004-10-23 05:17) [3]

to programania

>А как сделать захвать кадров
>используя DSVideoWindowEx2?
>У меня SampleGrabber с ним не работает.

Если честно, не знаю... в example используется VideoWindow
Вот сам пример:
http://gnomestudio.amillo.net/temp/sgrab.zip


 
zero-g ©   (2004-10-23 05:20) [4]

либо вот:

procedure TForm1.OpenPlayClick(Sender: TObject);
begin
 if OpenDialog.Execute then
 begin
   FilterGraph.Active := False;
   FilterGraph.Active := true;
   FilterGraph.RenderFile(OpenDialog.FileName);
   FilterGraph.Play;
 end;
end;

procedure TForm1.SnapshotClick(Sender: TObject);
begin
 SampleGrabber.GetBitmap(Image.Picture.Bitmap)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 CallBack.Checked := false;
 FilterGraph.ClearGraph;
 FilterGraph.Active := false;
end;

procedure TForm1.SampleGrabberBuffer(sender: TObject; SampleTime: Double;
 pBuffer: Pointer; BufferLen: Integer);
begin
 if CallBack.Checked then
 begin
   Image.Canvas.Lock; // to avoid flickering
   try
     SampleGrabber.GetBitmap(Image.Picture.Bitmap, pBuffer, BufferLen)
   finally
     Image.Canvas.Unlock;
   end;
 end;
end;


 
zero-g ©   (2004-10-23 18:43) [5]

Спасибо всем, я разобрался в чем у меня была ошибка.

было так:

form4.DSVideoWindowEx21.StartFullScreen;
form4.dsvideowindowex21.Align := alClient;
form4.dsvideowindowex21.AutoHideCursor := 3000;

а надо было так:

form4.dsvideowindowex21.Align := alClient;
form4.dsvideowindowex21.AutoHideCursor := 3000;
form4.DSVideoWindowEx21.StartFullScreen;



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.063 c
3-1104402698
макарон
2004-12-30 13:31
2005.02.06
odac net Delphi 6 или 7


1-1106575483
chup
2005-01-24 17:04
2005.02.06
Работа с метками в в файлах *.doc


14-1105955324
TUser
2005-01-17 12:48
2005.02.06
Правила поиска


14-1105870540
REA
2005-01-16 13:15
2005.02.06
Игра "Монолит"


14-1105817967
DRK
2005-01-15 22:39
2005.02.06
Кто на чем программирует(или что нужно освоить студенту для ...)