Delphi如何把BMP图像当成流式文件读取把bmp的头去掉

来源:百度知道 编辑:UC知道 时间:2024/06/27 10:47:20
只要bmp的象素点信息, 最后存为.txt 文件
就是把bmp文件头的前64个字节去掉,另保存

procedure TForm1.Button2Click(Sender: TObject);
var
MS:TMemoryStream;
SL:TStringList;
S:String;
begin
MS:=TMemoryStream.Create;
SL:=TStringList.Create;
try
MS.LoadFromFile('c:\test.bmp');
Ms.Position:=64;
SetLength(S,Ms.size-64);
MS.ReadBuffer(PChar(S)^,MS.Size-64);
SL.Text := S;
SL.SaveToFile('c:\test.txt');
finally
SL.Free;
MS.Free;
end;
end;

????????????????????不明白