delphi 從 TWebbrowse組件中獲取圖片

在 delphi 中使用 TWebbrowse 組件，雖然效率不如用(idhttp之類)模擬操做效率高。但其難度低，上手快，簡單粗暴有效。ide

從網上搜到的處理此問題的文章大可能是 ctrl + c 複製到剪貼板的方法，但在 win7 64中，此法幾乎無法使用，隨時報剪貼板錯誤。url

本方法利用 IHTMLElementRender 接口，完美地解決了問題。同時，也能夠加深對接口的進一步理解。spa

unit Unit1; interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw, MSHtml; type
  // 此定義是從 XE8 的 MSHTML 單元中抄的
  IHTMLElementRender = interface(IUnknown) ['{3050F669-98B5-11CF-BB82-00AA00BDCE0B}'] function DrawToDC(hdc: hdc): HResult; stdcall; function SetDocumentPrinter(const bstrPrinterName: WideString; hdc: hdc): HResult; stdcall; end; TForm1 = class(TForm) WebBrowser1: TWebBrowser; Image1: TImage; Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure Button1Click(Sender: TObject); private FFirstShow: Boolean; FCodeBmp: TBitmap; end; var Form1: TForm1; implementation
const csUrl = 'https://account.guokr.com/sign_in/?'; {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin FFirstShow := true; FCodeBmp := TBitmap.Create; FCodeBmp.Height := 40; FCodeBmp.Width := 100; FCodeBmp.PixelFormat := pf24bit; end; procedure TForm1.FormShow(Sender: TObject); begin
 // 作一個 FirstOnShow 功能。
 // OnCreate 事件中使用 WebBrowser1.Navigate 的話，會出錯的。
  if FFirstShow then
  begin WebBrowser1.Navigate(csUrl); FFirstShow := false; end; end; procedure TForm1.Button1Click(Sender: TObject); var Doc: IHTMLDocument2; Render: IHTMLElementRender; begin Doc := WebBrowser1.Document as IHTMLDocument2; Render := Doc.All.Item('captchaImage', EmptyParam) as IHTMLElementRender; Render.DrawToDC(Self.Canvas.Handle); Render.DrawToDC(FCodeBmp.Canvas.Handle); Image1.Picture.Assign(FCodeBmp); end; end.