怎样把图象文件换成文本文件???(50)

  • 主题发起人 主题发起人 kuangwenwei
  • 开始时间 开始时间
K

kuangwenwei

Unregistered / Unconfirmed
GUEST, unregistred user!
1.就如DELPHI中的窗口放一IMAGE,将图象存于IMAGE内,在窗口右键菜单选择 VIEW AS TEXT那样,图象成了一个字符串???2.如何把上面转换成的字符串转换成图象,即将上面的字符串加载到IMAGE中显示????
 
用内存流把图像导出,然后保存到文件中,用的时候在导出就可以了。不过为什么非要吧图像保存成字符串啊?
 
  因为我们要把一个控件的所有属性记录到一个文本文件中,程序启动时根据记录的信息再重新创建这个控件。
 
通过 WriteComponentResFile('D:/DFM.dfm',Form1);和 ReadComponentResFile('D:/DFM.dfm',form1);把该控件写入外部文件,以及从外部文件读取。form1更改为那个控件即可。----假如对你有用的话,请结贴。
 
我需要在程序中将Image转换成字符串,而不是存为一个文件。
 
我需要用代码将Image中的图象转成字符串
 
先将图片写入流,再将流中的数据转储为字符串,下面的代码仅仅提供一种思路,应该有更加简洁高效的方式。procedure TForm1.Button1Click(Sender: TObject);VAR Stream:TMemoryStream; I:Integer; S,s0:String; ch:Char;begin Stream:=TMemoryStream.Create; Image1.Picture.Graphic.SaveToStream(Stream); Stream.Position:=0; SetLength(S,Stream.Size*2); while Stream.Position<Stream.Size do begin I:=Stream.Position; Stream.Read(ch,1); s0:=IntToHex(Ord(ch),2); S[I*2+1]:=s0[1]; S[I*2+2]:=s0[2]; end; Stream.free; Memo1.Lines.Text:=S;end;----------至于文本转化为图片,不多说了。毕竟就50分
 
后退
顶部