Capturar tela no TWebBrowser.

Question

Estou desenvolvendo um aplicativo para capturar as imagens de uma c�mera IP. Utilizei o componente TWebBrowser para fazer a comunica��o, visto que a imagem � disponibilizada atrav�s de um applet java....

Deus · Answer

Eu criei este procedimento aqui, que salva o conte�do do webbrowser em um arquivo bmp que voc� definir.

  procedure imgSalvaImagem(sArq: String);
  var
         ViewObject: IViewObject;
     sourceDrawRect: TRect;
          imgImagem: TImage;
  begin
    if webBrowser1.Document <> nil then
    try
      imgImagem := TImage.Create(Self);
      imgImagem.Width := WebBrowser1.Width;
      imgImagem.Height := WebBrowser1.Height;

      webBrowser1.Document.QueryInterface(IViewObject, ViewObject);
      if ViewObject <> nil then
      try
        sourceDrawRect := Rect(0, 0, imgImagem.Width, imgImagem.Height);
        ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,
        imgImagem.Canvas.Handle, @sourceDrawRect, nil, nil, 0);
      finally
        ViewObject._Release;
      end;
      imgImagem.Picture.Bitmap.SaveToFile(sArq);
    except
    end;
  end;

Agora, para utiliz�-lo, � s� fazer a chamada da seguinte forma:

imgSalvaImagem(�C:\teste.bmp�);

E o conte�do do webBrowser1 ser� salvo dentro do arquivo [i:a8c84299c4]C:\teste.bmp[/i:a8c84299c4]. Espero que isso tenha resolvido o seu problema! :) Ah, voc� deve adicionar [i:a8c84299c4]ActiveX[/i:a8c84299c4] e [i:a8c84299c4]ExtCtrls[/i:a8c84299c4] � cl�usula [i:a8c84299c4]Uses[/i:a8c84299c4] para a fun��o funcionar. :)

Abra�os, dEUS.