Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Windows 2000 и XP .... 
V
    Опции темы
Nic442
Дата 6.6.2006, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Вот есть код. Он стоит на Form.Close На XP нормально выходит из программы, на 2000 выдает сообщение  MessageBoxA. Что я использую, чего нету в 2000???  smile 

Код

try
    try
      ConfigFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
      ConfigFile.WriteBool('SETTTING', 'Fu', View_Full_Screen.Checked);
      if Customize_Trans.Checked then
        ConfigFile.WriteInteger('CUSTOMIZE', 'Vvod', 2)
      else if Customize_Code.Checked then
        ConfigFile.WriteInteger('CUSTOMIZE', 'Vvod', 3)
      else
        ConfigFile.WriteInteger('CUSTOMIZE', 'Vvod', 1);
      c := 0;
      while (c <= Reopen1.Count - 1) do
      begin
        ConfigFile.WriteString('OPEN FILES', IntToStr(c), Reopen1.Items[c].Caption);
        Inc(c);
      end;

      h := 0;
      while (h <= kodirovka1.Count - 1) do
      begin
        if kodirovka1.Items[h].Checked = True then
        begin
          ConfigFile.WriteInteger('CODING', 'Active', h);
          break;
        end;
        Inc(h);
      end;
      if View_Full_Screen.Checked = False then
      begin
        ConfigFile.WriteInteger('POSITION', 'Po_x', Left);
        ConfigFile.WriteInteger('POSITION', 'Po_y', Top);
        ConfigFile.WriteInteger('POSITION', 'Width', Width);
        ConfigFile.WriteInteger('POSITION', 'Height', Height);
      end;
    except
      MessageBoxA(0, PChar(sErrorWriteOptions), 'Ошибка', MB_OK or MB_ICONERROR);
    end;
  finally
    ConfigFile.Free;
  end;
 
PM MAIL   Вверх
Matematik
Дата 6.6.2006, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50
Код

except
  on e:Exception do ShowMessage(e.ClassName+' - '+e.Message);
end;

И смотри что за ошибка

Добавлено @ 21:12 
Может не быть доступа на запись 
PM MAIL WWW ICQ   Вверх
Snowy
Дата 6.6.2006, 21:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
А ты поставь бряку и пройдись трэйсом по F8, чтобы узнать в каком месте ексепшн лезет.
Если применить свои телепатические способности...
Вижу... Вижу ошибку в TIniFile.Create... Нет прав на запись... 
PM MAIL   Вверх
Nic442
Дата 6.6.2006, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Код

Вижу... Вижу ошибку в TIniFile.Create... Нет прав на запись... 

А что значет нет прав на запись??? Пользователю разрешено создавать и записывать. В правах не ограничен. Поясните пожалуйста...
Код

on e:Exception do ShowMessage(e.ClassName+' - '+e.Message);


Попробуем... 
PM MAIL   Вверх
Nic442
Дата 6.6.2006, 21:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
ДА вспомнил у меня на создание формы стоит тоже TIniFile.Create и при создании ошибку не выдвет. 
PM MAIL   Вверх
Snowy
Дата 6.6.2006, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(Nic442 @  6.6.2006,  21:04 Найти цитируемый пост)
      c := 0;    
      while (c <= Reopen1.Count - 1) do    
      begin    
        ConfigFile.WriteString('OPEN FILES', IntToStr©, Reopen1.Items[c].Caption);    
        Inc©;    
      end;
Интересно, чем вызван такой вариант организации цикла, вместо for?

Цитата(Nic442 @  6.6.2006,  21:04 Найти цитируемый пост)
while (h <= kodirovka1.Count - 1) do
И зачем заводить еще одну переменную для цикла, если уже есть c.

Цитата(Nic442 @  6.6.2006,  21:57 Найти цитируемый пост)
ДА вспомнил у меня на создание формы стоит тоже TIniFile.Create и при создании ошибку не выдвет. 
Это еще ни о чем не говорит.

Поставь на Create бряку (F5) и потом по F8 построчно пройдись и посмотри, на какой строке происходит исключение. 
PM MAIL   Вверх
Nic442
Дата 6.6.2006, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Snowy, 
Код

И зачем заводить еще одну переменную для цикла, если уже есть c.

Да Спасибо не заметил.

Код

Поставь на Create бряку (F5) и потом по F8 построчно пройдись и посмотри, на какой строке происходит исключ

Дело в том, что у меня не стоит win 2000, поэтому этот способ не покатит. :-(

Код

Интересно, чем вызван такой вариант организации цикла, вместо for?

Был for, но переделал, разницы вообще-то никакой, просто я чего-то не взлюбил for после С (писал прогу. Была ошибка. 3 дня искал, взял поменял все for на while и все заработало. Теперь иногда к нему с опаской подхожу...), чего-то я в нем все время путаюсь :-)
Да эта прога меня добьет. Непонятная ошибка. Могу привести полный код на FormClose, но сообщение выскакивает на этом try. 
PM MAIL   Вверх
Mechanic
Дата 7.6.2006, 01:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7
Цитата(Matematik @  6.6.2006,  21:12 Найти цитируемый пост)
Может не быть доступа на запись  


Цитата(Snowy @  6.6.2006,  21:13 Найти цитируемый пост)
Вижу... Вижу ошибку в TIniFile.Create... Нет прав на запись...  



Цитата(Nic442 @  6.6.2006,  21:32 Найти цитируемый пост)
А что значет нет прав на запись??? Пользователю разрешено создавать и записывать. В правах не ограничен. Поясните пожалуйста...


Волхвы то сказали с того ли, с сего.. ©В.С.В.  smile

Будем телепатствовать дальше..
Отдал ты свою прогу на юзинг в 2К винде. Отдал на СиДюке. Эти челы прогу твою запускают даже не с сидюка, может быть, но скопировав её с сидюка не в ТоталКомандире, но в обычном мастдайном эксплорере, а он не понимает, сирый, что с ини-файлов нужно аттрибут "рид-онли" снимать при копировании..  smile  Вот и имеем - нет прав на запись.
Если я не прав, так и скажи, не стесняйся.  smile 

Solve:
attrib *.ini -r 
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
Nic442
Дата 7.6.2006, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Проверил сегодня, ошибка записи. Вы правы!
Код

EIniFileException-Unable to write to ...

Код

Волхвы то сказали с того ли, с сего.. ©В.С.В.

Волхвы то сказали с того и с сего, что примет он смерть от коня своего. (Так точнее)

Цитата

Будем телепатствовать дальше..Отдал ты свою прогу на юзинг в 2К винде. Отдал на СиДюке. Эти челы прогу твою запускают даже не с сидюка, может быть, но скопировав её с сидюка не в ТоталКомандире, но в обычном мастдайном эксплорере, а он не понимает, сирый, что с ини-файлов нужно аттрибут "рид-онли" снимать при копировании..    Вот и имеем - нет прав на запись.Если я не прав, так и скажи, не стесняйся.

А я об этом даже не подумал. Если это так, то СПАСИБО. Попробуем...завтра.
  
PM MAIL   Вверх
Nic442
Дата 8.6.2006, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 5.4.2006
Где: Советский Союз

Репутация: нет
Всего: нет
Цитата

Будем телепатствовать дальше..Отдал ты свою прогу на юзинг в 2К винде. Отдал на СиДюке. Эти челы прогу твою запускают даже не с сидюка, может быть, но скопировав её с сидюка не в ТоталКомандире, но в обычном мастдайном эксплорере, а он не понимает, сирый, что с ини-файлов нужно аттрибут "рид-онли" снимать при копировании..    Вот и имеем - нет прав на запись.Если я не прав, так и скажи, не стесняйся.


Спасибо тебе ПОВЕЛИТЕЛЬ ложек. ТЫ ПОЛНОСТЬЮ ПРАВ, файл был доступен только для чтения. (не зря win 2000 в списке 100 худших программ)
Спасибо всем, кто помог. smile   
PM MAIL   Вверх
Mechanic
Дата 9.6.2006, 09:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7
Цитата(Nic442 @  8.6.2006,  18:48 Найти цитируемый пост)
Спасибо тебе ПОВЕЛИТЕЛЬ ложек. ТЫ ПОЛНОСТЬЮ ПРАВ, файл был доступен только для чтения. (не зря win 2000 в списке 100 худших программ)

Просто это очевидно.

Только почему W2K должна отвечать за кривые руки пользователей?
А что за список 100 худших программ? Имеется в виду "список 100 худших программ, которыми пользуются миллионы?"  smile  Потому как список худших программ на самом деле хранится в корзине, и их названия никому ничего не говорят..  smile  
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0750 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.