Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.16;
Скачать: [xml.tar.bz2];

Вниз

Как прочитать файл, открытый другим приложением?   Найти похожие ветки 

 
DNT   (2002-12-04 14:09) [0]

subj
С MemoryStream не работает : (


 
Song   (2002-12-04 14:10) [1]

Если не читается обычным способом, значит никак.


 
FreeLancer   (2002-12-04 14:16) [2]

TFileStream :
constructor Create(const FileName: string; Mode: Word);

The share mode must be one of the following values:

- fmShareCompat Sharing is compatible with the way FCBs are opened.
- fmShareExclusive Other applications can not open the file for any reason.
- fmShareDenyWrite Other applications can open the file for reading but not for writing.
- fmShareDenyRead Other applications can open the file for writing but not for reading.
- fmShareDenyNone No attempt is made to prevent other applications from reading from or writing to the file.

If the file can not be opened, Create raises an exception.


 
stas_a   (2002-12-04 14:17) [3]

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).


 
DNT   (2002-12-04 14:21) [4]

2stas_a: читай внимательней, с MemoryStream не работает

2FreeLancer: т.е. если прога открыла файл с fmShareExclusive значит я его не смогу открыть?


 
FreeLancer   (2002-12-04 14:25) [5]

> т.е. если прога открыла файл с fmShareExclusive значит я
> его не смогу открыть?

Читай: Song © (04.12.02 14:10)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
14-51901
Konsul
2002-11-24 14:47
2002.12.16
Прикольные видеоролики


7-51976
msgipss
2002-10-16 10:46
2002.12.16
сорри, предыдущая мессага не в тему, Как проверить работу колеса


6-51871
izhalex
2002-10-07 18:00
2002.12.16
определить возможность подключения clientsocket к serversocket


1-51761
wetwired
2002-12-04 19:05
2002.12.16
Сохранение листа Excel в формате CSV из Дельфи


1-51758
Cranium
2002-11-27 03:02
2002.12.16
Как определить высоту TMainMenu на форме?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский