本文整理自网络,侵删。
procedure TForm1.BitBtn1Click(Sender: TObject);varStringStream : 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 tapplication.onexception
更多相关阅读请进入《Delphi》频道 >>