求助：各位大哥怎么把 bmp ,gif 图片转换为二进制，然后又转换回来？谢谢！ ( 积分: 4 )

请教：<br>各位大哥怎么把&nbsp;bmp&nbsp;,gif&nbsp;图片转换为二进制？<br>然后把&nbsp;二进制&nbsp;字符串转换&nbsp;为&nbsp;bmp&nbsp;，gif&nbsp;图片<br><br>procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;&nbsp;&nbsp;mystream:&nbsp;TStream;<br>&nbsp;&nbsp;&nbsp;&nbsp;I:&nbsp;Integer;<br>&nbsp;&nbsp;&nbsp;&nbsp;mybyte:&nbsp;Byte;<br>&nbsp;&nbsp;&nbsp;&nbsp;mystr:&nbsp;string;<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;mystream&nbsp;:=&nbsp;TMemoryStream.Create;<br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Opendialog1.Execute&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TMemoryStream(mystream).LoadFromFile(Opendialog1.FileName);<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;image1.Picture.Bitmap.LoadFromStream(mystream);<br>&nbsp;&nbsp;&nbsp;&nbsp;mystream.Position&nbsp;:=&nbsp;0;<br>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;I&nbsp;:=&nbsp;1&nbsp;to&nbsp;mystream.Size&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.ProcessMessages;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mystream.Read(mybyte,&nbsp;1);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mystr&nbsp;:=&nbsp;mystr+IntToHex(mybyte,2);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;((I&nbsp;mod&nbsp;14)&nbsp;=&nbsp;0)&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Memo1.Lines.Add(mystr);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mystr&nbsp;:=&nbsp;'';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;mystream.Free;<br>end;<br><br><br>这是一个把&nbsp;BMP&nbsp;图片转换为&nbsp;二进制的程序（网上找的）<br><br>各位大哥，可以给我其他三个程序吗？<br><br>谢谢！