VPF::Webbrowser и цвет пикселя - Форум программистов

DjSaSh

Дата 26.1.2005, 14:11 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравствуйте!!!

Тут такая интересная вещь нужна!!!!
Я загружаю в WebBrowser страничку, но мне нужно получить цвет в определенной точки в этом компоненте...

Подскажите плиз как это получить!!!

Alex

Дата 26.1.2005, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

Код


function GetColorInPixel(h: HWND; X, Y: Integer): TColor;
var
  r: TRect;
begin
  GetWindowRect(h, r);
  with TBitmap.Create do try
    Width := r.Right - r.Left;
    Height := r.Bottom - r.Top;
    BitBlt(Canvas.Handle, 1, 1, r.Right - r.Left, r.Bottom - r.Top, GetDC(h), 1, 1, SRCCopy);
    Result:= Canvas.Pixels[X, Y];
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ColorToString(GetColorInPixel(WebBrowser1.Handle, 10, 10)));
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

p0s0l

Дата 26.1.2005, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112

Alex, почему-то всегда забывают делать ReleaseDC smile

Кстати, можно без создания битмапа обойтись smile

Код

function GetColorInPixel(h: HWND; X, Y: Integer): TColor;
var dc : HDC;
begin
  dc := GetDCEx (h, 0, DCX_CACHE);
  Result := GetPixel (dc, x, y);
  ReleaseDC (h, dc);
end;

--------------------

С уважением, г-н Посол.

Alex

Дата 26.1.2005, 17:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »