Чтение из открытого файла |
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