Estou utilizando Embarcadero RAD Studio 2010 Delphi.
Estava fazendo testes para capturar a as imagens da tela de outros computadores via sockets. Então me deparei com um erro ao capturar a tela e transformar para JPG (ou até mesmo gravar como padrão BMP), após uns 10 segundos - executando um TTimer
com intervalo de 400 dá-se o erro:
[nomeProjeto.exe] raised exception class EOutOfResources with message 'Espaço insuficiente de armazenamento para processar este comando.'.
Ao verem o código do evento do Timer, verão que (para testes) estou apenas executando a function CapturaTelaJpg
sem salvá-la em nada (mas ele salva perfeitamente), e mesmo assim o erro ocorre após os 10 segundos.
function CapturaTelaJpg: TJpegImage;
var
dc : hdc;
cv : TCanvas;
aux : TBitmap;
begin
Result := TJPEGImage.Create;
aux := TBitmap.Create;
aux.Height := Screen.Height;
aux.Width := Screen.Width;
dc := GetDC(0);
cv := TCanvas.Create;
cv.Handle := dc;
//--Define o tamanho da imagem
aux.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),cv,
Rect(0,0,Screen.Width,Screen.Height));
cv.Free;
cv := nil;
ReleaseDC(0,dc);
//-- Compacta o BMP para JPEG
Result.Assign(aux);
aux.Free;
aux := nil;
Result.Compress;
end;
Timer1
com intervalo 400
procedure TfrmMonitorando.Timer1Timer(Sender: TObject);
begin
CapturaTelaJpg; // 10s depois, ocorre o erro colocando ou não numa variável
end;