Ĺadny brzuch
Jak kręcić film o wystarczającej jakości żeby móc przeczytać text do tego plik musi mało zajmować (kompresja). Może być to komponent lub kod. Potrzebuję żeby obraz z Internet Explorer (chodzi tylko o pole przeglądania strony) był przechwytywany i z niego robiony film. Można by było wykorzystać kod jednego z programów do robienia print screen'a okna przeglądania strony. Jego kod:
var h, h1:integer; c:tcanvas; b:tbitmap; r:trect; wp:windowplacement; begin c:=tcanvas.Create; b:=tbitmap.Create; h:=FindWindow('IEFrame',nil); h1:=h; GetWindowPlacement(h1,@wp); SetWindowPos(h,HWND_TOPMOST,wp.rcNormalPosition.Left,wp.rcNormalPosition.Top, wp.rcNormalPosition.Right-wp.rcNormalPosition.Left,wp.rcNormalPosition.Bottom-wp.rcNormalPosition. Top,0); h:=FindWindowEx(h,0,'Shell DocObject View',nil); h:=FindWindowEx(h,0,'Internet Explorer_Server',nil); c.Handle:=GetDC(h); GetWindowRect(h,r); b.Width:=r.Right-r.Left; b.Height:=r.Bottom-r.Top; Sleep(500); b.Canvas.CopyRect(c.ClipRect,c,c.ClipRect); b.SaveToFile('PrintScreen.bmp'); b.Free; c.Free; SetWindowPos(h1,HWND_NOTOPMOST,wp.rcNormalPosition.Left,wp.rcNormalPosition.Top, wp.rcNormalPosition.Right,wp.rcNormalPosition.Bottom,0); SetWindowPlacement(h1,@wp); SetActiveWindow(handle); end;
Nie wiem jak skleić przechwycone obrazki żeby powstał film pozatym robiąc co kilka setnych sekundy obraz będzie się zawieszał bo to Bitmapa...
Z góry dzięki...
Proponuję zapisać jako jpg, pod nazwą oznaczającą czas, albo kolejność. Potem napisać program do odtwarzania tego, w kolejności sugerowanej perzez nazwy :-)
hmmm... Ciekawy pomysł mógłbyś pomuc w zapisie plików jako jpg o dużej jakości oraz prędkości zapisu powiedźmy co 1 sekunde lub 0,6-07sekundy będzie rejestrowany obraz jednak żeby się przeglądarka nie wiesiła a program robił to w tle ponieważ ma nagrywać to co chce a ja np. będe surfował po internecie i to ma mi nagrywać. Potem najlepiej bybyło wszystkie pliki jpg skleić w avi :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var h, h1:integer; c:tcanvas; b:tbitmap; r:trect; wp:windowplacement; begin c:=tcanvas.Create; b:=tbitmap.Create; h:=FindWindow('IEFrame',nil); h1:=h; GetWindowPlacement(h1,@wp); SetWindowPos(h,HWND_TOPMOST,wp.rcNormalPosition.Left,wp.rcNormalPosition.Top, wp.rcNormalPosition.Right-wp.rcNormalPosition.Left,wp.rcNormalPosition.Bottom-wp.rcNormalPosition. Top,0); h:=FindWindowEx(h,0,'Shell DocObject View',nil); h:=FindWindowEx(h,0,'Internet Explorer_Server',nil); c.Handle:=GetDC(h); GetWindowRect(h,r); b.Width:=r.Right-r.Left; b.Height:=r.Bottom-r.Top; Sleep(500); b.Canvas.CopyRect(c.ClipRect,c,c.ClipRect); b.SaveToFile('PrintScreen.bmp'); b.Free; c.Free; SetWindowPos(h1,HWND_NOTOPMOST,wp.rcNormalPosition.Left,wp.rcNormalPosition.Top, wp.rcNormalPosition.Right,wp.rcNormalPosition.Bottom,0); SetWindowPlacement(h1,@wp); SetActiveWindow(handle); end;
Nie wiem jak skleić przechwycone obrazki żeby powstał film pozatym robiąc co kilka setnych sekundy obraz będzie się zawieszał bo to Bitmapa...
Z góry dzięki...
Proponuję zapisać jako jpg, pod nazwą oznaczającą czas, albo kolejność. Potem napisać program do odtwarzania tego, w kolejności sugerowanej perzez nazwy :-)
hmmm... Ciekawy pomysł mógłbyś pomuc w zapisie plików jako jpg o dużej jakości oraz prędkości zapisu powiedźmy co 1 sekunde lub 0,6-07sekundy będzie rejestrowany obraz jednak żeby się przeglądarka nie wiesiła a program robił to w tle ponieważ ma nagrywać to co chce a ja np. będe surfował po internecie i to ma mi nagrywać. Potem najlepiej bybyło wszystkie pliki jpg skleić w avi :)