bitmap отображение на форме проверьте код

[hunter03]

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

написал вот такой код:

procedure TForm1.BitBtn1Click(Sender: TObject);
const ind=324*256*3;
var cross:HBITMAP;
    Frame:array[0..ind]of Integer ;
    i,index:Integer;
    Dc,M: HWnd;
    bmi:BITMAPINFO;
    //bmheader:BITMAPINFOHEADER;
    mass:Integer;
    pixcount,height:Integer;
    fullpix:Integer;
    //bm:BITMAP;
     //: hdc; {used to convert the DOB to a DDB}

begin
  bmi.bmiHeader.biSize:=SizeOf(BITMAPINFOHEADER);
  bmi.bmiHeader.biBitCount := 32;
  bmi.bmiHeader.biHeight := 256;
  bmi.bmiHeader.biWidth := 324;
  bmi.bmiHeader.biPlanes :=1;
	bmi.bmiHeader.biXPelsPerMeter:=0;
	bmi.bmiHeader.biYPelsPerMeter:=0;
pixcount:=324*256;
for mass:=0 to pixcount do begin
Frame[mass]:=160;
end;

{for height:=0 to 256 do begin
  fullpix:= (height+1)*324;
  i:=height*324;
for index:=i to fullpix do begin
Frame[index]:=height;
end;end;}

cross := CreateBitmap(324,256,1,32,@Frame);
{cross:=LoadImage(GetModuleHandle(nil),'cross4.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE);
//ãðóçèì áèòìàï
        }
    DC:=GetDC(Form1.Handle);//áåðåì êîíòåêñò ôîðìû
    M:=CreateCompatibleDC(DC);//ñîçäàåì âðåìåííûé êîíòåêñò
    SelectObject(M,cross);//ïðèìåíÿåì ê íåìó íàø áèòìàï
    GetObject(cross,sizeof(BITMAPINFOHEADER),@bmi);//áåðåì äàííûå áèòìàïàf
    BitBlt(DC,324, 256,64,64,M,0,0,SRCCOPY);//ðèñóåì áèòìàï íà êîíòåêñòå ôîðìû(èñïîëüçóÿ øèðèíó è âûñîòó)
    DeleteDC(M);//ñòèðàåì âðåìåííûé êîíòåêñò


end;

но ничего не отображается...в чем дело, подскажите

[Человек_Борща]

я писал одну программку с созданием и отображением битмапа в с++, теперь хочу разобраться как в делфи.

А в Delphi все просто. Подключите модуль Graphics(обычно он стандартно подключен в VCL проекте) и оттуда используйте класс TBitmap

var
 bmp:TBitmap;
begin
 bmp:=TBitmap.Create;
 try
 bmp.LOadFromFile('lolfile.bmp');
  .... 
  finally
   FreeAndNil(bmp);
  end;
end;

[hunter03]

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

нет, мне не из файла нужно получить битмап, это сильно просто, как сделать из сгенерированного программно.?

есть такая штука

bmp.ReleaseHandle

ее использовать?

[hunter03]

я так понимаю используя TBitmap нельзя создать битмап программно?

[Человек_Борща]

Можно, все можно легко и просто.

Создали TBitmap - все, у вас есть BMP файл, и он пустой.
TBitmap.Canvas - тут рисуем
TBtimap.Width - уст. ширину
TBtimap.Heght - уст. высоту

[hunter03]

ага, спасибо!
Еще 1 вопрос, у меня в массиве хранятся значения от 0 до 255..если я напишу, например :

  bmp.Canvas.Pixels[row,col]:=255;

то цвет будет какой то красный, а не белый...
как это преобразовать?

[Аватар]

PixelFormat=pf8bit

[hunter03]

не помогает эта функция...цвета поменялись но не получается 255 белым


Проблема решается следующим способом:

bmp.Canvas.Pixels[row,col]:=RGB(Frame[row*256+col],Frame[row*256+col],Frame[row*256+col]);

Спасибо всем, кто откликнулся!!!!

[hunter03]

из за того, что Pixels очень долго рисует, решил сделать по другому с api функциями

нашел следующий код:

type
  {Used for pointer math under Win16}
  PPtrRec = ^TPtrRec;
  TPtrRec = record
    Lo: Word;
    Hi: Word;
end;
{$ENDIF}

{Used for huge pointer math}
function GetBigPointer(lp: pointer; Offset: Longint): Pointer;
begin
  {$IFDEF WIN32}
  GetBigPointer := @PByteArray(lp)^[Offset];
  {$ELSE}
  Offset := Offset + TPtrRec(lp).Lo;
  GetBigPointer := Ptr(TPtrRec(lp).Hi + TPtrRec(Offset).Hi *
  SelectorInc,
  TPtrRec(Offset).Lo);
  {$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hPixelBuffer : THandle; {Handle to the pixel buffer}
  lpPixelBuffer : pointer; {pointer to the pixel buffer}
  lpPalBuffer : PLogPalette; {The palette buffer}
  lpBitmapInfo : PBitmapInfo; {The bitmap info header}
  BitmapInfoSize : longint; {Size of the bitmap info header}
  BitmapSize : longint; {Size of the pixel array}
  PaletteSize : integer; {Size of the palette buffer}
  i : longint; {loop variable}
  j : longint; {loop variable}
  OldPal : hPalette; {temp palette}
  hPal : hPalette; {handle to our palette}
  hBm : hBitmap; {handle to our bitmap}
  Bm : TBitmap; {temporary TBitmap}
  Dc : hdc; {used to convert the DOB to a DDB}
  IsPaletteDevice : bool;
  cross:HBITMAP;
  Dcc,M: HWnd;
begin
  Application.ProcessMessages;
  
  {$IFOPT R+}
  {$DEFINE CKRANGE}
  {$R-}
  {$ENDIF}

 
  dc := GetDc(0);
  IsPaletteDevice :=
  GetDeviceCaps(dc, RASTERCAPS) and RC_PALETTE = RC_PALETTE;
  {Give back the screen dc}
  dc := ReleaseDc(0, dc);


  BitmapInfoSize := sizeof(TBitmapInfo) + (sizeof(TRGBQUAD) * 255);

  {The bitmap size must be the width of the bitmap rounded}
  {up to the nearest 32 bit boundary}
  BitmapSize := (sizeof(byte) * 256) * 256;


  if IsPaletteDevice then
    PaletteSize := sizeof(TLogPalette) + (sizeof(TPaletteEntry) * 255);

  
  GetMem(lpBitmapInfo, BitmapInfoSize);
  hPixelBuffer := GlobalAlloc(GHND, BitmapSize);
  lpPixelBuffer := GlobalLock(hPixelBuffer);

  if IsPaletteDevice then
    GetMem(lpPalBuffer, PaletteSize);

  {Çàïîëíÿåì íóëÿìè BitmapInfo, PixelBuffer, è Palette}
  FillChar(lpBitmapInfo^, BitmapInfoSize, #0);
  FillChar(lpPixelBuffer^, BitmapSize, #0);
  if IsPaletteDevice then
    FillChar(lpPalBuffer^,PaletteSize, #0);

  {Çàïîëíÿåì ñòðóêòóðó BitmapInfo}
  lpBitmapInfo^.bmiHeader.biSize := sizeof(TBitmapInfoHeader);
  lpBitmapInfo^.bmiHeader.biWidth := 256;
  lpBitmapInfo^.bmiHeader.biHeight := 256;
  lpBitmapInfo^.bmiHeader.biPlanes := 1;
  lpBitmapInfo^.bmiHeader.biBitCount := 8;
  lpBitmapInfo^.bmiHeader.biCompression := BI_RGB;
  lpBitmapInfo^.bmiHeader.biSizeImage := BitmapSize;
  lpBitmapInfo^.bmiHeader.biXPelsPerMeter := 0;
  lpBitmapInfo^.bmiHeader.biYPelsPerMeter := 0;
  lpBitmapInfo^.bmiHeader.biClrUsed := 256;
  lpBitmapInfo^.bmiHeader.biClrImportant := 256;

  for i := 0 to 255 do
  begin
    lpBitmapInfo^.bmiColors[i].rgbRed := i;
    lpBitmapInfo^.bmiColors[i].rgbGreen := i;
    lpBitmapInfo^.bmiColors[i].rgbBlue := i;
  end;

  cross := CreateBitmap(256,256,1,8,lpBitmapInfo);
{cross:=LoadImage(GetModuleHandle(nil),'cross4.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE);
//a?ocei aeoiai
        }
    DC:=GetDC(Form1.Handle);//aa?ai eiioaeno oi?iu
    M:=CreateCompatibleDC(DC);//nicaaai a?aiaiiue eiioaeno
    SelectObject(M,cross);//i?eiaiyai e iaio iao aeoiai
    GetObject(cross,sizeof(lpBitmapInfo),@lpBitmapInfo^.bmiHeader);//aa?ai aaiiua aeoiaiaf
    BitBlt(DC,324, 256,256,256,M,0,0,SRCCOPY);//?enoai aeoiai ia eiioaenoa oi?iu(eniieucoy oe?eio e aunioo)
    DeleteDC(M);//noe?aai a?aiaiiue eiioaeno

end;

пытаюсь это так отобразить на форме...но ничего....
помогите, как это отобразить...не пойму что не так...

[Slym]

bmp.Canvas.Pixels - долго
Bitmap.ScanLine - в помощь