기존 픽셀 데이터 주위에 TCanvas를 래핑하는 방법은 무엇입니까?

Question

질문

비트 맵 이미지를 보유하는 32 비트 픽셀 데이터 배열이 있습니다.

TPixel = packed record 
    B: Byte; 
    G: Byte; 
    R: Byte; 
    A: Byte; 
end; 

Size = MyBitmapWidth * MyBitmapHeight; 

MyBitmapData : array[0..Size-1] of TPixel; 

새로운 TCanvas 개체를 만들어 기존 픽셀 데이터에 첨부 할 수 있습니까? 캔버스 객체에는 핸들이 할당되어야합니다.

배경

I는 (32 개 비트 픽셀들의 배열로), 비트 맵 데이터를 생성하는 타사 라이브러리를 사용하고 있습니다. TCanvas.Handle을 매개 변수로 사용하는 다른 함수에서 동일한 픽셀 데이터를 사용하고 싶습니다.

Answer 1

배열의 데이터 방향에 따라 방향을 다음과 같이 변경해야 할 수 있습니다. pscanLine32 [j] .rgbReserved : = Arr [i * Width + Height - j] .A;

type 
    TPixel = packed record 
    B: Byte; 
    G: Byte; 
    R: Byte; 
    A: Byte; 
    end; 

    TMyBitmapData = array of TPixel; 

type 
    pRGBQuadArray = ^TRGBQuadArray; 
    TRGBQuadArray = ARRAY [0 .. $EFFFFFF] OF TRGBQuad; 

Procedure FillBitMap(var bmp: TBitMap; Arr: TMyBitmapData; Width, Height: Integer); 
var 
    pscanLine32: pRGBQuadArray; 
    i, j: Integer; 
begin 
    if not Assigned(bmp) then 
    bmp := TBitMap.Create; 
    bmp.PixelFormat := pf32Bit; 
    bmp.ignorepalette := true; 
    bmp.Width := Width; 
    bmp.Height := Height; 
    for i := 0 to bmp.Height - 1 do 
    begin 
    pscanLine32 := bmp.Scanline[i]; 
    for j := 0 to bmp.Width - 1 do 
    begin 
     pscanLine32[j].rgbReserved := Arr[i * Width + j].A; 
     pscanLine32[j].rgbBlue := Arr[i * Width + j].B; 
     pscanLine32[j].rgbRed := Arr[i * Width + j].R; 
     pscanLine32[j].rgbGreen := Arr[i * Width + j].G; 
    end; 
    end; 
end; 

procedure TForm4.Button1Click(Sender: TObject); 
var 
    MyBitmapWidth: Integer; 
    MyBitmapHeight: Integer; 
    Size: Cardinal; 
    MyBitmapData: TMyBitmapData; 
    bmp: TBitMap; 
    x: Integer; 
begin 
    MyBitmapWidth := 100; 
    MyBitmapHeight := 100; 
    Size := MyBitmapWidth * MyBitmapHeight; 
    SetLength(MyBitmapData, Size); 

    for x := 0 to MyBitmapWidth - 1 do 
    begin 
    MyBitmapData[x * MyBitmapWidth + x].A := 255; 
    MyBitmapData[x * MyBitmapWidth + x].R := 255; 
    end; 


    bmp := TBitMap.Create; 
    try 
    FillBitMap(bmp, MyBitmapData, MyBitmapWidth,MyBitmapHeight); 
    Image1.picture.Assign(bmp); 
    finally 
    bmp.Free; 
    end; 

end;