ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Копировать на жд файл ресурса
17 сообщений из 17, страница 1 из 1
Копировать на жд файл ресурса
    #39773102
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Привет..
я добавил в проект ресурсы
добавлял через resources and images

условно:
файл - qwe.mdl
resource identifer - Resource_1
resource type - RCDATA

мне их нужно из программы скопировать на жд
может кто-то объяснить, каким образом это делается?
...
Рейтинг: 0 / 0
13.02.2019, 01:10
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773104
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Tech N9neможет кто-то объяснить, каким образом это делается?

TFileStream, TResourceStream, CopyFrom.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.02.2019, 01:18
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773197
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
Всё давно изобретено.
http://www.angusj.com/resourcehacker/
...
Рейтинг: 0 / 0
13.02.2019, 10:40
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773415
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Dimitry SibiryakovTech N9neможет кто-то объяснить, каким образом это делается?

TFileStream, TResourceStream, CopyFrom.


Пытаюсь сохранить
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
var
  ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(HInstance, 'qwe.mdl', RT_RCDATA);
  try
    ResStream.Position := 0;
    ResStream.SaveToFile('C:\qwe.mdl');
  finally
    ResStream.Free;
  end;
end;


Ошибка: resource qwe.mdl not found.
Что я делаю не так?
...
Рейтинг: 0 / 0
13.02.2019, 14:54
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773417
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Аа блин, прошу прощения, мой косяк..
Переменной нужно присваивать идентификатор, а не имя файла.
Большое спасибо за помощь!!
...
Рейтинг: 0 / 0
13.02.2019, 14:57
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773420
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Tech N9ne,

Проверьте, действительно ли ресурс прикомпилился к экзешнику. Проверить можно 21808120
...
Рейтинг: 0 / 0
13.02.2019, 14:58
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773483
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Сую в ресурсы mdl файл, нормальный, рабочий файл.
После того как делаю ResStream.SaveToFile, файл появляется, но как будто битый. Программа mdl viewer уже не может открыть этот файл...
вес остаётся таким же, вроде всё тот же файл, но уже не рабочий..
...
Рейтинг: 0 / 0
13.02.2019, 16:38
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773486
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
а ты его перед тем как линковать конвертил в RES-файл?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.02.2019, 16:40
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773490
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Мимопроходящийа ты его перед тем как линковать конвертил в RES-файл?

Нет, а как это?))
Я просто загрузил mdl файл через "project-resources and images"

файл - qwe.mdl
resource identifer - Resource_1
resource type - RCDATA

После этого пытаюсь копировать на жд
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
var
  ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(HInstance, 'qwe.mdl', RT_RCDATA);
  try
    ResStream.Position := 0;
    ResStream.SaveToFile('C:\qwe.mdl');
  finally
    ResStream.Free;
  end;
end;



Объясните, если можно кодом, какую часть я упустил?
...
Рейтинг: 0 / 0
13.02.2019, 16:44
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773494
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
20405880
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.02.2019, 16:57
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773518
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Мимопроходящий 20405880

У меня Delphi Rio, там вроде как для D7.. ?
Я так понимаю это тоже самое что и " project -> resources and images "
Только в ручную?
...
Рейтинг: 0 / 0
13.02.2019, 17:58
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773521
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
прежде чем линковать (неважно, вручную или через меню среды),
бинарник нужно перевести в форму RES-файла.
там пример как это сделать.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
13.02.2019, 18:02
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773527
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
Мимопроходящийпрежде чем линковать (неважно, вручную или через меню среды),
бинарник нужно перевести в форму RES-файла.
Ненужно, оно само.
...
Рейтинг: 0 / 0
13.02.2019, 18:14
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773535
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Мимопроходящий,
У меня не получается.
Создаю файл MyRes.rc,
Код: pascal
1.
Project1  RCDATA  "путь к Project1.exe"




Потом в той же папке создаю бат-файл. с таким содержимым:
Код: pascal
1.
2.
Brcc32.exe -v MyRes.rc
pause



После запуска открывается cmd окошко, в котором :
"Brcc32.exe" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
просит нажать любую клавишу и после закрывается.

После всего этого не появляется никакого res файла.
Что я не так сделал?
...
Рейтинг: 0 / 0
13.02.2019, 18:33
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773537
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Kazantsev AlexeyМимопроходящийпрежде чем линковать (неважно, вручную или через меню среды),
бинарник нужно перевести в форму RES-файла.
Ненужно, оно само.
У меня есть
Project1Resource.rc в котором прописаны эти файлы, которые я добавил.
И есть Project1.res, но там каракули....

Ясно, я так понимаю, возвращаюсь назад к вопросу, почему после сохранения ресурса, он перестаёт быть рабочим?
...
Рейтинг: 0 / 0
13.02.2019, 18:36
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39773540
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
Tech N9neвозвращаюсь назад к вопросу, почему после сохранения ресурса, он перестаёт быть рабочим?
Удали .dres, сделай проекту ребилд.
...
Рейтинг: 0 / 0
13.02.2019, 18:42
| Ответить | Цитировать | Написать  
Копировать на жд файл ресурса
    #39774636
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Tech N9ne,

Добавь rc файл в проект и все. После этого в dpr файле появится строчка включения ресурса
Код: pascal
1.
{$R 'MyRes.res' 'MyRes.rc'}



Никаких brcc. Работает, минимум с XE3
...
Рейтинг: 0 / 0
15.02.2019, 16:20
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Копировать на жд файл ресурса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39773104&tid=2039803]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 158ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 238ms
total:  472ms
созд. / загр.: 472ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]