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

JPEG из ресурса   Найти похожие ветки 

← →
nice   (2003-07-06 23:12) [0]

Про midi я так и ненашел хорошего метода загрузки -(.

Но это ладно, может подскажете в чем ошибка ( только не говорите, что в генах -)
При методе JPG.LoadFromStreang
JPG.Free;
 JPG := NewJpeg;
 jpgStream := NewMemoryStream;
 if Resource2Stream(jpgStream,hInstance,"BGJPG",RT_RCDATA)>0 then begin
   i:=jpgStream.Size;  // Вот здесь i = размеру Jpeg файла
   JPG.LoadFromStream(jpgStream);
   if Jpg.Empty then ShowMessage("Error!!!"); // Здесь показывает, Emty  
                                              // =true, значит  пусто
   PaintBox1.Invalidate;
 end;

Я прошелся отладчиком,  в JpegObj меня смутила функция получается
в ней Stream.Size(размер) - Stream.Position(Опять размер) = 0 !! Почему так странно?
ReadStream(Stream.Size - Stream.Position, Stream);

---

← →
BorisMor ©   (2003-07-07 09:32) [1]

http://kol.mastak.ru/lessons%2011.htm

---

← →
nice   (2003-07-07 13:06) [2]

Супер!
всего одну команду не учел -)

jpgStream.Position:=0;

Спасибо большое!

---

← →
SPeller ©   (2003-07-07 13:57) [3]

> jpgStream.Position:=0;

Бывает. StrList, например, в методе LoadFromStream считывает с текущей позиции. И если указатель в конце, то он, соответственно, нифига не загрузит.

---

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

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



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