PNG

[nXs]

Здравствуйте, вопрос, почему при загрузки PNG из потока вываливает ошибку:

raised exception class EPNGHeaderNotPresent with message 'This operation is not valid because the current image contains no valid header.'

Код загрузки:

for i:=0 to 20 do
F.Read(C[i].Cpos,sizeof(C[i].CPos));

for i:=0 to 20 do
F.Read(C[i].CName,sizeof(C[i].CName));

for i:=0 to 20 do
begin
F.Seek(C[i].CPos,0);
Image[i]:=TImage.Create(self);
Image[i].Picture.Graphic:=TPngObject.Create;
Image[i].Picture.Graphic.LoadFromStream(F);
end;

Код сохранения:

tmp:=F.position;
for i:=0 to 20 do
F.Write(images[i].Cpos,sizeof(images[i].CPos));

for i:=0 to 20 do
F.Write(images[i].CName,sizeof(images[i].CName));

for i:=0 to 20 do
begin
Images[i].CPos:=F.position;
Im.Picture.LoadFromFile(FileName[i]);
images[i].CPicture:=TPngObject.Create;
if (IM.Picture.Graphic is TJpegImage) then
(IM.Picture.Graphic as TJpegImage).DIBNeeded;
B.Assign(Im.Picture.Graphic);
Images[i].CPicture.Assign(B);
Images[i].CPicture.SaveToStream(F);
Im.Destroy
end;

F.seek(tmp,0);

tmp:=F.position;
for i:=0 to 20 do
F.Write(images[i].Cpos,sizeof(images[i].CPos));

for i:=0 to 20 do
F.Write(images[i].CName,sizeof(images[i].CName));

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

а где обнуление позиции потока?

F.Position:=0;

[nXs]

Извините пожалуйста,я дописал код чтения/записи(первый раз непонятно как то написал). Поэтому позицию начала рисунка я устанавливаю перед его чтением... И тогда для чего его обнулять если перед каждым чтением позиция устанавливается в позицию начала картинки?