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;

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

> jpgStream.Position:=0;

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

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