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 poza tym robiąc co kilka setnych sekundy obraz będzie się zawieszał bo to Bitmapa... lepszym rozwiązaniem bybyło nakręcenie filmu bezpośrednio z przeglądarki.
Proszę o pomoc...