FiveTech Software tech support forums

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

Marcelo,

Please check function CreateMemBitmap() here:

http://forums.fivetechsupport.com/viewt ... 18#p230018

Antonio Linares wrote:Marcelo,

Please check function CreateMemBitmap() here:

http://forums.fivetechsupport.com/viewt ... 18#p230018

Antônio
thanks