Как исправить ошибку доступа при захвате экрана окна Microsoft Edge: пошаговое руководство

Delphi , Графика и Игры , Canvas

При работе с графическим интерфейсом и попытках захватить изображение окна браузера Microsoft Edge, пользователи могут столкнуться с проблемой доступа к памяти. В данной статье мы рассмотрим, как исправить ошибку доступа, возникающую при использовании кода на языке Object Pascal (Delphi) для захвата экрана окна Microsoft Edge.

Описание проблемы

Пользователь пытается захватить изображение окна Microsoft Edge, используя функцию Canvas.CopyRect. Однако при выполнении кода возникает ошибка доступа, которая указывает на проблему с инициализацией объекта TBitMap в коде.

Пример кода, вызывающего ошибку

procedure ScreenShotWindow;
var
  c: TCanvas;
  r, t: TRect;
  h: THandle;
  Bild: TBitMap;
begin
  c := TCanvas.Create;
  h := FindWindow(nil, 'Microsoft Edge');
  c.Handle := GetWindowDC(h);
  GetWindowRect(h, t);
  try
    r := Rect(0, 0, t.Right - t.Left, t.Bottom - t.Top);
    Bild.Width  := t.Right - t.Left; { <--- Access Violation Here }
    Bild.Height := t.Bottom - t.Top;
    Bild.Canvas.CopyRect(r, c, t);
    Bild.SaveToFile('test'+ RandomPassword(10)+'.bmp');
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

Подтвержденное решение проблемы

Проблема заключается в том, что объект TBitMap не был создан перед использованием. Необходимо сначала создать объект, а затем корректно его уничтожить после использования. Исправленный код:

procedure ScreenShotWindow;
var
  c: TCanvas;
  r, t: TRect;
  h: THandle;
  Bild: TBitMap;
begin
  c := TCanvas.Create;
  h := FindWindow(nil, 'Microsoft Edge');
  c.Handle := GetWindowDC(h);
  GetWindowRect(h, t);
  try
    r := Rect(0, 0, t.Right - t.Left, t.Bottom - t.Top);
    Bild := TBitMap.Create;
    try
      Bild.Width  := t.Right - t.Left;
      Bild.Height := t.Bottom - t.Top;
      Bild.Canvas.CopyRect(r, c, Rect(0, 0, Bild.Width, Bild.Height));
      Bild.SaveToFile('test' + RandomPassword(10) + '.bmp');
    finally
      Bild.Free;
    end;
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

Комментарий к альтернативной ситуации

Если после исправления ошибки код все еще захватывает только часть окна, например, окно блокнота, как показано на скриншоте, это может быть связано с настройками разрешения экрана окна или его стилями. В таком случае рекомендуется задать отдельный вопрос, чтобы получить более детальную информацию по данному вопросу.

Заключение

Используя данное руководство, вы сможете исправить ошибку доступа при захвате экрана окна Microsoft Edge, используя Delphi. Обратите внимание на корректное создание и уничтожение объектов, а также на правильное использование методов копирования изображений.

Создано по материалам из источника по ссылке.

Как устранить ошибку доступа при попытке захвата экрана окна Microsoft Edge с использованием кода на Object Pascal в среде Delphi, пошаговое руководство с исправленным кодом.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Canvas ::