Ресурсы приложения, не пойму в чём проблема.

[Air]

Создаю res файл такого вида:

+Resource.res
 +Icon
  101

Загружаю так.

var
Res : TResourceStream;
begin
Res:=TResourceStream.CreateFromID(hinstance, 101, RT_ICON);
...
end;

Выдаёт "Ошибка доступа по адресу ..."

А если сделать так:

+Resource.res
 +"Icon"
  101

То всё работает.

Что не так?

Хочу заметить, что если по нормальному загружать ресурс ICO то он автоматически становится Icon, а не "Icon"
RT_ICON - пробовал писать pchar('ICON'); и pchar('Icon');

[Air]

А что никто ничего не знает?
Странно

[JTG]

Присоединяюсь! Такая же ситуация со всеми предопределёнными типами (RT_XXX)
Прям крыша едет, я уж думал это у меня руки покривились X_X

Даже так не пашет )))
Res:=TResourceStream.Create(hinstan ce, '101', RT_ICON);
и pchar в любых комбинациях

[Карась]

Air кинь проект архивом..

[Alter]

Почитайте:
http://delphiworld.narod.ru/base/jpg_to_exe.html
http://forum.sysman.ru/index.php?showtopic=1380&st=40
http://decoding.narod.ru/practic/resource/resource.html
http://www.softsl.com/Pagsect-168.html

[JTG]

Alter
"Дуся, вы меня озлобляете. Я, как человек, измученный нарзаном..." © Монтёр Мечников

У нас 22.00 а я торчу на работе над одной строчкой кода, из принципа, патамушо но не работает, А ДОЛЖНО!!!

[alexBlack]

Res:=TResourceStream.CreateFromID(h Instance, 101, RT_GROUP_ICON);

[JTG]

Так тоже не пашет.
Сижу с отладчиком

Стек
0012F5DC 00400000 |hModule = 00400000 (Project1)
0012F5E0 0044D968 |ResourceName = "101"
0012F5E4 00000003 \ResourceType = RT_ICON


Код
00415ACD |. PUSH EAX ; ResourceType = RT_ICON
00415ACE |. MOV EAX, [LOCAL.1] ; Project1.0044D968
00415AD1 |. PUSH EAX ; ResourceName = "101"
00415AD2 |. PUSH ESI ; hModule = 00400000 (Project1)
00415AD3 |. CALL <JMP.&kernel32.FindResourceA> ; FindResourceA

Получаем
ERROR_RESOURCE_TYPE_NOT_FOUND (00000716)

Ничё не понимаю.. Там в мсдн ещё что-то про #101 пишут
Косяк именно с вот этим - RT_ХХХХ, "свои" типы ресурсов грузит на ура


Итого:
работает
FindResource(hInstance, pchar(101), RT_GROUP_ICON)

не работает
FindResource(hInstance, 101, RT_GROUP_ICON)
FindResource(hInstance, pchar('101'), RT_GROUP_ICON)
TResourceStream.Create(hInstance, pchar(101),RT_GROUP_ICON);
а также MAKEINTRESOURCE, просто 101 и вообще всё.. Шо за фигня? Путаница с типами

[alexBlack]

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

Так тоже не пашет.

Странно, а у меня работает.

TResourceStream.CreateFromID вызывает:
HResInfo := FindResource(Instance, PChar(ResID), ResType);
(интересное приведение PCahr(integer)) т.е. для

Res:=TResourceStream.CreateFromID(h Instance, 101, RT_GROUP_ICON);
--> FindResource(hInstance, pchar(101), RT_GROUP_ICON)

[Air]

Ух как не ожиданно

Там просили выложить исходник, я вывел только основную задачу.
Извините что не выложил проект, он ещё не готов

FindResource(hInstance, pchar(101), RT_GROUP_ICON)
Куда мне применить её результат?
P.S. RT_GROUP_ICON - также не катит....
Может в делфи какая-то ошибка...?
Но ведь свою иконку-то он подгружает...
P.P.S. у меня D7 если что...