Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.16;
Скачать: CL | DM;

Вниз

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

 
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 не получится. Вопрос: как исправить?


 
JanMihail ©   (2007-07-08 17:42) [3]

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

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;



Страницы: 1 вся ветка

Текущий архив: 2007.09.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
2-1187927020
Gydvin
2007-08-24 07:43
2007.09.16
Чтение wmf


2-1187754215
Vitaliy_____
2007-08-22 07:43
2007.09.16
Доступ к свойству компонента


2-1187888436
Альберт_
2007-08-23 21:00
2007.09.16
обновить скрытый iframe чужого WB


15-1187478283
Smacker
2007-08-19 03:04
2007.09.16
Ищу библиотеку для просмота видео в smk-формате на Дельфи


2-1187619177
em240
2007-08-20 18:12
2007.09.16
координаты позиции курсора на форме