Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1856117 Sun, 03 Feb 2008 19:18:18 +0000 ошибка доступа к файлу https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1856117 Тем не менее спасибо за советы, я нашел решение другим путем (загружаю в webbrowser напрямую, без сохранения в файл).]]> tyoma_first Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1855600 Sun, 03 Feb 2008 08:12:24 +0000 ошибка доступа к файлу https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1855600 tyoma_first ну тада показывай весь исходник
походу у тебя еще чтото файл ковыряет]]> ViktorXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1855083 Sat, 02 Feb 2008 09:46:41 +0000 ошибка доступа к файлу https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1855083 Цитата ViktorXP @
ShowMessage('Закрой файл, а то глаз выколю!!');

Гениально! Надо себе в прогу засунуть :D]]> simsergey Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1854931 Fri, 01 Feb 2008 22:27:36 +0000 ошибка доступа к файлу https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1854931 Цитата ViktorXP @
илиже перед сохранением зделать
WebBrowser1.Stop;
чтобы он прекратил загружать страничку

делал - не помогает :wall:]]> tyoma_first Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1848816 Sun, 27 Jan 2008 17:35:14 +0000 ошибка доступа к файлу https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1848816 попробуй добавить какойто флаг и перед загрузкой в вебраузер ставить его в истину а в событии OnDocumentComplete ставить его в лож
а уже перед сохранением из TStringList проверять

илиже перед сохранением зделать
WebBrowser1.Stop;
чтобы он прекратил загружать страничку]]> ViktorXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1848635 Sun, 27 Jan 2008 12:28:34 +0000 ошибка доступа к файлу https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1848635
    // тут можна сказать левой процедуре чобы та закрыла свой доступ и дала дорогу молодым)))
    // а потом вызвать процедуру повтора
Какую процедуру использовать или как написать свою?

Напомню что я с этим файлом работаю только с помощью TStringList.SaveToFile() и TWebBrowser.Navigate(). Может быть TWebBrowser держит файл открытым? Если да - то как ему сказать что файлы закрывать надо?..]]> tyoma_first Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1848462 Sun, 27 Jan 2008 06:43:51 +0000 ошибка доступа к файлу https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1848462
    try
       MyStringlist.SaveToFile('кудато в небытие');
    except
       ShowMessage('Закрой файл, а то глаз выколю!!');
       // тут можна сказать левой процедуре чобы та закрыла свой доступ и дала дорогу молодым)))
       // а потом вызвать процедуру повтора
    end;


Добавлено
просто закрыть файл не зная хендл трудновато будет)))]]> ViktorXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1848445 Sun, 27 Jan 2008 02:08:13 +0000 ошибка доступа к файлу https://forum.sources.ru/index.php?showtopic=220695&view=findpost&p=1848445
Но иногда вылетает ошибка доступа к файлу - пишет что файл уже открыт другим процессом. Т.е. иногда все работает, а иногда нет :(

Как тогда принудительно закрыть файл, перед сохранением?

P.S. С этим файлом я работаю только через TStringList.SaveToFile() и TWebBrowser.Navigate().]]> tyoma_first Delphi: Общие вопросы