Delphi以二进制方式读取图片并显示出来

本文整理自网络，侵删。

 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
StringStream : TStringStream;
FSize : integer;
FileData : string;
i : integer;
DataStr : string;
msStream: TMemoryStream;
begin

  msStream:= TMemoryStream.Create;
  self.img1.Picture.Graphic.SaveToStream(msStream);
  msStream.Position:=0;
  StringStream := TStringStream.Create(EmptyStr);
  fsize:=msStream.Size;
  StringStream.CopyFrom(msStream, FSize);
  FileData := StringStream.DataString;
  self.ProgressBar1.Max:=StringStream.Size;
  DataStr := EmptyStr;
  for i := 1 to Length(FileData) do
  begin
  DataStr := DataStr + InttoHex(Ord(FileData[i]), 2); // 十六进制显示
 // DataStr:=DataStr+er(Ord(FileData[i]),7)// 二进制显示
  self.ProgressBar1.Position:=i;
  Application.ProcessMessages ;
  end;
  //Memo1.Text:=DataStr;
  self.RichEdit1.Text:=DataStr;
  Application.ProcessMessages ;

end;
 

相关阅读 >>

Delphi 实现给字加边界代码

Delphi 网页数据抓取

Delphi 中相对路径与绝对路径函数

Delphi 批量操作按钮组件属性

Delphi动态复选框源码

Delphi 三种方式读取txt文本文件

Delphi try except与try finally不同之处

Delphi webbrowser 加载html成web

Delphi 利用idhttp进行多线程下载

Delphi indy控件实现网络验证与asp通信

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi以二进制方式读取图片并显示出来