Delphi如何把BMP图像当成流式文件读取把bmp的头去掉
展开全部
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;
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;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
????????????????????不明白
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |