Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

JPEG из ресурса

nice © (2003-07-06 23:12:00)
Про 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);

SPeller (2003-07-07 13:57:00) [1]

> jpgStream.Position:=0;

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

nice (2003-07-07 13:06:00) [2]
Супер!
всего одну команду не учел -)

jpgStream.Position:=0;

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

BorisMor (2003-07-07 09:32:00) [3]
http://kol.mastak.ru/lessons%2011.htm

Наверх

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