Чтение битмапа

[Miha85193]

Можно ли считать пиксели из битмапа, через указатель на их начало, не обращаясь при этом каждый раз к свойству ScanLine, или не обращаться к этому свойству вообще? Вот мой вариант.

procedure TForm1.DrawBitmap(Canvas: TCanvas);
var
  I, J: Integer;
  pLine: PByte;
  R, G, B: Byte;
begin
  for J := 0 to Bitmap.Height - 1 do
  begin
    pLine := Bitmap.ScanLine[J];
    for I := 0 to Bitmap.Width - 1 do
    begin
      B := pLine^;
      Inc(pLine);
      G := pLine^;
      Inc(pLine);
      R := pLine^;
      Inc(pLine);
      Canvas.Pixels[I, J] := RGB(R, G, B);
    end;
  end;
end;

Но здесь нужно каждый раз получать указатель на каждую строку битмапа. А если я обращаюсь к ScanLine перед началом считывания (pLine := Bitmap.ScanLine[0]),

procedure TForm1.DrawBitmap(Canvas: TCanvas);
var
  I, J: Integer;
  pLine: PByte;
  R, G, B: Byte;
begin
  pLine := Bitmap.ScanLine[0];
  for J := 0 to Bitmap.Height - 1 do
  begin
    for I := 0 to Bitmap.Width - 1 do
    begin
      B := pLine^;
      Inc(pLine);
      G := pLine^;
      Inc(pLine);
      R := pLine^;
      Inc(pLine);
      Canvas.Pixels[I, J] := RGB(R, G, B);
    end;
  end;
end;

то в результате получаю ошибку EAccessViolaton.

[ArtGrek]

а что у тебя сохранено в pLine до увеличения на 1, чему оно равно?

      B := pLine^;
      Inc(pLine);

[Miha85193]

в коде должен быть указатель?
пиксели и такк можно читать

можно но это будет ужасно медленно, по этому мне и нужно получить прямой доступ к памяти битмапа.

[ArtGrek]

пост выше.

[veniside]

GetDIBits(), но по скорости будет не сильно быстрей ScanLine, имхо, ничего плохого в том, что "нужно каждый раз получать указатель на каждую строку битмапа" нет.

[Miha85193]

GetDIBits(), но по скорости будет не сильно быстрей ScanLine, имхо, ничего плохого в том, что "нужно каждый раз получать указатель на каждую строку битмапа" нет.

А на сколько безопасна функция GetDIBits? Ведь она работает с указателем (Bits: Pointer, если не ошибаюсь).

[veniside]

В любом случае она не более опасна, чем ваш метод работы со ScanLine во втором примере )

pLine: PByte;

Это тоже как бы указатель. Мы ж не в яве или сшарпе. Дельфи + указатели + прямые руки + светлая голова = годный код.

[Miha85193]

В любом случае она не более опасна, чем ваш метод работы со ScanLine во втором примере )


Код:

pLine: PByte;
Это тоже как бы указатель. Мы ж не в яве или сшарпе. Дельфи + указатели + прямые руки + светлая голова = годный код.

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

[veniside]

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

дануконешно. Процессы изолированы друг от друга уже лет 20, начиная со времен винды 3.11. Без вызова специальных функций прочитать или записать память в другом процессе просто невозможно.

> что в свою очередь может вызвать крах системы

не говоря уже про систему.

Если вы не доверяете своим указателям, довертесь ScanLine, внутри она тоже вызывает GetDIBits().

[Miha85193]

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

дануконешно. Процессы изолированы друг от друга уже лет 20, начиная со времен винды 3.11. Без вызова специальных функций прочитать или записать память в другом процессе просто невозможно.

> что в свою очередь может вызвать крах системы

не говоря уже про систему.

Если вы не доверяете своим указателям, довертесь ScanLine, внутри она тоже вызывает GetDIBits().

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