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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проблема с INI 
:(
    Опции темы
delphi_
Дата 8.4.2007, 17:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

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



procedure TForm1.Button2Click(Sender: TObject);
var
Version:string;
IniFile:TIniFile;

begin

 inifile:=TiniFile.Create(extractfilepath(Application.ExeName)+'ini.ini');
 TRY
 Version:=IniFile.ReadString('LALA', 'version', 'gg');
   label1.caption:=version;
   finally
IniFile.Free;

сам ини файл


[LALA]
version=17777



пробовал сделать так-
Код

path:=extractfilepath(Application.ExeName)+'ini.ini';

путь правильный
что я не так делаю?
PM MAIL   Вверх
Sergius
Дата 8.4.2007, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2007

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

var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create((IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))) + 'Ini.ini');
  Caption := Ini.ReadString('About', 'Version', '1234567');
  Ini.Free;


О как!  smile 

Это сообщение отредактировал(а) Alexeis - 15.4.2007, 13:14
PM MAIL   Вверх
Insert
Дата 8.4.2007, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

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

var
   ln: byte;
   Ini : TIniFile;
   Root: string; // адрес папки с exe
begin
 ln := 255;
 SetLength(Root, ln);
 ln := windows.GetCurrentDirectory(ln, PChar( Root ));
 SetLength( Root, ln );
 Ini := TIniFile.Create( Root + '\Ini.ini');


 Вот так!  smile 

Это сообщение отредактировал(а) Alexeis - 8.4.2007, 20:47
--------------------
пьяный русский кодер практически непобедим
PM MAIL   Вверх
aktuba
Дата 8.4.2007, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

TIniFile.Create((IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))) + 'Ini.ini');


Какая-то страшная строка  smile Так проще:
Код

TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Ini.ini');



--------------------
user posted image
PM MAIL WWW Skype   Вверх
Guedda
Дата 8.4.2007, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


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

Репутация: 14
Всего: 78
А ещё проще IncludeTrailingBackSlash


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Sergius
Дата 8.4.2007, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2007

Репутация: нет
Всего: нет
Цитата(Guedda @ 8.4.2007,  18:37)
А ещё проще IncludeTrailingBackSlash

Да вы правы.

Код

var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create(IncludeTrailingBackSlash(ParamStr(0)) + 'Ini.ini');
  Caption := Ini.ReadString('About', 'Version', '1234567');
  Ini.Free;


 smile

Добавлено @ 18:52
Цитата(aktuba @ 8.4.2007,  18:33)
Цитата

TIniFile.Create((IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))) + 'Ini.ini');


Какая-то страшная строка  smile Так проще:
Код

TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Ini.ini');

Поэксперементируйте и поймете, что это не есть гуд...

Это сообщение отредактировал(а) Alexeis - 8.4.2007, 20:48
PM MAIL   Вверх
aktuba
Дата 8.4.2007, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

Поэксперементируйте и поймете, что это не есть гуд...


Почему??? Эксперементы не выявили глюков. Может вы подскажете?


--------------------
user posted image
PM MAIL WWW Skype   Вверх
delphi_
Дата 8.4.2007, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
нет,всеравно он какбудто конфиг не видит и выдает дефолт значение...бред какойто =(
PM MAIL   Вверх
aktuba
Дата 8.4.2007, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

нет,всеравно он какбудто конфиг не видит и выдает дефолт значение...бред какойто =( 


Тогда объясни подробнее, где что лежит. И покажи полный код...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
delphi_
Дата 8.4.2007, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
файл ini.ini лежит собственно в директории программы.мне нужно из него просто узнать значение version..
смысл давать полный код,только эта процедура с ини работает,другие вообще его не трогают...собственно с процедурой и мучаюсь
PM MAIL   Вверх
Yanis
Дата 8.4.2007, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Sergius @  8.4.2007,  19:51 Найти цитируемый пост)
Да вы правы.

var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create(IncludeTrailingBackSlash(ParamStr(0)) + 'Ini.ini');
  Caption := Ini.ReadString('About', 'Version', '1234567');
  Ini.Free;

smile
Будь добр оформляй примеры кода в тег code.


M
Alexeis		Модератор: спасибо Yanis, добавлю что выделение кода это не просто рекомендация, 

а требование записанное в правилах форума обязательное к выполнению.


Это сообщение отредактировал(а) Alexeis - 8.4.2007, 20:55


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
delphi_
Дата 9.4.2007, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
Народ,как поступить то?попробовал щас сделать новый проект-всеравно не читает данные в INI и выводит дефолт

Код

procedure TForm1.Button1Click(Sender: TObject);
var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create(IncludeTrailingBackSlash(ParamStr(0)) + 'ini.ini');
  label1.Caption := Ini.ReadInteger('version', 'ver', '1234567');
  Ini.Free;
end;


Код

[version]
ver=11
PM MAIL   Вверх
Yanis
Дата 9.4.2007, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
delphi_
Ты уверен, что ini файл называется project1.exe\ini.ini?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
delphi_
Дата 9.4.2007, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
да,Уверен 100%
PM MAIL   Вверх
aktuba
Дата 9.4.2007, 12:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

Ты уверен, что ini файл называется project1.exe\ini.ini? 


Твой файл называется ini.ini, а не project1.exe\ini.ini =))) Yanis проверял тебя =)))) Он имел в виду, что ты добавляешь название ini файла не к директории, а к исполняемому файлу. Т.е. вместо Projects\ini.ini ты получаешь Projects.exe\ini.ini Соответственно такого файла нет, вот тебе и возвращается дефолтное значение =)))

P.S: замени ReadInteger на ReadString =))))

Прикладываю ТВОЙ же код, который работает =))))

Это сообщение отредактировал(а) aktuba - 9.4.2007, 12:48

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  test.rar 51,92 Kb


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Yanis
Дата 9.4.2007, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(delphi_ @  9.4.2007,  13:43 Найти цитируемый пост)
да,Уверен 100% 

Да? А точно не так:
Код
ExtractFilePath(ParamStr(0)) + 'ini.ini'

?

Добавлено через 36 секунд
Цитата(delphi_ @  9.4.2007,  13:43 Найти цитируемый пост)
да,Уверен 100%

Гонишь!


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
aktuba
Дата 9.4.2007, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

Гонишь! 



Yanis, не издевайся =))) Видно же, что новичок...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Yanis
Дата 9.4.2007, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(aktuba @  9.4.2007,  13:50 Найти цитируемый пост)
Yanis, не издевайся =))) Видно же, что новичок... 

Вижу. Но это не отговрка что бы флудить тут.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
delphi_
Дата 9.4.2007, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
Цитата(aktuba @ 9.4.2007,  12:45)
Цитата

Ты уверен, что ini файл называется project1.exe\ini.ini? 


Твой файл называется ini.ini, а не project1.exe\ini.ini =))) Yanis проверял тебя =)))) Он имел в виду, что ты добавляешь название ini файла не к директории, а к исполняемому файлу. Т.е. вместо Projects\ini.ini ты получаешь Projects.exe\ini.ini Соответственно такого файла нет, вот тебе и возвращается дефолтное значение =)))

P.S: замени ReadInteger на ReadString =))))

Прикладываю ТВОЙ же код, который работает =))))

 я не совсем понимаю чем отличаеться код в файле от кода в моем первом посте))
PM MAIL   Вверх
Yanis
Дата 9.4.2007, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
delphi_
Скажи, что показывает этот код:
Код
ShowMessage(BoolToStr(FileExists(extractfilepath(Application.ExeName)+'ini.ini'), True));



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
aktuba
Дата 9.4.2007, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

я не совсем понимаю чем отличаеться код в файле от кода в моем первом посте)) 


Наверное ни чем. Не сравнивал. Но мой код работает - 100% =)


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Sergius
Дата 9.4.2007, 19:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2007

Репутация: нет
Всего: нет
Цитата(aktuba @ 8.4.2007,  19:10)
Цитата

Поэксперементируйте и поймете, что это не есть гуд...


Почему??? Эксперементы не выявили глюков. Может вы подскажете?

2 Yanis Очень жаль.. Копайте глубже, если не найдете подкину..


2 Yanis and Модератор
Исправлюсь.. Честно - честно...
PM MAIL   Вверх
Yanis
Дата 9.4.2007, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Sergius @  9.4.2007,  20:15 Найти цитируемый пост)
2 Yanis Очень жаль.. Копайте глубже, если не найдете подкину..

До Земного ядра копать? Что искать? Что подкинешь?
У меня пока труднойстей никаких не возникало в связи с этой темой.
А у тебя, судя по всему проблемы.
Мне тоже очень жаль.

Окстись, Sergius.

Это сообщение отредактировал(а) Yanis - 9.4.2007, 19:48


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Sergius
Дата 9.4.2007, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2007

Репутация: нет
Всего: нет
Вой не тому отправил... писал для aktuba   smile 
PM MAIL   Вверх
aktuba
Дата 9.4.2007, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

Очень жаль.. Копайте глубже, если не найдете подкину..


Не нашел ни сейчас, ни раньше... Так что?


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Sergius
Дата 9.4.2007, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2007

Репутация: нет
Всего: нет
Цитата(aktuba @ 9.4.2007,  20:01)
Цитата

Очень жаль.. Копайте глубже, если не найдете подкину..


Не нашел ни сейчас, ни раньше... Так что?

Завтра вечерком загляните напишу.
PM MAIL   Вверх
aktuba
Дата 10.4.2007, 22:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

Завтра вечерком загляните напишу. 


Ау...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Lence
Дата 14.4.2007, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: 3
Всего: 3
уууу как страшно ....  а еще проще ? 
Код

var
sIniFile: TIniFile;
w, version : string;
begin
      w:= ExtractFilePath(paramstr(0));
      sIniFile := TIniFile.Create(w+ 'ini.ini');
      version:= sIniFile.Ini.ReadString('About', 'Version', '1234567');
      sIniFile.free;


 smile  smile   пойдет ? и всегда у тебя будет нормальный путь.
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
lukas
Дата 16.4.2007, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15
Lence, 

да но при чтении с CD ... extractfilepath не работает... поэтому нужно пользоваться 

Код

GetDir(0, var str:string);



Код

Function ReadVer:string;
var
sIniFile: TIniFile;
w, version : string;
begin
      GetDir(0, w);  {не нужно также забывать про ChDir - иначе может получится неразбериха с путями, поэтому путь к папки программы нужно извлекать сразу при ее запуске}
      sIniFile := TIniFile.Create(w+ '\ini.ini');
      version:= sIniFile.Ini.ReadString('About', 'Version', 'Not Found');
      sIniFile.free;
end;



--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
MetalFan
Дата 16.4.2007, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Цитата(lukas @  16.4.2007,  10:33 Найти цитируемый пост)
да но при чтении с CD ... extractfilepath не работает

что за бред? причем тут ExtractFilePath и носитель?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
aktuba
Дата 16.4.2007, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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

да но при чтении с CD ... extractfilepath не работает...


да ну???? во всех программах работает, а тут нет... ничего не путаешь???


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Lence
Дата 16.4.2007, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: 3
Всего: 3
Цитата(lukas @ 16.4.2007,  10:33)
Lence, 
да но при чтении с CD ... extractfilepath не работает... поэтому нужно пользоваться ...


У меня всегда с CD работало ... с любого носителя мне возвращался путь до файла, и никогда пути не путались
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
Страницы: (3) [Все] 1 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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