![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#16
|
|||
|
|||
|
Цитата:
Код:
procedure TfrmMain.WebBrowserScreenShot(const wb: TWebBrowser; const fileName: TFileName);
var
viewObject : IViewObject;
r : TRect;
bitmap : TBitmap;
ji: TJPEGImage;
begin
if wb.Document <> nil then
begin
wb.Document.QueryInterface(IViewObject, viewObject) ;
if Assigned(viewObject) then
try
bitmap := TBitmap.Create;
try
r := Rect(0, 0, wb.Width, wb.Height) ; //left, top, right, bottom
bitmap.Height := wb.Height;
bitmap.Width := wb.Width;
viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0) ;
ji := TJPEGImage.Create;
with ji do
try
Assign(bitmap) ;
SaveToFile(fileName) ;
finally
Free;
end;
finally
bitmap.Free;
//ji.Free; // При включённой выкидывает ошибку
end;
finally
viewObject._Release;
end;
end;
end;Последний раз редактировалось MrDiG, 21.10.2010 в 09:54. |
|
#17
|
|||
|
|||
|
Ты хочешь сказать, делает скриншот свернутого броузера? Если да, то это круто конечно, у меня получилось делать скриншот только неактивного окна. Сейчас я немного ушел от ботописания, работаю над другими проектами, но уже хочется собрать нормальный движок бота, что бы мог работать на скриптах с любой флеш игрой.
Цитата:
Кстати, с кликами ты на чем остановился, нормально отправляет и каждый клик отрабатывает броузер или нет? |
|
#18
|
|||
|
|||
|
Цитата:
И мне нужен скриншот всего окна. Со скриншота нарезаются кусочки для поиска в них нужной инфы. С кликами вроде всё нормально. Технологию я описал - главное узнать куда отправлять клик, и добраться до хэндла. А движок бота - это конечно круто. Только популярных в рунете браузерок - шесть десятков. Так что многим нужно, да и спрос будет. ![]() |