| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ресурс

Страницы:   < 1 2 >

alshtam ©   (2007-09-24 15:38:00) 

положил в res файл bmp и png,bmp читает, а при попытке прочитать png ресурс мне возвращается ошибка что таккого ресурса нет что не так?
считываю  ресурс так:
{$R Sk.res}
....
...
var
 btnLoadOff:Tpngobject;
begin
btnLoadOff:=LoadFromResourceName(hInstance,'КНОПКА_НЕ_НАЖАТА');

---

Gydvin   (2007-09-25 09:16:00) [1]

> alshtam ©   (25.09.07 09:01) [33]
> лови

Ок, спасибо

---

alshtam   (2007-09-25 09:01:00) [2]

лови

---

alshtam   (2007-09-25 08:58:00) [3]

Tpngobject?

---

Gydvin   (2007-09-25 08:56:00) [4]

Скинь мне на почту юниту с этим классом

---

alshtam   (2007-09-25 08:45:00) [5]

работает спасибо, почему не работало пока не знаю, я выкинул из ресурсника все кроме ресурсов названия которых цифры, и заработало, спасибо!!!

---

alshtam   (2007-09-25 08:38:00) [6]

да это есть

---

Gydvin   (2007-09-25 08:32:00) [7]

var
 Form1: TForm1;

implementation

{$R *.dfm}
{$R rec.RES}Это есть? Только нужно свое имя рес файла

---

alshtam   (2007-09-25 08:23:00) [8]

ну говорит что heder файла поврежден

---

Gydvin   (2007-09-25 08:12:00) [9]

Лучше создать новый проект и пробовать там (мало ли чего в старом понаписано)

---

alshtam   (2007-09-25 08:10:00) [10]

странно как то надо сказать что этот код распологается в Onshow окна и на ваш код онругается что нельзя управлять visible окна в onshow.
бред..
попробую в другое место прописать тоже

---

Gydvin   (2007-09-25 07:58:00) [11]

Угу попробуй так

//Чуть адаптировал свой старый код

//.rs

1  RCDATA  "Initiz.png"
2  RCDATA  "Puls.png"

...
var
 ResStream: TResourceStream;
btnLoadOff:TpngObject;
...
btnLoadOff:=TpngObject.Create;
 try
   ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
  btnLoadOff.loadfromstream(ResStream);
 finally
   ResStream.Free;
 end;
btnLoadOff.free;
...

Канает?

---

alshtam   (2007-09-25 07:51:00) [12]

есть  loadfromstream, есть LoadFromResourceName
спотыкается
внутри модуля Tpngobject на строке

try ResStream := TResourceStream.Create(Instance, Name, RT_RCDATA);

---

Gydvin   (2007-09-25 07:49:00) [13]

а loadfromstream есть?

---

Gydvin   (2007-09-25 07:48:00) [14]

что тоже самое? loadfromstream или LoadFromResourceName

---

alshtam   (2007-09-25 07:48:00) [15]

подправил теперь так:
 btnLoadOff.LoadFromResourceName(hInstance,'ADDRON');
но все равно не находит ресурс
подозреваю оно так и было до моих экспериментов, просто ошибся ведь bmp то читает!

---

alshtam   (2007-09-25 07:43:00) [16]

ой , извиняюсь, не прав

---

alshtam   (2007-09-25 07:43:00) [17]

да есть, там все тоже самое

---

Gydvin   (2007-09-25 07:42:00) [18]

Я не юзал TpngObject но там должен быть loadfromstream. Есть?

---

Gydvin   (2007-09-25 07:39:00) [19]

Затем с чего ты заключил, что LoadFromResourceName это функция и она вернет result? Если это проседура. Эта не идет отдельно, она идет в составе какого либо класса например Tbitmap. См. Справку

procedure TForm1.Button1Click(Sender: TObject);

var
BitMap1 : TBitMap;
begin
 BitMap1 := TBitMap.Create;
 try
  BitMap1.LoadFromResourceName(HInstance,'THEBITMAP');
   Canvas.Draw(12,12,BitMap1);
 finally
   BitMap1.Free;
 end;
end;

В составе TpngObject есть LoadFromResourceName ?

---

alshtam   (2007-09-25 07:39:00) [20]

я понимаю что гдето сделал ошибку но где понять не могу!

---

Страницы:   < 1 2 >

Наверх