Сохранить как картинку

← →
hgd (2007-07-08 13:49) [0]

Подскажите, есть компонент и простой код к нему
WebBrowser1.Navigate("www.yandex.ru");

Необходимо сохранить изображение WebBrowser в картинку (1.bmp) после загрузки страницы. Как?

← →
hgd (2007-07-08 14:05) [1]

сам нашел!

function CaptureScreenRect( ARect: TRect ) : TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
with Result, ARect do
begin
Width := Right - Left;
Height := Bottom - Top;

ScreenDC := GetDC( 0 );
try
BitBlt( Canvas.Handle, 0, 0, Width,
Height, ScreenDC,
Left, Top, SRCCOPY );
finally
ReleaseDC( 0, ScreenDC );
end;
end;
end;

function CaptureClientImage( Control: TControl ) : TBitmap;
begin
with Control, Control.ClientOrigin do
Result := CaptureScreenRect( Bounds( X, Y, ClientWidth, ClientHeight ));
end;

← →
hgd (2007-07-08 16:59) [2]

А нет .... этот код работает как снимок экрана и соответственно если компонент спрятан, то и bmp не получится. Вопрос: как исправить?

Пробуй, должно получиться:

function PrintWindow(hwnd: HWND; hdcBlt: HDC; nFlags: UINT): BOOL; stdcall; implementation {$R *.dfm} function PrintWindow; external user32 name "PrintWindow"; ............ procedure TForm1.Button1Click(Sender: TObject); begin PrintWindow(WebBrowser1.Handle, Canvas.Handle, 0); end;

Сохранить как картинку Найти похожие ветки