Delphi 以二进制方式读取图片保存到string

本文整理自网络，侵删。

 
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 xe 制作的萤光时钟，可改作屏保

Delphi 2009 之 tstringbuilder 类[5]: chars[] 属性与 copyto 方法

Delphi中如何给一个字符串从左边进行补0

Delphi通过代码实现模拟按键的函数

怀念一下这些经常不记得的Delphi代码

Delphi 主程序装载脚本

Delphi 使用zlib对datasetprovider.data数据包进行压缩传输的测试

Delphi使用ixmlhttprequest 简单获取网页源代码

Delphi dxcameracontrol控件(拍照)

Delphi 根据文件路径获取文件名

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

转载请注明出处：木庄网络博客 » Delphi 以二进制方式读取图片保存到string