TBitmap и экономия памяти

[Steepe_Hare]

Пример, взятый из Интернета:
 

  // clears the canvas
  Image1.Bitmap.Clear(TAlphaColors.White);

    // loads the bitmap using the TOpenDialog.
    if OpenDialog1.Execute then
      MyBitmap := TBitmap.CreateFromFile(OpenDialog1.Files[0]);
    // set the  MyRect coordinates
    MyRect := TRectF.Create(50, 30, 150, 200);
    Image1.Bitmap.Canvas.BeginScene;
    // draws on the rectangle specified by MyRect the area from MyBitmap specified by MyRect
    Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyRect, MyRect, 20);
    Image1.Bitmap.Canvas.EndScene;

Если мы, допустим, раз в секунду повторяем эту процедуру, постоянно загружая в Image1 новый MyBitmap, то нужно ли делать MyBitmap.Free или очистка памяти происходит сама?

[Равиль Зарипов (ZuBy)]

обязательно нужно очистить

[MAD_EVAL]

Чистить обязательно, и я бы ещё, создав MyRect удалил бы его где-нибудь в итоге.

[Равиль Зарипов (ZuBy)]

19 минут назад, MAD_EVAL сказал:

Чистить обязательно, и я бы ещё, создав MyRect удалил бы его где-нибудь в итоге.

TRectF - не является классом, у него нет конструктора. Create используется чисто синтаксически.

[MAD_EVAL]

6 минут назад, ZuBy сказал:

TRectF - не является классом, у него нет конструктора. Create используется чисто синтаксически.

И то верно. Спасибо что исправили

[Steepe_Hare]

1 час назад, ZuBy сказал:

обязательно нужно очистить

Вот так получше?

    Image1.Bitmap.Clear(TAlphaColors.White);
    if OpenDialog1.Execute then
    begin
      MyRect := TRectF.Create(50, 30, 150, 200);
      MyBitmap := TBitmap.CreateFromFile(OpenDialog1.Files[0]);
      Image1.Bitmap.Canvas.BeginScene;
      try
        Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyRect, MyRect, 20);
      finally
        Image1.Bitmap.Canvas.EndScene;
        MyBitmap.Free;
      end;
    end;

 

[Rusland]

Steepe_Hare, AOpacity в DrawBitmap какой-то странный. Почему 20?

А так MyBitmap.Free оформлено верно.

 

Изменено 17 октября, 2016 пользователем Rusland

[Steepe_Hare]

19 минут назад, Rusland сказал:

Steepe_Hare, AOpacity в DrawBitmap какой-то странный. Почему 20?

А так MyBitmap.Free оформлено верно.

 

Отсюда взял:

http://docwiki.embarcadero.com/CodeExamples/Berlin/en/FMXTCanvasDrawFunctions_(Delphi)

[Rusland]

Opacity - прозрачность, должен быть от 0 до 1

[Steepe_Hare]

10 минут назад, Rusland сказал:

Opacity - прозрачность, должен быть от 0 до 1

я видел и 100 значение в одном офиц.примере

[MAD_EVAL]

1 час назад, Steepe_Hare сказал:

я видел и 100 значение в одном офиц.примере

Покажите пример. Opacity это single от 0 до 1....

[Rusland]

Не знаю что ответить. Может быть в старых версиях был диапазон от 0 до 100? 

Возьмите ваш пример, вместо 20 поставьте 0.5 и увидите половинную прозрачность.

PS. Почему-то в Image уже должна быть загружена хоть какая-нибудь картинка (хотя бы 1х1пиксель), иначе ничего не выводит. Не знаю почему.

Изменено 17 октября, 2016 пользователем Rusland

[Steepe_Hare]

36 минут назад, MAD_EVAL сказал:

Покажите пример. Opacity это single от 0 до 1....

http://docwiki.embarcadero.com/CodeExamples/Berlin/en/FMXTCanvasDrawFunctions_(Delphi)

procedure TForm1.DrawLineClick(Sender: TObject);
var
  p1, p2: TPointF;
begin
  // sets the ends of the line to be drawn
  p1 := TPointF.Create(20, 2);
  p2 := TPointF.Create(350, 400);
  Image1.Bitmap.Canvas.BeginScene;
  // draws the line on the canvas
  Image1.Bitmap.Canvas.DrawLine(p1, p2, 100);
  Image1.Bitmap.Canvas.EndScene;
end;

[kami]

4 часа назад, Steepe_Hare сказал:

Вот так получше?

Не совсем. То есть - технически правильно, но идеологически - нет.

Проведем мысленный эксперимент: что случится, если на BeginScene возникнет исключение? Правильно, битмап не будет уничтожен, потому что этот код не выполнялся внутри Try. Поэтому, если заниматься буквоедством, то код должен выглядывать так:

  MyBitmap := TBitmap.CreateFromFile(OpenDialog1.Files[0]); 
  try
    Image1.Bitmap.Canvas.BeginScene;
    try
      Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyRect, MyRect, 20);
    finally
      Image1.Bitmap.Canvas.EndScene;
    end;
  finally
    myBitmap.Free;
  end;

[Steepe_Hare]

28 минут назад, kami сказал:

Спасибо

[Pax Beach]

15 часов назад, MAD_EVAL сказал:

Покажите пример. Opacity это single от 0 до 1....

В FMX Opacity всегда от 0 до 1. Не верьте безоговорочно примерам Студии, они не актуальные.

 

[Brovin Yaroslav]

8 часов назад, Pax Beach сказал:

В FMX Opacity всегда от 0 до 1. Не верьте безоговорочно примерам Студии, они не актуальные.

 

Не знаю, кто пишет примеры в студию  Но иногда сам удивляюсь... Мы, конечно, иногда сами делаем примеры, но их не так много.

P.S. Opacity в FMX всегда было от 0 до 1

[#WAMACO]

может быть можно указать коэффициентом, а можно и процентом!