Обход ошибок при работе со сканлиней изображения в формате Bitmap на Delphi

Delphi , Графика и Игры , Компоненты и Графика

Статья: Обход ошибок при работе со сканлинями изображения в формате Bitmap на Delphi

В этой статье мы рассмотрим, как правильно работать с данными изображения через его сканльные линии (scanlines) в формате TBitmap для языка программирования Object Pascal и среды разработки Delphi. Работа со сканлинями позволяет повысить производительность за счет прямого доступа к пикселям, но может привести к ошибкам, если не учитывать особенности реализации.

Основные понятия

Сканлинь (scanline) — это строка данных, которая содержит информацию о цвете каждого пикселя в соответствующей строке изображения. В формате TBitmap сканлини могут быть организованы как "сверху-вниз", так и "снизу-вверх". В последнем случае индекс первой линии будет соответствовать последней строке изображения, что может привести к использованию отрицательных смещений.

Пример неправильной реализации

В примере кода выше представлена попытка прямого доступа к сканлиням через массив TRGBQuad. Однако, в результате выполнения возникает ошибка недопустимого доступа (illegal access) при обращении к первой строке и первому столбцу изображения. Ошибка связана с использованием отрицательного смещения, которое приводит к выходу за пределы массива.

Исправление ошибки

Чтобы избежать ошибок связанных с недопустимыми индексами, необходимо учитывать направление сканлиней в изображении. В случае использования "снизу-вверх" следует обращаться к последнему элементу массива ScanLine[Height - 1] и вычислять смещение для доступа к данным через переменную LastLine. Это позволит избежать отрицательных индексов.

Пример правильной реализации

procedure TForm1.Button1Click(Sender: TObject);
var
    Bitmap: TBitmap;
    q, LastLine: PRGBQuadArray;
    x, y: LongInt;
    idx: NativeInt;
    LineLength: NativeInt;
begin
    Bitmap := TBitmap.Create;
    Bitmap.Height := Image.Height;
    Bitmap.Width  := Image.Width;
    Bitmap.PixelFormat := pf32Bit;

    // Получение указателя на последнюю строку изображения
    LastLine := Bitmap.ScanLine[Bitmap.Height - 1];

    // Вычисление длины одной строки в байтах (размер одного элемента TRGBQuad)
    LineLength := Length(Bitmap.ScanLine[0]) div SizeOf(TRGBQuad);

    try
        for y := 0 to Bitmap.Height - 1 do
            for x := 0 to Bitmap.Width - 1 do
            begin
                // Подготовка данных для элемента TRGBQuad
                q.b := (x xor y) mod 255;

                // Вычисление индекса в последней строке
                idx := y * LineLength + x;

                // Присваивание значения элементу сканлиня
                LastLine[idx] := q;
            end;

        // Обновление изображения на форме
        Image.Picture.Assign(Bitmap);
    finally
        Bitmap.Free;
    end;
end;

Заключение

При работе со сканлинями изображений в формате TBitmap важно учитывать направление, в котором организованы данные. Использование правильного доступа к данным позволяет избежать ошибок и повысить производительность работы с графикой.

Эта статья предназначена для специалистов по разработке программного обеспечения на Delphi, которые сталкиваются с необходимостью оптимизации работы со сканлинями изображений. Приведенные примеры и рекомендации помогут избежать типичных ошибок и улучшить качество кода.

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

Статья описывает, как корректно обращаться к данным изображения через сканлинии в формате TBitmap в Delphi для повышения производительности и избежания ошибок.

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

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

:: Главная :: Компоненты и Графика ::