![]() |
|
Модераторы: Snowy, MetalFan, bems, Poseidon |
![]()
|
|
| tar13 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 6.4.2007 Репутация: нет Всего: нет |
В моей программе, компонент memo грузил текст из блокнота. Появилась необходимость поместить содержимое блокнота в exe файл, т.е. создать ресурс, я создал ресурс TEXT1.res, вопрос: каким образом теперь использовать этот ресурс, как его загрузить в memo.
Ещё раз: есть memo есть TEXT1.RES, созданный из блокнота с текстом КАК загрузить ресурс? подскажите пожалуйста код С уважением tar P.S. шутки, высказывания прорицателей пожалуйста не присылайте, дайте дельный совет, желательно код или хотя бы ссылку с примером загрузки текста в memo из ресурса, хотя я думаю быстрее и проще сказать код. Спасибо |
|||
|
||||
| Alexeis |
|
|||
![]() Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 34 Всего: 459 |
Это сообщение отредактировал(а) Alexeis - 6.4.2007, 13:16 Присоединённый файл ( Кол-во скачиваний: 14 )
resstr_2007.04.06_13.16.rar 1,99 Kb-------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| tar13 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 6.4.2007 Репутация: нет Всего: нет |
Хм, первоначально я сам использовал такой код, но выходит ошибка несоотвтствия типов:
incompatible types: 'string' & 'TResourceStream' |
|||
|
||||
| Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 31 Всего: 484 |
Это потому что у тебя был неправильный код.
А правильный - этот |
|||
|
||||
| tar13 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 6.4.2007 Репутация: нет Всего: нет |
Думаю что у меня проблема с созданием ресурса, у меня Delphi7, пользуюсь WorkShop 4.5
Я создаю блокнот с любым текстом с именем memotext Создаю блокнот text.rc, в котором пишу: memotext text memotext.txt Открываю его через WorkShop и сохраняю как text.res Далее создаю проект, на форму помещаю memo, далее пишу ключ {$R text.res} Далее в событие создание формы пишу ... var res: TresourceStream Begin res:= Tresourcestream.create(hInstance, 'text', RT_RCDATA); memo.lines.loadfromstream(res); res.free; ... При попытке запуска проекта пишется error rlink32: unsupported 16-bit resource data Может проблема с WorkShop, кстати я создавал ресурс из bitmap файлов, выходила та же ошибка, но потом я открывал созданный ресурс в борландовском image editor и снова сохранял без изменений в том же формате с тем же именем Запускал проект и всё нормально работало ??? Delphi 7 английская, WorkShop 4.5 тоже английский - подскажите пожалуйста |
|||
|
||||
| aktuba |
|
|||
![]() Смышленный ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1915 Регистрация: 24.4.2006 Где: Планета Земля Репутация: 7 Всего: 38 |
Замени RT_RCDATA на 'memotext'...
-------------------- ![]() |
|||
|
||||
| Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 31 Всего: 484 |
В комплект дельфи входит brcc32 - это стандартный инструмент для создания ресурсов для своей программы.
|
|||
|
||||
| Alexeis |
|
|||
![]() Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 34 Всего: 459 |
tar13, я пользовался Restoratorом
-------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| BLACK_KOT |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 305 Регистрация: 20.12.2006 Репутация: нет Всего: -1 |
подскажите, как связать текстовую переменную с текстовым файлом, находящимся в ресурсе для изалечения из него энной строки?
-------------------- .. я - демо версия Бога от Microsoft.. |
|||
|
||||
| MetalFan |
|
|||
![]() Аццкий Сотона ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3815 Регистрация: 2.10.2006 Где: Moscow Репутация: 22 Всего: 128 |
BLACK_KOT, а зачем такой изврат?
-------------------- There are always someone smarter than you... |
|||
|
||||
| Alexeis |
|
|||
![]() Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 34 Всего: 459 |
BLACK_KOT, после извлечения из ресурса он сразу же будет блоком в памяти, который не сложно загрузить в TStringList.
-------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| BLACK_KOT |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 305 Регистрация: 20.12.2006 Репутация: нет Всего: -1 |
покажи на примере, как загрузить текстовый файл из ресурса в Tstringlist и как достать к примеру 5ую строку.
-------------------- .. я - демо версия Бога от Microsoft.. |
|||
|
||||
| aktuba |
|
||||
![]() Смышленный ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1915 Регистрация: 24.4.2006 Где: Планета Земля Репутация: 7 Всего: 38 |
Вот кусок из моей старой программы:
-------------------- ![]() |
||||
|
|||||
| BLACK_KOT |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 305 Регистрация: 20.12.2006 Репутация: нет Всего: -1 |
допустим в exe файле есть ресурс с двумя, одинаковыми по размеру иконками. отображаться, разумеется будет тока одна. а как сделать чтобы при определённых условиях иконка exeшника менялась на вторую? вообще, можно ли программно сменить иконку у файла?
-------------------- .. я - демо версия Бога от Microsoft.. |
|||
|
||||
| Alexeis |
|
|||
![]() Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 34 Всего: 459 |
Файл файлу рознь. Для обычных типов ассоциации устанавливаются в реестре, а для экзешников берутся из ресурса самого MainIcon. Вопрос не досточно конкретизирован. -------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
![]()
|
| Правила форума "Delphi: Для новичков" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Для новичков | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |