Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Abrir , cerrar DB MySL a que liberar memoria? (https://www.clubdelphi.com/foros/showthread.php?t=69120)

darkbits 27-07-2010 18:58:08

Abrir , cerrar DB MySL a que liberar memoria?
 
un saludo a todos
aprendi a utilizar MySQL con IDE D6
mi conexion a mi Base de datos se llama _DM.conexion
nunca aprendi como es el procedimiento para realizar mis SQL
lo que hago
Código SQL [-]
_DM.consultaMysql1.close;
_DM.consultaMysql1.Text:= 'select * from tabla';
_DM.consultaMysql1.open;
_DM.consultaMysql1.Post;

Ahora me hablaron que tengo que liberar memoria, mi pregunta es donde luego del sql? o al cerrar la aplicacion? o cada vez que abro una DB
seria algo como esta

Código SQL [-]
_DM.consultaMysql1.free;

Help me Please.
si me recomiendan una pagina o algun PDF para ver esto de MySql insert, edit, delete.

roman 27-07-2010 20:37:20

Cuando alguien te diga que debes liberar memoria, pregúntale a qué se refiere, porque dicho así nada más, es ambiguo y no puede comentarse gran cosa al respecto como no sea divagar e intentar adivinar.

// Saludos

darkbits 27-07-2010 21:58:43

vi este ejemplo en la web para conectarse a MySQL que libera la memoria en las 2 ultimas filas.

yo estoy realizando por Zeos y quiero saber si es necesario liberar esa memoria o no es necesaria.
Código SQL [-]
_DM.consultaMysql1.close;
_DM.consultaMysql1.Text:= 'select * from tabla';
_DM.consultaMysql1.open;
_DM.consultaMysql1.Post;
Código SQL [-]
_DM.consultaMysql1.free;




Código SQL [-]
 //listar tablas de la base de datos
 presults:=nil;
 try
 mysql_query(@cnxmysql,pansichar('select username from sis_users'));
 presults:= mysql_store_result(@cnxmysql);

 //la consulta devolvio data?
  if (presults<>nil) and (presults.row_count>0) then begin
         //recorremos todas las filas
         for i:=0 to presults^.row_count-1 do begin
             prow:= mysql_fetch_row(presults);//obtenemos la fila actual
             Listbox1.Items.add(prow^[0]); //user
         end;

  end;
 finally
    mysql_free_result(presults); // Liberar la memoria
    mysql_close(@cnxmysql);      // Desconectar

AzidRain 27-07-2010 22:33:15

El segundo código no es de zeos.

El primero es correcto al final hacer un free...siempre y cuando el componente, en este caso _DM lo hayas creado por código. Si el componente se arrastró de la paleta a la ventana entonces no es necesario ya que se liberará al cerrar la misma.

Este es un ejemplo, diria yo, una ley de como se debe manejar cualquier objeto que crees por código:

Código Delphi [-]
  MiObjeto := TMiObjeto.Create;  // Creamos el Objeto
  Try
     //Hacemos algo con el objeto
  finally
   MiObjeto.Free;  //Liberamos la memoria utilizada por el objeto
  end;

Y su forma más elegante cuando no vamos a ocupar nuevamente ese objeto:
Código Delphi [-]
  With TMiObjeto.Create Do  // Creamos el Objeto
  Try
     //Hacemos algo con el objeto
  finally
     Free;  //Liberamos la memoria utilizada por el objeto
  end;

Hay que tener en cuenta que una vez liberado el objeto, ya no se puede utilizar a menos que se vuelva a construir. El proceso de creación de objetos y manejo de memoria es bastante sencillo:

Tenemos una variable, que en realidad es un puntero, que va a apuntar a la seccion de memoria donde se alojan los datos del objeto. Al "crear" el objeto mediante la setencia "Create" o cualquier otra similar, se asigna una direccion de memoria y un espacio en la misma. En ese momento el puntero digamos que nos indica un lugar donde efecto hay datos. Al momento de hacer el free, la memoria se libera y queda como disponible para otra cosa. Si queremos nuevamente acceder al objeto recién liberado provocaremos un error.


La franja horaria es GMT +2. Ahora son las 19:51:21.

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