Liberación de memoria de Tbitmap

[[coso]]

Hola,
el codigo que te puse no provoca error. Lo unico que ocupa memoria es el TControlCanvas, y creo que se pueden crear muchos controlcanvas en la memoria de un pc normal. El error lo debes tener por otro lado, que te esta comiendo recursos. Un saludo.

PD: Para lo que dices, creo que lo mejor seria usar bitblt copiando a un bitmap y trabajar con el. Un saludo.

[Marck Silencer]

Empezado por coso

Hola,
el codigo que te puse no provoca error. Lo unico que ocupa memoria es el TControlCanvas, y creo que se pueden crear muchos controlcanvas en la memoria de un pc normal. El error lo debes tener por otro lado, que te esta comiendo recursos. Un saludo.

PD: Para lo que dices, creo que lo mejor seria usar bitblt copiando a un bitmap y trabajar con el. Un saludo.

OK! entonces checaré eso del Tcontrolcanvas, aunque de momento ya funcionó adecuadamente con el DeleteDC
Ok gracias por la sugerencia lo probaré con el BitBlt.....
Saludoss y gracias por tu tiempo!

[sintecsl]

Creo que este procedimiento es mas eficaz :

Código Delphi [-]

procedure Optimizar_memoria;
var
  MainHandle : THandle;
begin
    try
     MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
     SetProcessWorkingSetSize(MainHandle,DWORD(-1),DWORD(-1));
    finally
     CloseHandle(MainHandle);
    end;
end;