Чтение из открытого файла

Previous  Top  Next

    
 

 

Даже если файл открыт с низкими привелегиями (используя ReadOnly, ShareReadWrite) , иногда открытие уже открытого файла может приводить к ошибкам, особенно, если это файл интенсивно используется другим приложением. Самый простой способ решить эту проблемму - это использовать MemoryStream вместо непосредственного доступа к файлу:

Code:

var Memory: TMemoryStream;

 

begin

Memory := TMemoryStream.Create;

try

   Memory.LoadFromFile('busyfile.dat'); // это он!!

   ..

     Memory.Read(...); // Вы можете использовать методы чтения как у файлов

     Memory.Seek(...);

     FileSize := Memory.Size;

     ..

finally

   Memory.Free;

end;

end;

 

 

Данный способ никогда не открывает файл, а заместо этого создаёт копию его в памяти. Конечно Вы можете и записать в поток (Stream) в Памяти(Memory), но изменения не будут записаны на диск до тех пор, пока Вы не запишете их в файл (командой SaveToFile).

 

Автор ответа: neutrino

 

Комментарий от Vit

 

Решение хорошее, но накладно если файл большой...

©Drkb::03125

Взято с Vingrad.ru http://forum.vingrad.ru

 


Code:

var b:string[15];

begin

with TFileStream.create('c:\MyFile.doc', fmShareDenyNone) do

try

read(b,14);

showmessage(b);

finally

Free;

end;

 

 

 

©Drkb::03126

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru

 


Code:

procedure TForm1.Button1Click(Sender: TObject);

type

AnyType = byte; // ??? ???? ?????

var

F: file of AnyType;

const

FName = 'D:/Exp.exe'; //?????????? ????

begin

begin

AssignFile(F, FName); { File selected in dialog }

FileMode:=fmOpenRead;

Reset(F);

// ...

// ...

CloseFile(F);

FileMode:=fmOpenReadWrite;

end;

end;

 

 

 

Автор ответа: PILOTIK

©Drkb::03127

Взято с Vingrad.ru http://forum.vingrad.ru