Проблема с Graphic и MemoryStream

[andrey4623]

Здравствуйте! У меня не компилируется следующий код:

        //Имя объекта
        fs.Read(str, sizeof(str));
        //Размер структуры
        fs.ReadBuffer(Size,SizeOf(Integer));
        // Сами данные
        ms.CopyFrom(fs,Size);
        Pic:=TPicture.Create;
        ms.Seek(0,soFromBeginning);
        //до этого шага все в порядке
        Pic.Graphic.LoadFromStream(ms); //ЗДЕСЬ ОШИБКА
        
with Form8.TreeView1.Items.Add(nil, str) do
          Data := Pic;

Почему с Graphic проблема?

[Evgeniy26]

У тебя ms: TStream?

[andrey4623]

TMemoryStream

[Evgeniy26]

Что пишет? У меня нормально компилит.

[andrey4623]

Пишет запрещен доступ

[andrey4623]

При исполнении. В ошибке пишет: "Чтение по адресу 00000..."

[Evgeniy26]

var
  ms: TMemoryStream;
  Pic: TPicture;
begin
  with TOpenDialog.Create(nil) do
  begin
    if not Execute then
    begin
      Free;
      exit;
    end;
    ms := TMemoryStream.Create;
    try
      ms.LoadFromFile(FileName);
      ms.Seek(0,soBeginning);
      pic := TPicture.Create;
      try
        pic.Bitmap.LoadFromStream(ms);
        Image1.Picture.Assign(pic);
      finally
        pic.Free;
      end;
    finally
      Free;
      ms.Free;
    end;
  end;

[andrey4623]

Спасибо. А почему нельзя выполнить следующий код:
Pic.Graphic.LoadFromStream(ms)?
Ведь метод SaveToStream для Graphic выполняется, а Load - нет.

[Evgeniy26]

Как я понимаю объект не создан, а обращение к методам не созданного объекта не допустимо:

var
  ms: TMemoryStream;
  Pic: TPicture;
begin
  with TOpenDialog.Create(nil) do
  begin
    if not Execute then
    begin
      Free;
      exit;
    end;
    ms := TMemoryStream.Create;
    try
      ms.LoadFromFile(FileName);
      ms.Seek(0,soBeginning);
      pic := TPicture.Create;
      try
        pic.Graphic := TBitmap.Create;
        pic.Graphic.LoadFromStream(ms);
        Image1.Picture.Assign(pic);
      finally
        pic.Free;
      end;
    finally
      Free;
      ms.Free;
    end;
  end;

[Daramant]

TGraphic - абстрактный класс.
Когда вызываем:
pic.Bitmap.LoadFromStream(ms);
Создается объект соответствующий формату файла с изображением и присваивается переменной Graphic.
После создания:
pic := TPicture.Create;
Объект TGraphic (а именно его потомок) не создан, поэтому и исключение вылетает.

Если этот объект предварительно создать:
Pic.Graphic := TBitmap.Create;
То загрузка произойдет уже удачно:
Pic.Graphic.LoadFromStream(ms);
Или при повторной загрузке, тоже самое:
pic := TPicture.Create;
pic.Bitmap.LoadFromStream(ms);
...
Pic.Graphic.LoadFromStream(ms);

Вот так вот.

P.S. Опаздал я с ответом.