На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS

Дорогие друзья! Поздравляем вас с Новым 2026 годом!

Всем удачи, успеха и благополучия!

msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> ошибка доступа к файлу , или как закрыть файл принудительно?
    Пытаюсь сохранить значение TStringList в файл с помощью TStringlist.SaveToFile()

    Но иногда вылетает ошибка доступа к файлу - пишет что файл уже открыт другим процессом. Т.е. иногда все работает, а иногда нет :(

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

    P.S. С этим файлом я работаю только через TStringList.SaveToFile() и TWebBrowser.Navigate().
      ExpandedWrap disabled
        try
           MyStringlist.SaveToFile('кудато в небытие');
        except
           ShowMessage('Закрой файл, а то глаз выколю!!');
           // тут можна сказать левой процедуре чобы та закрыла свой доступ и дала дорогу молодым)))
           // а потом вызвать процедуру повтора
        end;


      Добавлено
      просто закрыть файл не зная хендл трудновато будет)))
        :whistle: Я именно так и делаю. Меня как раз интересует момент
        ExpandedWrap disabled
          // тут можна сказать левой процедуре чобы та закрыла свой доступ и дала дорогу молодым)))
          // а потом вызвать процедуру повтора
        Какую процедуру использовать или как написать свою?

        Напомню что я с этим файлом работаю только с помощью TStringList.SaveToFile() и TWebBrowser.Navigate(). Может быть TWebBrowser держит файл открытым? Если да - то как ему сказать что файлы закрывать надо?..
          Ну веб браузер не использует постоянно страничку
          попробуй добавить какойто флаг и перед загрузкой в вебраузер ставить его в истину а в событии OnDocumentComplete ставить его в лож
          а уже перед сохранением из TStringList проверять

          илиже перед сохранением зделать
          WebBrowser1.Stop;
          чтобы он прекратил загружать страничку
            Цитата ViktorXP @
            илиже перед сохранением зделать
            WebBrowser1.Stop;
            чтобы он прекратил загружать страничку

            делал - не помогает :wall:
              Цитата ViktorXP @
              ShowMessage('Закрой файл, а то глаз выколю!!');

              Гениально! Надо себе в прогу засунуть :D
                tyoma_first ну тада показывай весь исходник
                походу у тебя еще чтото файл ковыряет
                  Нее.. исходник там очень большой (бывший дипломный проект :) ). Так что даже если выложу - придется много разбираться :)
                  Тем не менее спасибо за советы, я нашел решение другим путем (загружаю в webbrowser напрямую, без сохранения в файл).
                  1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                  0 пользователей:


                  Рейтинг@Mail.ru
                  [ Script execution time: 0,0608 ]   [ 15 queries used ]   [ Generated: 3.01.26, 06:04 GMT ]