使用ZLib压缩时,我想将文件(FileName)压缩到MyStream,但会报错(***行),<br>改该怎样更正?<br><br>--------------------------------<br>var<br> ZS:TCompressionStream;<br> MyStream:TMemoryStream;<br> FStream:TFileStream;<br> FileName:string;<br>begin<br> MyStream:=TMemoryStream.Create;<br> if OpenDialog1.Execute then<br> FileName:=OpenDialog1.FileName;<br> FStream:=TFileStream.Create(FileName,fmOpenRead or fmShareExclusive);<br> ZS.Create(clNone,Mystream); /***<br> Zs.CopyFrom(FStream,FStream.Size);<br>----------------------------------------------
