发分吧....
procedure bmp2memo( fn: string; memo: tmemo );
var
aa: tbitmap;
i, j: integer;
buf: pbytearray;
tmp: string;
begin
memo.lines.clear;
aa:= tbitmap.create;
aa.loadfromfile( fn );
for i:= 0 to aa.height - 1 do
begin
tmp:= '';
buf:= aa.scanline;
for j:= 0 to aa.width - 1 do
tmp:= tmp + inttohex(buf[j],2);
memo.lines.add(tmp);
end;
aa.free;
end;
