Как сохранить параметры в Дельфи?

@denisd · Регистрация: 26.10.2010

Author24 — интернет-сервис помощи студентам

как в делфи в ини файле сохранит директорию картинки чтоб потом при запуске программы открывалась картинка из директории

Delphi
1
:wall:

@Bazhal · 26.10.2010, 12:08

Запись в ini файл

Delphi
1
2
3
MyIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
AppINI.WriteString( 'FOLDERS', 'PICTURE_FOLDER' , <Путь к папке> );
MyIniFile.Free;

Чтение из ini файла

Delphi
1
2
3
MyIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
sPictureFolder := AppINI.ReadString( 'FOLDERS', 'PICTURE_FOLDER' , <Дефолтный путь к папке> );
MyIniFile.Free;

Ну и не забыть подключить INIFiles

@denisd · 27.10.2010, 00:18 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses
 IniFiles;
 
var
 Ini: TIniFile;
 ImagePath: String; // в этой переменной хранится путь картинки
 
Ini := TIniFile.Create('C:\Имя_INI_файла.ini');
 
// запись
Ini.WriteString('IMAGES', 'IMAGE1', ImagePath);
 
// чтение
ImagePath := Ini.ReadString('IMAGES', 'IMAGE1', '' );
 
Ini.Free;

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

Добавлено через 11 минут

Сообщение от denisd

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses
 IniFiles;
 
var
 Ini: TIniFile;
 ImagePath: String; // в этой переменной хранится путь картинки
 
Ini := TIniFile.Create('C:\Имя_INI_файла.ini');
 
// запись
Ini.WriteString('IMAGES', 'IMAGE1', ImagePath);
 
// чтение
ImagePath := Ini.ReadString('IMAGES', 'IMAGE1', '' );
 
Ini.Free;

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

может кто то исправит

@Bazhal · 27.10.2010, 00:33

Сообщение от denisd

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses
 IniFiles;
 
var
 Ini: TIniFile;
 ImagePath: String; // в этой переменной хранится путь картинки
 
Ini := TIniFile.Create('C:\Имя_INI_файла.ini');
 
// запись
Ini.WriteString('IMAGES', 'IMAGE1', ImagePath);
 
// чтение
ImagePath := Ini.ReadString('IMAGES', 'IMAGE1', '' );
 
Ini.Free;

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

А в чем проблема с чтением файла? Ошибки я не вижу. Данный код у меня работает.

@denisd · 27.10.2010, 00:35 **[ТС]**

у меня пишет ошибку
может я неправильно записал код
потому что у меня два события на OnCreate
связаные с ини файлами

@Bazhal · 27.10.2010, 00:39

Какую ошибку? Телепатических способностей я пока за собой не замечал.

@denisd · 27.10.2010, 00:52 **[ТС]**

хотя незнаю
все равно ошибка

Добавлено через 58 секунд
Bazhal, может даш свой проект посмотрю как у тебя

@Bazhal · 27.10.2010, 01:04

В моем проекте кроме строчки вычитки из ини файла нет больше ничего.
Ты лучше приведи текст ошибки, а еще лучше текст ошибки + код события OnCreate

@denisd · 27.10.2010, 01:16 **[ТС]**

приложение запускаеться на выходит ошибка
проект project1 вызвал исключение класса EAaccessViolation c сообщениям "Access Violation at adrress
004f0ca0 in module project1

Добавлено через 1 минуту
код OnCreate

Delphi
1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
begin
sSkinManager1.GetSkinNames(ComboBox1.Items);
ImagePath := Ini.ReadString('IMAGES', 'IMAGE1', '' );
 
Ini.Free;

@Bazhal · 27.10.2010, 01:21

Сообщение от denisd

приложение запускаеться на выходит ошибка
проект project1 вызвал исключение класса EAaccessViolation c сообщениям "Access Violation at adrress
004f0ca0 in module project1

Добавлено через 1 минуту
код OnCreate

Delphi
1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
begin
sSkinManager1.GetSkinNames(ComboBox1.Items);
ImagePath := Ini.ReadString('IMAGES', 'IMAGE1', '' );
 
Ini.Free;

Ну и где тут

Delphi
1
Ini := TIniFile.Create('C:\Имя_INI_файла.ini');

Если этой строки действительно нет, то я не удивлен Access Violation'у

@denisd · 27.10.2010, 01:28 **[ТС]**

создался ини файл и внем записано

[IMAGES]
IMAGE1=

Добавлено через 3 минуты
теперь то прошло на событии OnDestroy
Could not create output file 'C:\Users\admin\Desktop\Íîâàÿ ïàïêà (10)\delphi1\Project1.exe'

@denisd · 27.10.2010, 01:32 **[ТС]**

Delphi
1
2
3
4
procedure TForm1.FormDestroy(Sender: TObject);
begin
Ini.WriteString('IMAGES', 'IMAGE1', ImagePath);
end;

@Bazhal · 27.10.2010, 01:38

Сообщение от denisd

создался ини файл и внем записано

[IMAGES]
IMAGE1=

А что там еще должно быть написано, если ини файл только создался?

Сообщение от denisd

Добавлено через 3 минуты
теперь то прошло на событии OnDestroy
Could not create output file 'C:\Users\admin\Desktop\Íîâàÿ ïàïêà (10)\delphi1\Project1.exe'

Здается мне, что ини-файл здесь ни при чем..

Добавлено через 2 минуты

Сообщение от denisd

Delphi
1
2
3
4
procedure TForm1.FormDestroy(Sender: TObject);
begin
Ini.WriteString('IMAGES', 'IMAGE1', ImagePath);
end;

Э-э-э. Я так понимаю, что тут должно быть так

Delphi
1
2
3
4
5
6
procedure TForm1.FormDestroy(Sender: TObject);
begin
Ini := TIniFile.Create('C:\Имя_INI_файла.ini');
Ini.WriteString('IMAGES', 'IMAGE1', ImagePath);
Ini.Free;
end;

@denisd · 27.10.2010, 01:46 **[ТС]**

теперь запускаеться и при закрытии программы пишет
проект 1 вызвал исключение класса EPrivelege c сообщением Priviliged instruction

Добавлено через 4 минуты
теперь все вроде запускаеться и ничего не сохраняеться
меня уже это заманало одна картинка и столько проблем

а тот первый пример
<Путь к папке>
надо самостоятельно прописывать директорию или просто там оставить пустым

@Bazhal · 27.10.2010, 01:51

Ты всеравно где-то обращаешься к несуществующим (или еще не созданным) объектам. Такими темпами мы никуда не придем.. Это как в темной комнате черного кота.. Можешь выложить весь проект или это большая тайна?

@denisd · 27.10.2010, 01:52 **[ТС]**

я то выложу но он большой

@Bazhal · 27.10.2010, 02:00

Если можешь - выкладывай. Иначе вслепую я врядли помогу. Мне уже просто интерестно насколько большим может быть проект с названием Project1

@denisd · 27.10.2010, 16:08 **[ТС]**

извини за внезапное выключение у меня свет выключили

@Bazhal · 27.10.2010, 18:10

Не страшно. Если хочешь, чтоб я помог, выложи проект или, если он действительно настолько большой, хотябы *.pas файлы.

@denisd · 27.10.2010, 18:16 **[ТС]**

я выложу маленький на нем понятней сделать

Новые блоги и статьи Все статьи Все блоги /
Динамические массивы в C++ - создание и использование NullReferenced 27.04.2025 Динамические массивы представляют собой один из фундаментальных инструментов программирования на C++, позволяющий создавать структуры данных, размер которых определяется во время выполнения. . .	Асинхронный JavaScript: Промисы, Async/Await и Fetch API Reangularity 27.04.2025 Пользователь заходит на веб-страницу, нажимает кнопку и. . . ничего не происходит. Сайт словно замер. Через несколько секунд всё внезапно оживает, но пользователь уже успел закрыть вкладку. Знакомая. . .	Management on GitLab and repository management in Visual Studio code jigi33 27.04.2025 - repo management on GitLab - CI/ CD in GitLab - VCS repository management in Visual Studio code (see attachments)	Kanban или Scrum - что выбрать? EggHead 27.04.2025 Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .	Кастомные Middleware на C# в ASP.NET Core UnmanagedCoder 27.04.2025 Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .

@denisd 3 / 3 / 0 Регистрация: 26.10.2010 Сообщений: 30
	27.10.2010, 00:35 [ТС]
	у меня пишет ошибку может я неправильно записал код потому что у меня два события на OnCreate связаные с ини файлами 0

@Bazhal 23 / 23 / 3 Регистрация: 27.07.2010 Сообщений: 71
	27.10.2010, 00:39
	Какую ошибку? Телепатических способностей я пока за собой не замечал. 0

@denisd 3 / 3 / 0 Регистрация: 26.10.2010 Сообщений: 30
	27.10.2010, 00:52 [ТС]
	хотя незнаю все равно ошибка Добавлено через 58 секунд Bazhal, может даш свой проект посмотрю как у тебя 0

@Bazhal 23 / 23 / 3 Регистрация: 27.07.2010 Сообщений: 71
	27.10.2010, 01:04
	В моем проекте кроме строчки вычитки из ини файла нет больше ничего. Ты лучше приведи текст ошибки, а еще лучше текст ошибки + код события OnCreate 0

@denisd 3 / 3 / 0 Регистрация: 26.10.2010 Сообщений: 30
	27.10.2010, 01:28 [ТС]
	создался ини файл и внем записано [IMAGES] IMAGE1= Добавлено через 3 минуты теперь то прошло на событии OnDestroy Could not create output file 'C:\Users\admin\Desktop\Íîâàÿ ïàïêà (10)\delphi1\Project1.exe' 0

@denisd 3 / 3 / 0 Регистрация: 26.10.2010 Сообщений: 30
	27.10.2010, 01:46 [ТС]
	теперь запускаеться и при закрытии программы пишет проект 1 вызвал исключение класса EPrivelege c сообщением Priviliged instruction Добавлено через 4 минуты теперь все вроде запускаеться и ничего не сохраняеться меня уже это заманало одна картинка и столько проблем а тот первый пример <Путь к папке> надо самостоятельно прописывать директорию или просто там оставить пустым 0

@Bazhal 23 / 23 / 3 Регистрация: 27.07.2010 Сообщений: 71
	27.10.2010, 01:51
	Ты всеравно где-то обращаешься к несуществующим (или еще не созданным) объектам. Такими темпами мы никуда не придем.. Это как в темной комнате черного кота.. Можешь выложить весь проект или это большая тайна? 0

@denisd 3 / 3 / 0 Регистрация: 26.10.2010 Сообщений: 30
	27.10.2010, 01:52 [ТС]
	я то выложу но он большой 0

@Bazhal 23 / 23 / 3 Регистрация: 27.07.2010 Сообщений: 71
	27.10.2010, 02:00
	Если можешь - выкладывай. Иначе вслепую я врядли помогу. Мне уже просто интерестно насколько большим может быть проект с названием Project1 0

@denisd 3 / 3 / 0 Регистрация: 26.10.2010 Сообщений: 30
	27.10.2010, 16:08 [ТС]
	извини за внезапное выключение у меня свет выключили 0

@Bazhal 23 / 23 / 3 Регистрация: 27.07.2010 Сообщений: 71
	27.10.2010, 18:10
	Не страшно. Если хочешь, чтоб я помог, выложи проект или, если он действительно настолько большой, хотябы *.pas файлы. 0

@denisd 3 / 3 / 0 Регистрация: 26.10.2010 Сообщений: 30
	27.10.2010, 18:16 [ТС]
	я выложу маленький на нем понятней сделать 0