Главная страница
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.024 c
1-1106655181
Antonn
2005-01-25 15:13
2005.02.06
Опять, всем надоевший, StringGrid...


1-1106501507
Knoxville
2005-01-23 20:31
2005.02.06
Многоязычная программа


14-1105860340
Девушка
2005-01-16 10:25
2005.02.06
Вычисление ip-ка, браузера...


6-1100972208
webmaster
2004-11-20 20:36
2005.02.06
Отпрака мыла через proxy сервер


1-1106075877
Eraser
2005-01-18 22:17
2005.02.06
Добавление рисунков в TRxRichEdit