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

Вниз

Работа с видео   Найти похожие ветки 

 
Plot_hk   (2007-08-09 11:48) [0]

Проблема такая ->
На форме находится компонент TImage в него с
определенным интервалом копируется скрин
рабочего стола(в общем картинка меняется).
Скажите возможно ли это сохранить в
какой-нибудь видео формат(например AVI)
Если да то как это сделать?


 
ZMRaven ©   (2007-08-09 13:02) [1]

TAviWriter2


 
Plot_hk   (2007-08-10 07:21) [2]

А где такой растет.
Поискал в Gooogle нету.
Киньте пожалуйста ссылку очень надо и если есть
какой-нибудь manual по этой теме.
Зарание спасибо.


 
medved_68 ©   (2007-08-10 09:24) [3]


> Скажите возможно ли это сохранить в
> какой-нибудь видео формат(например AVI)

Это обязательное условие??? Я сохранял картинку в формате JPEG в потоке с интервалом 3 сек. + свой просмоторщик, который с тем же интервалом подгружал картинки в Image из потока. :)))


 
Plot_hk   (2007-08-10 12:31) [4]

Нельзя ли привести часть кода
извлечения из потока картинки.


 
ZMRaven ©   (2007-08-10 12:44) [5]

2Plot_hk  

ёп...если вам нужна картинка из потока то это SampleGrabber и DirectShow(DSPACK).

советую скачать DSPack и смотреть пример с SAmpleGrabber-ом :)

TAviWriter2 могу выложить но ссылка будет жива только 24 часа...

http://disk.tom.ru/1qzk7kb


 
ZMRaven ©   (2007-08-10 12:47) [6]

вообще можно и просмотр и запсиь сделать на DirectShow(DSPack)

в примерах дспака такого достаточно.


 
medved_68 ©   (2007-08-10 15:50) [7]


> Нельзя ли привести часть кода
> извлечения из потока картинки.

Plot_hk ну почему же нельзя???
var
 i:Integer;Potok:TFileStream;Potok1:TMemoryStream;
begin
 Potok:=TFileStream.Create("f:\MyBase.mmt",fmOpenRead or fmShareDenyNone);
 Potok1:=TMemoryStream.Create;
 Potok.ReadBuffer(i,4);//Read size picture
 Potok1.CopyFrom(Potok,i);//Read picture in memory
 Potok1.Position:=0;
 Image1.Picture.Bitmap.LoadFromStream(Potok1);//Load picture in IMAGE1
 Potok1.Clear;
 .......
 .......
 Potok.Free;
 Potok1.Free;

end;


 
ZMRaven ©   (2007-08-15 12:19) [8]

а созадние потока(ов) не будет ли занимать очень много времени?.
не проще ли сделать всё нормально на DirectShow, ну или DSPack.
На дспаке вообще трудиться не надо :)
берёшь исходник один ...чуть убираешь лишнее и воля - то что надо :)


 
medved_68 ©   (2007-08-16 08:26) [9]


> а созадние потока(ов) не будет ли занимать очень много времени?
> .
> не проще ли сделать всё нормально на DirectShow, ну или
> DSPack.

ZMRaven ты код DSPack смотрел (исходники)??? Прежде чем задать сей вопрос??? :)))



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

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

Наверх




Память: 0.48 MB
Время: 0.018 c
2-1220347492
DerMeister
2008-09-02 13:24
2008.10.12
SQL query


2-1220523692
Layner
2008-09-04 14:21
2008.10.12
TDBChart - показ множества TLineSeries


2-1220447536
tropik
2008-09-03 17:12
2008.10.12
Как заинсталить компонент в Delphi 2 ?


6-1193739381
Rav
2007-10-30 13:16
2008.10.12
Как правильно остановить IdTcpServer


15-1219061510
Джо_
2008-08-18 16:11
2008.10.12
Подскажите сайт