Содержимое WebBrowser в файл
Добавлено: 18 янв 2009, 16:47
Привет всем! Хочу сделать прогу которая будет копировать содержимое странички в bmp или jpg файл... Пока только получилось сфотографировать экран в области отображения компонента WebBrowser, а вот как на прямую с компонента сдернуть все?
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
begin
bmp:=TBitmap.Create;
bmp.Height:=webbrowser1.Height;
bmp.Width:=WebBrowser1.Width;
DC:=GetDC(0); //Дескриптор экрана
bitblt(bmp.Canvas.Handle, 0, 0, Form1.left+WebBrowser1.Width, Form1.top+webbrowser1.Height,
DC, Form1.Left, form1.Top, SRCCOPY);
bmp.SaveToFile('C:\Screen.bmp');
ReleaseDC(0, DC);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
begin
bmp:=TBitmap.Create;
bmp.Height:=webbrowser1.Height;
bmp.Width:=WebBrowser1.Width;
DC:=GetDC(0); //Дескриптор экрана
bitblt(bmp.Canvas.Handle, 0, 0, Form1.left+WebBrowser1.Width, Form1.top+webbrowser1.Height,
DC, Form1.Left, form1.Top, SRCCOPY);
bmp.SaveToFile('C:\Screen.bmp');
ReleaseDC(0, DC);
end;