Handle груженый из bmp =! 24 bit?

[Alex Cones]

...
LoadHB(PChar(CurDir + '\Resource\Interface\Menu\Menu.bmp'), Warehouse.Menu);
  End;

 Procedure LoadHB(FileName : PChar; Var HB : HBitMap);
 Begin
  HB := LoadImage(GetModuleHandle(Nil), FileName, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
 End;

Procedure FVFL_Brightness(Handle: HBITMAP; Value : Integer); StdCall;
Var
 X, Y: Integer;
 BMP: BITMAP;
 P1, P2: PRGBTriple;
Begin
 Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
 P1 := BMP.bmBits;
 If BMP.bmBitsPixel = 24 Then
      ...
 Else
  MessageBox(0, 'Library error - 0x00', 'Error', MB_OK);
End;

Все время выбивает ошибку 0x00. Menu.bmp = 24 bit.

Как исправить?

[Stilet]

BMP.bmBitsPixel

А чему она становится равной?

[Alex Cones]

32...........................

[baster128]

Дружище! Я тут как то написал процедуру основу взял здесь на этом форуме. Она грузит *.bmp файл и закрашивает им фон TWinControl

procedure BackGrPict(Obj:TWinControl;fBmp:string);
var H:HBITMAP;
    bm:BITMAP;M,DC:HDC;
    bW,bH,j,i:integer;
begin
H:=LoadImage(GetModuleHandle(nil),PChar(fBmp),IMAGE_BITMAP,0,0,LR_LOADFROMFILE);//грузим битмап
if H=0 then Exit  else
 begin
 DC:=GetDC(Obj.Handle);//берем контекст формы
 M:=CreateCompatibleDC(DC);//создаем временный контекст
 SelectObject(M,H);//применяем к нему наш битмап
 GetObject(H,sizeof(BITMAP),@bm);//берем данные битмапа
 bW:=1;bH:=1;
 for j:=0 to Round(Obj.ClientHeight/bm.bmHeight) do begin
 for i:=0 to Round(Obj.ClientWidth/bm.bmWidth) do begin
 BitBlt(DC,bW,bH,bm.bmWidth,bm.bmHeight,M,0,0,SRCCOPY);//рисуем итмап на контексте формы(используя ширину и высоту)
 bW:=bW+(bm.bmWidth);
  end;
  bH:=bH+(bm.bmHeight);bW:=1
  end;
 DeleteDC(M);//стираем временный контекст
 DeleteObject(H);
end;
end;

[Alex Cones]

И как это поможет применить эффекты моей библиотеки к данной ситуации?

2Stilet: Если я нарисую в dll точно такие же функи, только для 32-х битных имаг. Что придется менять?

Исходник здесь полный здесь.

[Stilet]

А бог его знает. Пока я не вижу что там за функи твои как выглядят и что делают.
Кстати если не секрет что пишешь?

[Alex Cones]

Кстати если не секрет что пишешь?

Развлекаюсь с графикой.

Пока я не вижу что там за функи твои как выглядят и что делают.

Procedure FVFL_ConvertToBW(Handle: HBITMAP); StdCall;
Var
 X, Y: Integer;
 C: Byte;
 BMP: BITMAP;
 P1, P2: PRGBTriple;
Begin
 Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
 P1 := BMP.bmBits;
 If BMP.bmBitsPixel = 24 Then
      For Y := 0 To BMP.bmHeight - 1 Do
            Begin
             P2 := P1;
             For X := 0 To BMP.bmWidth - 1 Do
                  Begin
                   C:=(P2.RGBTRed + P2.RGBTGreen + P2.RGBTBlue) Div 3;
                   P2.rgbtRed   := C;
                   P2.rgbtGreen := C;
                   P2.rgbtBlue  := C;
                   Inc(P2);
                  End;
             Pointer(P1) := Pointer(Integer(P1) + BMP.bmWidthBytes);
            End
 Else
  MessageBox(0, 'Library error - 0x00', 'Error', MB_OK);
End;

Вот например код перевода имаги в B/W. Что в нем надо поменять, чтобы работал для 32-х битных имаг?

[Stilet]

Ну наверное просто вместо 24 поставить 32...
Кстати... Я где-то среди GDI+ видел функции конвертации...
Может тебе поюзать его возможности?

P.S. Пардон по-моему насчет 32 затупил...

[Alex Cones]

Был бы рад увидеть эти функции.

Сейчас попробую поменять 24 на 32 в dll.
Результат плачевный:

[Stilet]

Пжалста:http://www.programmersforum.ru/showthread.php?p=560217
См. Приаттаченый архив