Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Liberar memoria (https://www.clubdelphi.com/foros/showthread.php?t=86279)

ZayDun 13-07-2014 12:10:58

Liberar memoria
 
Estoy utilizando el componente IdHTTP1, pero tengo una duda sobre su uso correcto para liberar memoria, he visto que se libera mediante IdHTTP1.Free pero cuando se debe de liberar y donde?

por lo que he visto en este foro la forma correcta es así..

Código:

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create;
  try
    try
      IdHTTP.Get('http://www.clubdelphi.com');
    except
        end;
  finally
    IdHTTP.Free;
  end;
end;

mi duda es que dentro de un solo botón tengo varias peticiones de Get y Post, tendría que colocar un "try" "except" "finally" por cada conexión que realiza? Espero que alguien me pueda aclarar esto ya que el programa empieza con poco uso de memoria y durante su uso se dispara llegando a dejar la aplicación bloqueada.

dec 13-07-2014 14:34:06

Hola,

Quédate con la idea: creas un objeto cuando lo vayas a usar, y, lo destruyes cuando ya no lo vayas a necesitar. "Try" y "Finally" sirve para garantizar, que, aun en el caso de error, "Finally" sería ejecutado, y, por lo tanto, nuestro objeto destruido. Pero, tú puedes usar tantas veces como quieras el objeto en cuestión, en este caso, realizar varias peticiones HTTP, liberando o destruyendo el objeto al final, cuando ya no lo necesites.

Otra opción sería declarar alguna variable donde guardar la instancia del objeto, o sea, fuera del procedimiento local "Button1Click", usar aquí dicha variable, y, liberarla cuando nuestro programa terminase, por ejemplo, en todo caso cuando el objeto ya no nos fuera necesario. Pero dicho mal y pronto algo como esto, que, parece ser lo que ahora te preocupa:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create;
  try
    try
      IdHTTP.Get('http://www.clubdelphi.com');

      IdHTTP.Get('http://www.clubdelphi.com');

      IdHTTP.Get('http://www.clubdelphi.com');

      IdHTTP.Get('http://www.clubdelphi.com');
    except
    end;
  finally
    IdHTTP.Free;
  end;
end;

... es perfectamente válido. No necesitas liberar el objeto a cada petición HTTP, sino que puedes reutilizarlo si quieres, y, liberarlo sólo al final, cuando ya no es necesario. Por lo demás no es bien dejar el "except" vacío, puesto que si ocurriese un error, simplemente, se ocultaría, lo que nos nos serviría de mucho a lo hora de solucionarlo.

ZayDun 13-07-2014 15:10:13

Muchas gracias dec por la aclaración me quedo todo muy claro, ahora ya entiendo el funcionamiento correcto y no ponerlo únicamente por que si..

Casimiro Notevi 13-07-2014 15:31:12

Libro de lectura obligada, La cara oculta de Delphi
A partir de la página 220, creo recordar.


La franja horaria es GMT +2. Ahora son las 22:06:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi