Работа с указателями.

[Alex Cones]

Procedure Brigthness(Var T : TTexture; Value : Integer);
 Var
  X, Y : Integer;
  BMP  : BITMAP;
  P1, P2   : PRGBTriple;
 Begin
 P1 := T.Bits;
 For Y := 0 To T.Height - 1 Do
  Begin
   P2 := P1;
    For X := 0 To T.Width - 1 Do
     Begin
      If Value < 255 Then
       Begin
        P2^.rgbtRed   := Sub(P2^.rgbtRed, 255 - Value);
  //      P2^.rgbtGreen := Sub(P2^.rgbtGreen, 255 - Value);
  //      P2^.rgbtBlue  := Sub(P2^.rgbtBlue, 255 - Value);
       End
        Else
       Begin
  //      P2^.rgbtRed   := Add(P2^.rgbtRed, Value - 255);
  //      P2^.rgbtGreen := Add(P2^.rgbtGreen, Value - 255);
  //      P2^.rgbtBlue  := Add(P2^.rgbtBlue, Value - 255);
       End;
      Inc(P2);
     End;
    Pointer(P1) := Pointer(Integer(P1) + T.WBytes);
  End;
 End;

Суть в том, что на

 P2^.rgbtRed   := Sub(P2^.rgbtRed, 255 - Value);

Lazarus вываливается в ошибку библиотеки libastral32 (SIGSEGV(Comodo нет)).

Как исправить сие общение с указателями?

[Alex Cones]

Убедился, что Лазарь таким образом реагирует на

RGBQ := P^;

Т.е. на снятие указателя.

Есть другой способ получить данные по указателю?

P.S. Скорее всего такая реакция, потому, что получаем указатель от указателя, и с него пытаемся читать.

[igh0st]

Не уверен, но кажется надо вот так:

P2^.rgbtRed := Sub(P2.rgbtRed, 255 - Value);

[JTG]

Кошачья морда, я может твой код как-то не так готовлю, но AV из-за того, что T.Bits таки показывает в космос



Открываем Великий Мануал, читаем про GetObject:

Remarks
...
If hgdiobj identifies a bitmap created by calling CreateDIBSection, and the specified buffer is large enough, the GetObject function returns a DIBSECTION structure. In addition, the bmBits member of the BITMAP structure contained within the DIBSECTION will contain a pointer to the bitmap's bit values.

If hgdiobj identifies a bitmap created by any other means, GetObject returns only the width, height, and color format information of the bitmap. You can obtain the bitmap's bit values by calling the GetDIBits or GetBitmapBits function.

Что и наблюдаем.

[Alex Cones]

Круто! Тхенкс!

Сотворил чудо при помощи Get\SetDIBBits.

А где достать ВМ?

P.S. Кстати, чем компилили?

[JTG]

Делфёй, не весь проект, конечно. ВМ - это что?

[Alex Cones]

ВМ

Великий Мануал

Делфёй

Тогда понятно, что за великий ман.

[Пепел Феникса]

по апи вообще то msdn или его порты на Делфи.

[JTG]

Великий Мануал Мелкомягких всегда рядом http://msdn.microsoft.com/en-us/library/default.aspx