Смотрим код чтения стрима doLoadFromStream
procedure THIJpeg._work_doLoadFromStream;
var st:PStream;
begin
st := ReadStream(_data,_data_Stream,nil);
if st <> nil then
{$ifdef gdip}
{$else}
jpg.LoadFromStream(st);
{$endif}
end; procedure LoadFromStream(Stream: PStream);
{* Loads JPeg image from a stream (from current position). }
{* Loads JPeg image from a stream (from current position). }
те от текущей позиции, и в нашем случае получается что от конца. И пока я не сделал вот так (обнуление позиции в MemoryStream я тоже пробовал -- не помогло)
procedure THIJpeg._work_doLoadFromStream;
var st:PStream;
begin
st := ReadStream(_data,_data_Stream,nil);
st.Position := 0; // вставка
if st <> nil then
{$ifdef gdip}
{$else}
jpg.LoadFromStream(st);
{$endif}
end;
Поиск
Друзья
Администрация