| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Совместный доступ [D5, WinME]
Pastor © (2002-02-19 09:39:00)Уважаемые мастера!
Пытаюсь открыть файл, который используется другой программой, но следующий код выдает ошибку: Project Project1.exe raised exception class EFOpenError with message "Cannot open file C:\Program Files\..."Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
Memory:TMemoryStream;
s,s1:string;
f:textfile;
i:integer;
begin
if OpenDialog1.Execute then
begin
RichEdit1.Clear;
Memory := TMemoryStream.Create;
s:=OpenDialog1.FileName;
Memory.LoadFromFile(s);
Memory.SaveToFile("temp.txt");
assignfile(f,"temp.txt");
reset(f);
repeat
Readln(f,s1);
RichEdit1.Lines.Add(s1);
until eof(f);
memory.Free;
closefile(f);
erase(f);
end;
end;
Что я делаю не так? Заранее благодарю.
Pastor (2002-02-19 12:11:00) [1]Чувствую, что приходиться вдаваться в подробности. Мне нужно открыть ЛОГ-файл программы WinGate (прокси-сервер). Эти файлы доступны для общего доступа (во загнул!), т.к. программа ProxyInspector for WinGate их как-то импортирует. Вот это хочу сделать и я.
Fellomena (2002-02-19 11:05:00) [2]Если этот файл открыт другой программой приблизительно следующим образом:
TFileStream.Create(s, fmShareExclusive);
т.е. для единоличного пользования (fmShareExclusive), то тебе с этим ничего поделать нельзя 8)
| |
