Is there any function to read a bmp byte by byte return file and convert to pixel and create the bitmap
This is a return of the biometrics image
This is the equivalent that exists in Delphi.
BUFFER CONVERSION TO BITMAP
FREECALL/DELPHI
Function RetornaBitMap(biometria : TDigital) : TBitMap;
var
srcBmp: TBitmap;
Color : TColor;
X,Y : Integer;
baite : Byte;
begin
try
srcBmp := TBitmap.Create;
srcBmp.Width := biometria.X;
srcBmp.Height := biometria.Y;
For X := 0 to biometria.X - 1 do
begin
For Y := 0 to biometria.y do
begin
baite := biometria.img[x + srcBmp.Width * y];
srcBmp.canvas.Pixels[X,Y] := RGB(baite, baite, baite);
end;
end;
finally
result := srcBmp;
end;
end;
Since I need to do the same thing for xHarbour
Antonio Linares wrote:Marcelo,
Please check function CreateMemBitmap() here:
viewtopic.php?p=230018#p230018
