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




Вниз

Совместный доступ 


Pastor   (2002-02-19 09:39) [0]

Уважаемые мастера!
Пытаюсь открыть файл, который используется другой программой, но следующий код выдает ошибку: 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;

Что я делаю не так? Заранее благодарю.



Fellomena   (2002-02-19 11:05) [1]

Если этот файл открыт другой программой приблизительно следующим образом:

TFileStream.Create(s, fmShareExclusive);

т.е. для единоличного пользования (fmShareExclusive), то тебе с этим ничего поделать нельзя 8)



Pastor   (2002-02-19 12:11) [2]

Чувствую, что приходиться вдаваться в подробности. Мне нужно открыть ЛОГ-файл программы WinGate (прокси-сервер). Эти файлы доступны для общего доступа (во загнул!), т.к. программа ProxyInspector for WinGate их как-то импортирует. Вот это хочу сделать и я.




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




Наверх





Память: 0.72 MB
Время: 0.027 c
3-19070           DmitryB               2002-02-08 01:57  2002.03.07  
Ищу компонент


7-19367           Drv                   2001-12-02 20:05  2002.03.07  
Реестр


1-19216           Michael C             2002-02-19 12:14  2002.03.07  
Мастера товарищи... Как объединить эти две выборки...


1-19196           YouNick               2002-02-18 17:07  2002.03.07  
Окно поверх всех окон (очень нужно)


1-19255           hex_for_delphi        2002-02-20 06:49  2002.03.07  
как управлять мышю