Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 445

/ вопрос решён /

Здравствуйте. Хочу задать вопрос, почему у меня не получается компилировать ресурс при помощи brcc32.exe. Может он не работает
(Когда я компилирую ресурс, он моргнет и всё, а файла res не появляется).
Этот файл(brcc32.exe) отдельно скачать можно, и если можно подскажите где.
И ещё вопрос? Как мне сделать запись в ini файле, что бы форма обращаясь к нему,
загружаясь, использовала эти параметры([Project1]
Width=500
Height=300
Left=30
Top=20).
Что мне надо ещё дописать, или я написал не правильно.

Толков Геннадий Викторович Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: Толков Геннадий Викторович (статус: Посетитель)
Вопрос отправлен: 31 марта 2007, 01:05
Состояние вопроса: решён, ответов: 2.

Ответ #1. Отвечает эксперт: Николай Рубан

В приложении две процедуры, который создают INI. Одна вносит данные в файл, другая читает (также необходимо прописать uses Inifiles;).

А по поводу компилятора ресурса попробуйте также brc32.exe.

Приложение:
  1.  
  2. procedure TForm1.IniCreateClick(Sender: TObject);
  3. var inif:TIniFile;
  4. begin
  5. inif:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'setting.dat');
  6. with inif do
  7. begin
  8. WriteInteger('Project1','Top',20);
  9. WriteInteger('Project1','Left',30);
  10. WriteInteger('Project1','Width',500);
  11. WriteInteger('Project1','Height',300);
  12. Free;
  13. end;
  14. end;
  15.  
  16.  
  17.  
  18. procedure TForm1.IniLoadClick(Sender: TObject);
  19. var inif:TIniFile;
  20. begin
  21. inif:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'setting.dat');
  22. with inif do
  23. begin
  24. Form1.Top:=ReadInteger('Project1','Top',Form1.top);
  25. Form1.Left:=ReadInteger('Project1','Left',Form1.Left);
  26. Form1.Width:=ReadInteger('Project1','Width',Form1.Width);
  27. Form1.Height:=ReadInteger('Project1','Height',Form1.Height);
  28. Free;
  29. end;
  30. end;


Ответ отправил: Николай Рубан (статус: 10-ый класс)
Время отправки: 31 марта 2007, 10:20
Оценка за ответ: 5

Ответ #2. Отвечает эксперт: Вадим К

Не компилировать ресурс может по многим причинам. Самая простая - у вас ошибка в файле rc.
В таких случаях откройте консоль (пуск - выполнить = "cmd") перейдите в каталог с вашей программой и наберите brcc32 <имя ресурсфайла>
теперь в кнсоли вы увидите сообщение о том, что же именно ему не понравилось

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 2 апреля 2007, 10:50
Оценка за ответ: 5


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 2 апреля 2007, 08:17; участников в обсуждении: 1.
min@y™

min@y™ (статус: Доктор наук), 2 апреля 2007, 08:17 [#1]:

Чтобы окно консоли не исчезало после компиляции ресурса, дабы посмотреть, были ли сообщения об ошибках, надо просто написать вот такой BAT-файл:

@echo on
d:\soft\delphi6\bin\brcc32.exe "file.rc" "file.res"
pause

Как правильно делать файлы *.rc - в интернете полно инфы.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

31 января 2011, 19:26: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:35
Выполнено за 0.03 сек.