Copier le contenu d'un WebBrowser vers un Bitmap

var
ShellDocObjectView: HWND;
InternetExplorerServer: HWND;
WebCanvas: TCanvas;
begin
ShellDocObjectView := FindWindowEx(WebBrowser1.Handle,
0,
'Shell DocObject View',
nil);
InternetExplorerServer := FindWindowEx(ShellDocObjectView,
0,
'Internet Explorer_Server',
nil);


WebCanvas := TCanvas.Create;
WebCanvas.Handle := GetDC(InternetExplorerServer);


InvalidateRect(InternetExplorerServer, nil, True);


WebCanvas.Lock;
Image1.Canvas.Lock;
try
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),
WebCanvas,
Rect(0, 0, WebBrowser1.Width,
WebBrowser1.Height));
finally
Image1.Canvas.Unlock;
WebCanvas.Unlock;
ReleaseDC(InternetExplorerServer, WebCanvas.Handle);
WebCanvas.Handle := 0;
WebCanvas.Free;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour20/11/2005
VisualisationVu 1779 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Internet
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur