Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Копировать на жд файл ресурса / 17 сообщений из 17, страница 1 из 1
13.02.2019, 01:10
    #39773102
Tech N9ne
Tech N9ne
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копировать на жд файл ресурса
Привет..
я добавил в проект ресурсы
добавлял через resources and images

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

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

TFileStream, TResourceStream, CopyFrom.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2019, 10:40
    #39773197
Gator
Gator
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копировать на жд файл ресурса
Всё давно изобретено.
http://www.angusj.com/resourcehacker/
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2019, 14:54
    #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:57
    #39773417
Tech N9ne
Tech N9ne
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копировать на жд файл ресурса
Аа блин, прошу прощения, мой косяк..
Переменной нужно присваивать идентификатор, а не имя файла.
Большое спасибо за помощь!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2019, 14:58
    #39773420
goldmi45
goldmi45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копировать на жд файл ресурса
Tech N9ne,

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

У меня Delphi Rio, там вроде как для D7.. ?
Я так понимаю это тоже самое что и " project -> resources and images "
Только в ручную?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2019, 18:02
    #39773521
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копировать на жд файл ресурса
прежде чем линковать (неважно, вручную или через меню среды),
бинарник нужно перевести в форму RES-файла.
там пример как это сделать.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2019, 18:14
    #39773527
Kazantsev Alexey
Kazantsev Alexey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копировать на жд файл ресурса
Мимопроходящийпрежде чем линковать (неважно, вручную или через меню среды),
бинарник нужно перевести в форму RES-файла.
Ненужно, оно само.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2019, 18:33
    #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:36
    #39773537
Tech N9ne
Tech N9ne
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копировать на жд файл ресурса
Kazantsev AlexeyМимопроходящийпрежде чем линковать (неважно, вручную или через меню среды),
бинарник нужно перевести в форму RES-файла.
Ненужно, оно само.
У меня есть
Project1Resource.rc в котором прописаны эти файлы, которые я добавил.
И есть Project1.res, но там каракули....

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

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



Никаких brcc. Работает, минимум с XE3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Копировать на жд файл ресурса / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 414ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2039803]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 139ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 190ms
total:  414ms
x
x
Закрыть


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