Главная страница
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.068 c
14-1105947608
Holy
2005-01-17 10:40
2005.02.06
Охлаждение винчестера


4-1101921383
TankMan
2004-12-01 20:16
2005.02.06
Хорошо...Скажите пожалуйста, как (возможно ли) "опознать" чипсет


14-1106233064
User_32
2005-01-20 17:57
2005.02.06
PHP


11-1089191567
Vladimyr
2004-07-07 13:12
2005.02.06
Эти странные батоны...


14-1106020502
Чеширский_Кот
2005-01-18 06:55
2005.02.06
"Губит людей не пиво...