|
@@ -180,13 +180,13 @@ Implementation
|
|
begin
|
|
begin
|
|
result:=0;
|
|
result:=0;
|
|
bufsize:=64*1024;
|
|
bufsize:=64*1024;
|
|
- fs:=CFileStreamClass.Create(fn,fmOpenRead or fmShareDenyNone);
|
|
|
|
- if CStreamError<>0 then
|
|
|
|
- begin
|
|
|
|
- fs.Free;
|
|
|
|
- Comment(V_Error,'Can''t open file: '+fn);
|
|
|
|
- exit;
|
|
|
|
- end;
|
|
|
|
|
|
+ fs:=CFileStreamClass.Create(fn,fmOpenRead or fmShareDenyNone);
|
|
|
|
+ if CStreamError<>0 then
|
|
|
|
+ begin
|
|
|
|
+ fs.Free;
|
|
|
|
+ Comment(V_Error,'Can''t open file: '+fn);
|
|
|
|
+ exit;
|
|
|
|
+ end;
|
|
getmem(buf,bufsize);
|
|
getmem(buf,bufsize);
|
|
repeat
|
|
repeat
|
|
bufcount:=fs.Read(buf^,bufsize);
|
|
bufcount:=fs.Read(buf^,bufsize);
|