Форум: "WinAPI";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Внизкуда исчезают ресурсы? Найти похожие ветки
← →
Diamond Cat (2002-09-24 18:55) [0]Вот кусок кода
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
timer1.Enabled:=false;
for i:=0 to 19 do
begin
Top:=top+1;
// bitblt( getdc(form1.Handle),0,0,40,1,getdc(0),left,top+1,srccopy);
application.ProcessMessages;
sleep(5);
releasedc(handle,Canvas.handle);
end;
for i:=19 downto 0 do
begin
top:=top-1;
application.ProcessMessages;
sleep(5);
end;
timer1.enabled:=true;
стоит снять коментарий с bitblt( getdc(form1.Handle),0,0,40,1,getdc(0),left,top+1,srccopy); и ресурсы ситемы тают на глазах, спрашивается в задачнике какого х.. ?
← →
Zz_ (2002-09-24 18:58) [1]У тебя два getDC, а release один
← →
MBo (2002-09-24 19:03) [2]Почему бы вместо getdc(form1.Handle) Canvas.Handle не использовать?
← →
Diamond Cat (2002-09-25 00:04) [3]2 Zz_ пытался высвободить и getdc(0) но системные ресурсы все равно дохнут, причем они не востанавливаются по закрытию программы.
2 МВо а разницы в принципе никакой
← →
Evgeny (2002-09-25 05:02) [4]DC := GetDC(0);
try
Top := Top + 1;
BitBlt(Form1.Canvas.Handle, 0, 0, 40, 1, DC, Left, Top + 1, SRCCOPY);
application.ProcessMessages;
sleep(5);
finally
ReleaseDC(handle, DC);
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c