Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Пароль Ini-файла https://www.cyberforum.ru/ delphi/ thread1291387.html
Компонент Chart
Delphi Работа с кошельками
Привет! Можно ли написать приложение на делфи, для получения инфы по своим кошелькам на Яндекс.Деньги, WebMoney, Qiwi и т.д.? Как то через API наверно, но хотелось бы подробностей каких то или...
Delphi Как добавить тень к TImage, когда BorderStyle:=clNone; Привет, дело вот в чём: Нужно приложить к TImage тень, когда BorderStyle:=clNone;. Есть вариант: protected procedure CreateParams(var Params: TCreateParams); override; procedure... https://www.cyberforum.ru/ delphi/ thread1290260.html Delphi Delphi и javascript В общем, мне надо получить значение bgresponse Вот сама js функция (function(){ var signinInput = document.getElementById('signIn'); gaia_onLoginSubmit = function() { try { ... https://www.cyberforum.ru/ delphi/ thread1288718.html
Сжатие папки стандартным TZipFile Delphi
Здравствуйте. Возник такой вопрос. Как известно со времён ХЕ2 появилась поддержка ZIP архивов System.Zip. Но при архивации каталога методом ZipDirectoryContents в архивы не включаются пустые папки....
Delphi Не устанавливает RxLib 275 для delphi 7 https://www.cyberforum.ru/ delphi/ thread1288339.html
При попытке скомпилировать пакеты выдает одну и ту же ошибку Write error on MaxMin.dcu
Delphi Разработка программы для решения задач по использованию объектно-ориентированного языка программирования Народ очень нужна ваша помощь,я пишу курсовую по теме ''Розробка програми для розвязування задач з використання обьектно-ориентованои мови програмування''но нигде в интернете немогу найти неодного... https://www.cyberforum.ru/ delphi/ thread1287118.html Delphi Плохо работающая программа Delphi 7
Я очень начинающий программист :) Подскажите что я сделал не так. Вот архив с программой . В ней машинки на фоне дожны двигаться в разных направлениях,без задевания формы( у меня она растягивается)!
Delphi Дерево каталога диска C Форумчане, спасайте, меня поставили с угол, не знаю что делать. Учитель по Информатике дал задание на delphi Вывести дерево каталога диска C, но дал ограничения, нельзя использовать Shell Tools(или... https://www.cyberforum.ru/ delphi/ thread1286976.html Delphi Нужен пример кода для курсовой "Модель производственной фирмы" нужен пример кода для курсовой "Модель производственной фирмы" есть таблицы и код бэйсика , если есть для делфи поделитесь https://www.cyberforum.ru/ delphi/ thread1286932.html
Использование разных массивов в одной процедуре Delphi
Всем привет, столкнулся с такой задачей: Есть процедура Redraw_XY(ArrayX,ArrayY); Где по замыслу ArrayX,ArrayY - это имена массивов, которые могут быть заданы пользователем. Вопрос в том,...
Delphi Как обойтись без условных переходов? И снова здравствуйте. Еще интересует чем можно заменить условные переходы (if..else). Опять же, if..else в дебагере отображаются как джампы если я не ошибаюсь , и обойти их проще некуда. Интересует... https://www.cyberforum.ru/ delphi/ thread1286534.html
Пишу на Delphi...иногда
1419 / 1276 / 286
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
04.11.2014, 20:35 0

Как сделать скриншот нужных мне координат в webbrowser? - Delphi - Ответ 6807640

04.11.2014, 20:35. Показов 1935. Ответов 8
Метки (Все метки)

Лучший ответ Сообщение было отмечено Maxsis как решение

Решение

Maxsis, мне вроде понятно было изначально, а тебе, похоже, совсем не ясно, о чем я говорил - беда копипасты

Осуществил эксперимент - поигрался с параметрами метода Draw интерфейса IViewObject - то, о чем я писал, задает размер В который копировать, а НЕ который копировать (вся область браузера будет вписана в указанный прямоугольник - об этом, в принципе, и сообщали тов. из Редмонда)
если просто вырезать из полученной картинки, то на основе приведенной процедуры:
пример процедуры
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
procedure BrowserClipPicture (Browser: TWebBrowser {объект браузера}; 
                              const Path: string {путь, куда сохранять картинку}; 
                              const RectPic: TRect {прямоугольник, который необходимо скопировать});
var
  BmpPic, tmpPic: TBitmap;
  ViewObject: IViewObject;
  SRect: TRect;
  JpegPic: TJPEGImage;
begin
  OleInitialize(nil);
 
  if Assigned(Browser.Document) then
    if Succeeded(Browser.Document.QueryInterface(IViewObject, ViewObject)) then
    begin
      BmpPic := TBitmap.Create;
      tmpPic := TBitmap.Create;
      JpegPic := TJPEGImage.Create;
 
      BmpPic.Width := Browser.Width;
      BmpPic.Height := Browser.Height;
      SRect := Rect(0, 0, BmpPic.Width, BmpPic.Height);
 
      if Succeeded(ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Browser.Handle,
                                   BmpPic.Canvas.Handle, @SRect, nil, nil, 0)) then
      begin
        tmpPic.Width := RectPic.Right - RectPic.Left;
        tmpPic.Height := RectPic.Bottom - RectPic.Top;
        tmpPic.Canvas.CopyRect(tmpPic.Canvas.ClipRect, BmpPic.Canvas, RectPic);
 
        JpegPic.Assign(tmpPic);
        JpegPic.SaveToFile(Path);
      end;
 
      JpegPic.free;
      BmpPic.Free;
      tmpPic.Free;
    end;
 
  ViewObject := nil;
  OleUninitialize;
end;


в итоге такая картина
Как сделать скриншот нужных мне координат в webbrowser?


Вернуться к обсуждению:
Как сделать скриншот нужных мне координат в webbrowser? Delphi
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2014, 20:35
Готовые ответы и решения:

Как сделать, чтобы по нажатию на определенную ячейку StrinGrid появлялась одна из нужных мне картинок?
как сделать,чтобы по нажатию на определенную ячейку stringrid появлялась одна из нужных мне...

Как мне нажать на одну из ссылок через Webbrowser в VB?
У меня есть вот такая ХТМЛ страница: <FORM style='DISPLAY: inline' name=next0 action=count1.cgi...

Как мне подключится к Proxy и дальше работать в WebBrowser?
Программисты подскажите как мне подключится как Proxy и дальше работать в WebBrowser. Вот например...

Реклама в браузерах, установка не нужных мне программ
всплывающие окна,новые вкладки с рекламой, амиго, яндекс и тд и тп

8
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2014, 20:35

Как сделать выбор только нужных файлов?
Проблема в том что в селекте файлов по дефолту выводятся все файлы которые есть в модели File чего...

MembershipUserCollection, как сделать выборку нужных полей?
Подскажите пожалуйста, как из MembershipUserCollection сделать выборку нужных полей для заливки...

Как сделать ввод нужных символов с клавиатуры
Это будет один из моих первых кодов, и дабы не напороться на острое мнение крутых челов в...

Как сделать скриншот видео?
Здравствуйте, как сделать скриншот видео с помощью php, чтобы было так же как сжатие картинки...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.