Ошибка при работе с canvas "Неверный дескриптор"

[Алекс Ялта]

Доброго времени суток. Нужна помощь профессионалов. Проблема в следующем: Изучаю усиленно работу с canvas по урокам, которые предоставлены в теме "Уроки для новичков". С целью закрепления материала пытаюсь создать простую стрелялку на космическую тематику. Программа запускается, но через 10-20 сек начинает ругаться. Выдает ошибку "Неверный дескриптор" либо "недостаточно памяти для выполнения программы". Графику вывожу через буффер в таймере. Буффер очищаю. Устал искать причину. Код предоставлен ниже.

  var
  Form1: TForm1;
  Buffer:Tbitmap; // буфер битмап
  Player: Tbitmap; // игрок
  Bullet:Tbitmap; // пуля
  LivePic: Tbitmap; // сердце
  score: integer; // очки
  Live: integer;  // жизни
  Xp,Yp,XsP,YsP:integer; // положение и скорость игрока

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 score:=0;
 Live:=3;
 Xp:=250;
 Yp:=400;
end;

procedure TForm1.TimerMainTimer(Sender: TObject);
begin
 Buffer:=Tbitmap.Create;
 Buffer.Width:=640;
 Buffer.Height:=480;

 Player:=Tbitmap.Create;
 Player.LoadFromFile('pic/ship2.bmp');
 Player.Transparent:=true;

 LivePic:=Tbitmap.Create;
 LivePic.LoadFromFile('pic/live.bmp');

 with Buffer.Canvas do
 begin

 pen.Color:=0;
 brush.Color:=0;
 Rectangle(0,0,580,480);
 pen.Color:=clLime;
 Rectangle(580,0,640,480);
 Font.Color:=clWhite;
 Font.Size:=12;
 TextOut(590,10,'Очки:');
 TextOut(590,30,IntToStr(score));
 TextOut(610,86,'x  '+IntToStr(Live));
 draw(590,90,livePic);

 Draw(Xp,Yp,Player);
 end;

 Form1.Canvas.Draw(0,0,Buffer);
 Buffer.Free;

end;

end.

[Stilet]

недостаточно памяти для выполнения программы

Player:=Tbitmap.Create;

А уничтожать его кто будет?
Представляю как ты память самусорил такими создаваниями.

[Вадим Буренков]

У меня ошибок не пишет.

[Алекс Ялта]

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

А уничтожать его кто будет?
Представляю как ты память самусорил такими создаваниями.

Если бы всё было так просто. Это упрощенный вариант кода. Оригинал я подтер. Точнее от безисходности удалил. Было больше Bitmap и все я уничтожал аналогично. Но, примерно через минуту, снова вылетает ошибка

[DomiNick]

и все я уничтожал аналогично

Каким образом..?



Дополнение

Вот этот код:

 Player:=Tbitmap.Create;
 Player.LoadFromFile('pic/ship2.bmp');
 Player.Transparent:=true;
 LivePic:=Tbitmap.Create;
 LivePic.LoadFromFile('pic/live.bmp');

для чего в Timer написал? Его нужно только один раз выполнять в TForm1.FormCreate... А в TForm1.FormDestroy уничтожать...

[Алекс Ялта]

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

Каким образом..?



Дополнение

Вот этот код:

 Player:=Tbitmap.Create;
 Player.LoadFromFile('pic/ship2.bmp');
 Player.Transparent:=true;
 LivePic:=Tbitmap.Create;
 LivePic.LoadFromFile('pic/live.bmp');

для чего в Timer написал? Его нужно только один раз выполнять в TForm1.FormCreate... А в TForm1.FormDestroy уничтожать...

Если этот код использовать в TForm1.FormCreate, то приложение вообще не запускается. Сразу виснет с ошибкой.
Всё равно спасибо за ответы. Сейчас буду разбираться еще раз с учетом замечаний. Ясно одно - напортачил где-то я)

[DomiNick]

Сообщение от Вадим Буренков

У меня ошибок не пишет.

Синтаксических ошибок нет... Ты запусти приложение и подожди...
Вот у меня памяти много в компьютере - пришлось этого сообщения 6 минут ждать...

Алекс Ялта, у тебя просто в таймере постоянно создавались всё новые и новые лишние TBitmap ("Player" и "LivePic")...
Изображения "Player" и "LivePic" нужно создать всего один раз при запуске и уничтожать при закрытии:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
score:=0;
Live:=3;
Xp:=250;
Yp:=400;
Player:=TBitmap.Create;
Player.LoadFromFile('pic/ship2.bmp');
Player.Transparent:=True;
LivePic:=TBitmap.Create;
LivePic.LoadFromFile('pic/live.bmp');
LivePic.Transparent:=True;
End;

Procedure TForm1.FormDestroy(Sender: TObject);
Begin
Player.Free;
LivePic.Free;
End;

Procedure TForm1.TimerMainTimer(Sender: TObject);
Begin
Buffer:=TBitmap.Create;
Buffer.Width:=640;
Buffer.Height:=480;
With Buffer.Canvas Do
      Begin
      pen.Color:=0;
      brush.Color:=0;
      Rectangle(0,0,580,480);
      pen.Color:=clLime;
      Rectangle(580,0,640,480);
      Font.Color:=clWhite;
      Font.Size:=12;
      TextOut(590,10,'Очки:');
      TextOut(590,30,IntToStr(score));
      TextOut(610,86,'x  '+IntToStr(Live));
      draw(590,90,livePic);
      Draw(Xp,Yp,Player);
      End;
Form1.Canvas.Draw(0,0,Buffer);
Buffer.Free;
End;

[Алекс Ялта]

DomiNick был прав. Спасибо Еще раз за помощь. Код изменил таким образом. Пока всё работает

procedure TForm1.FormCreate(Sender: TObject);
begin
 score:=0;
 Live:=3;
 Xp:=250;
 Yp:=400;

 Player:=Tbitmap.Create;
 Player.LoadFromFile('pic/ship2.bmp');
 Player.Transparent:=true;

 LivePic:=Tbitmap.Create;
 LivePic.LoadFromFile('pic/live.bmp');


end;

procedure TForm1.TimerMainTimer(Sender: TObject);
begin
 Buffer:=Tbitmap.Create;
 Buffer.Width:=640;
 Buffer.Height:=480;



 with Buffer.Canvas do
 begin

 pen.Color:=0;
 brush.Color:=0;
 Rectangle(0,0,580,480);
 pen.Color:=clLime;
 Rectangle(580,0,640,480);
 Font.Color:=clWhite;
 Font.Size:=12;
 TextOut(590,10,'Очки:');
 TextOut(590,30,IntToStr(score));
 TextOut(610,86,'x  '+IntToStr(Live));
 draw(590,90,livePic);


 Draw(Xp,Yp,Player);
 end;

 Form1.Canvas.Draw(0,0,Buffer);
 Buffer.Free;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Player.Free;
LivePic.Free;
end;

end.

[Beermonza]

Алекс Ялта, вызывай с трэя "Диспетчер задач", отслеживай как ведет себя приложение.

[DeKot]

Даже не вдаваясь в представленные коды - надо взять за правило, если вызван конструктор (CREATE) - вы занимаете определенную часть памяти, следовательно после работы с этой памятью ее надо освободить (FREE). Т.е. даже в цикле таймера, как в приведенном примере - создали TBitmap.Create; - по окончанию работы таймера уничтожте
объект TBitMap.Free;.