While capturing screen error occurs: Raised Exception class Eoutofresources with message

Question

I am using Embarcadero RAD Studio 2010 Delphi.

I was doing tests to capture the screen images of other computers via sockets. Then I came across an error while capturing the screen and turning to JPG (or even recording as default BMP), after about 10 seconds - running a TTimer 400 interval error occurs:

[nameProjeto.exe] Raised Exception class Eoutofresources with message 'Insufficient storage space to process this command.'.

When you see the Timer event code, you will see that (for testing) I am just running the function CapturaTelaJpg without saving it in anything (but it saves perfectly), and even then the error occurs after the 10 seconds.

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 400-fold

procedure TfrmMonitorando.Timer1Timer(Sender: TObject);
begin

  CapturaTelaJpg; // 10s depois, ocorre o erro colocando ou não numa variável

end;

Answer 1

Friend, create a new project, put in function and declare in uses JPEG.

Now add a component TImage, a component TTimer with Interval 400.

In the component TTimer apply the function call but this way:

procedure frmTeste.Timer1Timer(Sender: TObject);
begin
  Image1.Picture.Assign(CapturaTelaJpg);
end;

Ran flawlessly for more than 5 minutes!

The problem is that you called the function and did not use its contents!

Note, I didn’t modify anything, I just copied your function and pasted! The only change was in the call!

Edit:

Come on, at the beginning of your add function:

//Aqui adicionamos uma tentativa de eliminar resto de memória!
  if Result <> nil then
    Result := Nil;

Comment or remove the line Result.Compress;

PS: Don’t change anything else in your role! Rest is working well!