TMemoryStream считать несколько TBitmap

[100GRamm]

Доброго времени!
Никак не могу понять почему возникает ошибка (точнее Вин7 совсем закрывает прогу)
Делаю следущее:

  BTM:=TBitmap.Create;
  MS1:=TMemoryStream.Create;
  MS1.LoadFromFile(f);      // в файл до этого записал несколько БМП, но не с начала
  MS1.Position:=zer;     // начало данных 
  MS1.ReadBuffer (BTM,ie+zer);  //  тут прога мрет

ie - длина блока
до этого с TMemoryStream не работал, хочу разобраться

BTM:=TBitmap.Create;
  MS1:=TMemoryStream.Create;
  MS2:=TMemoryStream.Create;
  MS1.LoadFromFile(f);
  MS1.Position:=zer;
  MS2.Position:=0;
  MS2.CopyFrom(MS1, ie);
  BTM.LoadFromStream(MS2);

А так всё прходит гладко, но в итоге в BTM ничего нет

[BDA]

Попробуйте:

BTM:=TBitmap.Create;
MS1:=TMemoryStream.Create;
MS2:=TMemoryStream.Create;
MS1.LoadFromFile(f);
MS1.Position:=zer;
MS2.Position:=0;
MS2.CopyFrom(MS1, ie);
MS2.Position:=0;
BTM.LoadFromStream(MS2);

[Пепел Феникса]

не надо ничего копировать, TBitmap сам прочтет столько байт, сколько надо, лишь покажите ему откуда читать(через Position)
+ ТС, добавьте обработку ошибок + пользуйтесь отладкой чтоб знать, что и почему сдохло.

[100GRamm]

Сообщение от BDA

Попробуйте:

BTM:=TBitmap.Create;
MS1:=TMemoryStream.Create;
MS2:=TMemoryStream.Create;
MS1.LoadFromFile(f);
MS1.Position:=zer;
MS2.Position:=0;
MS2.CopyFrom(MS1, ie);
>>>>>MS2.Position:=0;
BTM.LoadFromStream(MS2);

Да, спасибо, я так и сделал вчера. Всё работает. Пытался читать с конца потока. Просто с толку сбила

MS2.savetofile(ff); >> она работала без смены позиции, потому сразу не понял. Спасибо за участие.

Сообщение от Пепел Феникса

не надо ничего копировать, TBitmap сам прочтет столько байт, сколько надо, лишь покажите ему откуда читать(через Position)
+ ТС, добавьте обработку ошибок + пользуйтесь отладкой чтоб знать, что и почему сдохло.

То есть Битмап сам (по структуре) определит конец картинки? классно , надо попробовать.