为什么执行出错?详情请看
我不要昵称 2003-08-22 04:56:37 为什么执行出错
procedure TfrmComm.btnSendClick(Sender: TObject);
var
//FS,outfs:TFileStream ;
FS,outfs:TStream ;
begin
fs:=TfileStream.Create('c:\tcpip.txt',FmOpenRead);
getmem(s,fs.size);
try
fs.Read(s^,fs.Size);
ys_stream(fs,outfS,2);
memo1.Text :=s;
finally
fs.free;
end;
freemem(s);
end;
//**************************************************************
procedure ys_stream(instream, outStream: TStream;ysbz:integer);
var
ys: TCompressionStream;
begin
inStream.Position := 0;
case ysbz of
1: ys := TCompressionStream.Create(clnone,OutStream);
2: ys := TCompressionStream.Create(clFastest,OutStream);//运行此出错
3: ys := TCompressionStream.Create(cldefault,OutStream);
4: ys := TCompressionStream.Create(clmax,OutStream);
else
ys := TCompressionStream.Create(clFastest,OutStream);
end;
try
ys.CopyFrom(inStream, 0);
finally
ys.Free;
end;
end;
//*****************************************************************