Скачать: CL | DM;

FindResource не находит ресурс   Найти похожие ветки 

← →
Вовка   (2006-03-18 15:52) [0]

Прекрепил к программе ресурс с названием MyRes, но GetLastError после вызова
FindResource возвращает ошибку: Указанное имя ресурса не найдено в файле образа.
Для компиляции файла ресурса использовал утилиту Brcc32, файл .rc выглядет так:

MyRes RT_RCDATA file.ext

Код:

{$R MyRes.res}

procedure TForm1.Button1Click(Sender: TObject);
var
hRes: THandle;
begin
 hRes := FindResource(hInstance,"MyRes",RT_RCDATA);
 ShowMessage(SysErrorMessage(GetLastError)); // ошибка!
end;

Что тут не так?

---

← →
Джо ©   (2006-03-18 15:55) [1]

"MYRES"?

---

← →
Вовка   (2006-03-18 16:09) [2]

Все равно ошибка...

---

← →
Джо ©   (2006-03-18 16:12) [3]

Кстати, вызово функции неправильный. Ты не проверяещь результат перед вызовом GetLastError. Правильно, например, так:

hRes := FindResource(hInstance,"MyRes",RT_RCDATA);
if hRes = nil then
 RaiseLastOSError;


---

← →
Джо ©   (2006-03-18 16:14) [4]

> [3] Джо ©

т.е, не nil, а 0.

---

← →
Вовка   (2006-03-18 16:16) [5]

hRes = 0
Все проверил... как-будто все правильно

---

← →
Reindeer Moss Eater ©   (2006-03-18 16:16) [6]

MyRes RCDATA file.ext

---

← →
Вовка   (2006-03-18 16:21) [7]

> Reindeer Moss Eater ©   (18.03.06 16:16) [6]

Точно. Спасибо!

---

← →
Джо ©   (2006-03-18 16:22) [8]

Хм... Кстати, чего ты его в какую-то странную секцию помещаешь? Используй стандартную RCDATA.

---

← →
Джо ©   (2006-03-18 16:23) [9]

> [6] Reindeer Moss Eater ©   (18.03.06 16:16)

Упс. :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c