请问怎样将图片的文件流存到文本文件中,然后再用IMAGE通过打开这个文本文件显示图片

Question

请问怎样将图片的文件流存到文本文件中,然后再用IMAGE通过打开这个文本文件显示图片
现在已经写到文本了,用WINDOWS的画板也能打开,就是用程序打不开

Answer 1

文本文件是不是.txt  扩展名问题啊   Image.Picture.LoadFromFile(filename);
这样不行吗？

Answer 2

不行
我把文件流写到文本文件里,显示的是乱码,但是能用画板打开
但是Image.Picture.LoadFromFile(filename); 
不行

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
msme:TMemoryStream;
begin
 try
msme := TMemoryStream.Create;
ForeImage.Picture.Graphic.SaveToStream(msme);
msme.SaveToFile('c:\1.txt');
finally
FreeAndNil(msme);
end;end;
//写文件的
procedure TForm1.Button2Click(Sender: TObject);
var
  m1:TfileStream;
  m2:TMemoryStream;
 mybuf:array of Pchar;
begin
m1 := TfileStream.Create('c:\1.txt',fmOpenRead );
setlength(mybuf,m1.size);
m1.ReadBuffer(mybuf,m1.Size);
showmessage(pchar(mybuf));
m2 := TMemoryStream.Create;
m2.LoadFromStream(m1);
Image1.Picture.Graphic.LoadFromStream(m2);
end;
end.
//打开的