Save webpage as picture--scroll to intercept IE (WEBBROWSE)

Transferred from: http://www.cnblogs.com/IceAir/archive/2011/04/11/2012744.html

IE programming has always felt that it is quite scary things, the interface, functions, events, interpretation of the chaos, the need to understand the knowledge of all aspects of the bo, let me seem to see Microsoft is the creator, because it has successfully created such chaos, the initial state of the universe ...

Recently to do a project, to intercept Web pages, try to get MHT, the beginning is successful, but do not know what software installed, it can no longer be saved into MHT, checked a pile of information, fixed a round, but also partial preservation of success, so unstable certainly can not be applied, give up! Have to praise is, net text fast capture of the plug-in is really fine, the success rate is high, I do not know how much work at the back of the author, unfortunately the author did not provide as an interface. So decided to cut the page as a picture, and also get the text saved for querying the way, after a few days of countless search data to try, in the end, before the collapse of the Jade Emperor Pity me, finally let me succeed, has been from all over the Internet to benefit a lot of articles, quickly posted out to do not know how many poor people like me.

First, the name of the file used for the fame, the function names used to get the IE Webbrowse instance, and the function name to get the window image:

[Delphi]View PlainCopy  print?

1. Uses Comobj,shdocvw,mshtml,olectrls,jpeg,activex;
3. Tobjectfromlresult = function (lresult:lresult; Const IID:TIID; Wparam:wparam; Out pobject): HRESULT;  stdcall;
5. Get the window image, very useful ah, even if the window is blocked, hidden can be obtained
6. function Printwindow (Sourcewindow:hwnd; DESTINATION:HDC; Nflags: Cardinal): bool; stdcall;  External ' user32.dll ' name ' Printwindow ';

Get the IE instance and core code:

[Delphi]View PlainCopyprint?

2. Get IE instance, Whandle is the handle of IE, this piece of code is copied online, thanks to the author!
4. Whandle can be obtained through Windowfrompoint (GetCursorPos (PT)), access to a lot of online search.
6. function Getiefromhwnd (Whandle:hwnd;  var ie:iwebbrowser2): HRESULT;
8. Var
10. Hinst:hwnd;
12. lres:cardinal;
14. Msg:integer;
16. Pdoc:ihtmldocument2;
18. Objectfromlresult:tobjectfromlresult;
20. Begin
22. HInst: = LoadLibrary (' Oleacc.dll ');
24. @ObjectFromLresult: = GetProcAddress (HInst, ' Objectfromlresult ');
26. if @ObjectFromLresult <> nil Then
28. begin
30. Try
32. MSG: = RegisterWindowMessage (' wm_html_getobject ');
34. SendMessageTimeout (WHANDLE, MSG, 0, 0, Smto_abortifhung, lres);
36. Result: = Objectfromlresult (Lres, IHTMLDocument2, 0, PDOC);
38. if Result = S_OK Then
40. (PDoc. ParentWindow as IServiceProvider). QueryService (IWebBrowserApp,
42. IWebbrowser2, IE);
44. finally
46. FreeLibrary (HInst);
48. PDoc: = nil;
50. end;
52. end;
54. End
60. {Specify IE window handle, scroll to get entire page picture
62. This function after the completion of the original IE scroll bar to restore the position, it sounds very simple, find information is to find silly cloud! If the webpage has D3D this kind of thing, the online said getattribute (' scrolltop ', 0) What can not use, make very hard.
64. }
66. Procedure Savewebpic (Hiehandle:integer; webjpg:tjpegimage);
68. Var
70. Rect:trect;
72. Webbmp:tbitmap;
74. I, J, WebTop, Webleft, TLeft, ttop: integer;
76. HT, VT: array of integers;
78. Ie:iwebbrowser2;
80. Idoc:ihtmldocument2;
82. Velement:ihtmlelement2;
84. procedure Captureweb (destbmp:tbitmap; destleft, desttop, Width, height:integer);
86. var
88. Tembmp:tbitmap;
90. begin
92. Tembmp: = Tbitmap.  Create ();
94. Tembmp.  Height: = height+2;
96. Tembmp.  Width: = width+2;
98. Printwindow (Hiehandle, Tembmp. Canvas.  Handle, 0);
100. BitBlt (Destbmp. Canvas. Handle, Destleft, Desttop, Destleft+width, Desttop+height, Tembmp. Canvas.  Handle, 2, 2, srccopy);
102. Tembmp.  Free;
104. end;
106. Begin
108. If not Assigned (webjpg) Then
110. Exit;
112. if Getiefromhwnd (hiehandle, IE) <> S_OK Then
114. Exit;
116. IDoc: = IE.  Document as IHTMLDocument2;
118. Webbmp: = Tbitmap.  Create ();
120. Webbmp.  PixelFormat: = Pf24bit;
122. Try
124. //temcanvas.handle: = GetDC (Hiehandle);
126. IDoc. BodySetAttribute (' scroll ', ' yes ', 0);
128. //Save original scroll bar position
130. Velement: = (iDoc as IHTMLDocument3). documentelement as IHTMLElement2;
132. If not Assigned (velement) Then
134. Velement: = IDoc.  Body as IHTMLElement2;
136. Ttop: = Velement. scrolltop;
138. TLeft: = Velement. scrollleft;
140. //Get the size of the page
142. Webbmp. Height: = Velement. scrollheight;   IDoc.Body.getAttribute (' ScrollHeight ', 0);
144. Webbmp. Width: = Velement. scrollwidth;   IDoc.Body.getAttribute (' ScrollWidth ', 0);
146. //Get the window size of the display page
148. Windows. GetClientRect (Hiehandle, rect);
150. Rect. Bottom: = rect. Bottom-getsystemmetrics (Sm_cxhscroll)-GetSystemMetrics (Sm_cxdlgframe);
152. Rect. Right: = rect. Right-getsystemmetrics (Sm_cxvscroll)-GetSystemMetrics (Sm_cxdlgframe);
154. Rect.  Right: = Velement. clientwidth;
156. Rect.  Bottom: = Velement. clientheight;
158. //Calculate the height and width of the interception at each vertical and transverse
160. //Page interception method is to go to 0 rounding, such as the height of the window is H, and the height of the Web page is WH, can first
162. //Intercept the wh-h part, leaving the loop by H intercept
164. SetLength (VT, Webbmp. Height Div rect.  Bottom + 1);
166. SetLength (HT, Webbmp. Width Div rect.  Right + 1);
168. vt[0]: = Webbmp. Height-(Webbmp. Height Div rect. Bottom) * Rect.  Bottom;
170. ht[0]: = Webbmp. Width-(Webbmp. Width Div rect. right) * Rect.  right;
172. For i:=1 to Length (VT)-1 do
174. Vt[i]: = Rect.  Bottom;
176. For i:=1 to Length (HT)-1 does
178. Ht[i]: = Rect.  right;
182. Webleft: = 0;
184. For i:=0 to Length (HT)-1 does begin
186. WebTop: = 0;
188. IDoc. Get_parentwindow.  Scroll (Webleft, WebTop);
190. For j:=0 to Length (VT)-1 do begin
192. Captureweb (Webbmp, Webleft, WebTop, Ht[i], vt[j]);
194. Webtop: = Webtop + vt[j];
196. IDoc. Get_parentwindow.  Scroll (Webleft, WebTop);
198. end;
200. Webleft: = Webleft + ht[i];
202. end;
204. Webjpg.  Assign (webbmp);
206. Webjpg.  SaveToFile (' z:\demo.jpg ');
208. finally
210. Webbmp.  Free;
212. SetLength (VT, 0);
214. SetLength (HT, 0);
216. IDoc. Get_parentwindow.  Scroll (TLeft, ttop);
218. end;
220. End

http://blog.csdn.net/tht2009/article/details/39736839

Save webpage as picture--scroll to intercept IE (WEBBROWSE)