15 respuestas en este tema

[Master23]

Hola amigos, estoy teniendo problemas con este asunto de Invalid Pointer operation,estoy usando una conexión remota con mysql  y estoy usando consultas directas como inser into entre otras cosas pero por ejemplo la primera consulta se ejecuta correctamente, luego cuando presiono hacer la inserción  de nuevo surge este error,espero que me puedan ayudar con esto la verdad no sé de donde sale este error, todo esto ocurre al hacer la consulta por segunda vez y en otro hago lo mismo pero el error es diferente can not open a resultset el primer insert ingresa bien, luego al hacer click otra vez presenta un error,en fin espero que me puedan ayudar, muchas gracias de antemano.

[Delphius]

Hola Master23,

Sin tener más información de tu caso veo complicado saber realmente donde está el problema. Un error Invalid Pointer puede ser provocado por variadas situaciones, y no es algo que sea particularmente un problema dedicado y en forma exlusiva a lo que hace base de datos.

Deberías ser más claro, más detallista. ¿Puedes mostrarnos el código que muestra el error? ¿Qué componentes utilizas y que versión de los mísmos?

Saludos,

[TiammatMX]

Hola amigos, estoy teniendo problemas con este asunto de Invalid Pointer operation,estoy usando una conexión remota con mysql  y estoy usando consultas directas como inser into entre otras cosas pero por ejemplo la primera consulta se ejecuta correctamente, luego cuando presiono hacer la inserción  de nuevo surge este error,espero que me puedan ayudar con esto la verdad no sé de donde sale este error, todo esto ocurre al hacer la consulta por segunda vez y en otro hago lo mismo pero el error es diferentecan not open a resultset el primer insert ingresa bien, luego al hacer click otra vez presenta un error,en fin espero que me puedan ayudar, muchas gracias de antemano.

En esencia, estás intentando acceder a un área de memoria que o no tiene nada o no contiene lo que se espera. ¿Solución? Ninguna específica. Tal vez, intentar con una serie de instrucciones que realicen el mismo procedimiento pero por otro camino; o cambiar (si es posible) el motor de base de datos.

[Master23]

quizás el problema se deba a que después de hacer la inserción , uso un método de la clase que creé ,ejemplo.

delphi

dato := TDatos.Create;
dato.InsertarInformacion(edit1.text,edit2.text,edi3.text);
dato.Free;

Quizás tiene que ver con esto , porque la primera ejecución se ejecuta perfectamente, el problema darle de nuevo al botón para que agregue otra vez llamo de nuevo al mismo método, y ahí viene el problema, la primera inserción funciona bien, el problema es si se repite la operación al darle al botón de insertar de nuevo. En conclusión a darle por primera vez al botón insertar se ingresan los datos correctamente, en cambio si ahí mismo vuelvo y le doy click a insertar para que ejecute este método ahí viene el invalid pointer operation.

[Delphius]

quizás el problema se deba a que después de hacer la inserción , uso un método de la clase que creé ,ejemplo.


dato := TDatos.Create;
dato.InsertarInformacion(edit1.text,edit2.text,edi3.text);
dato.Free;


Quizás tiene que ver con esto , porque la primera ejecución se ejecuta perfectamente, el problema darle de nuevo al botón para que agregue otra vez llamo de nuevo al mismo método, y ahí viene el problema, la primera inserción funciona bien, el problema es si se repite la operación al darle al botón de insertar de nuevo. En conclusión a darle por primera vez al botón insertar se ingresan los datos correctamente, en cambio si ahí mismo vuelvo y le doy click a insertar para que ejecute este método ahí viene el invalid pointer operation.

Es posible, pero sin saber lo que hace el método InsertarInformacion estamos en la misma. Yo por ese código me inclino a que el problema no necesariamente el método sino la creación de dicho objeto.

En vez de

delphi

Dato.Free

Utiliza

delphi

FreeAndNil(Dato);

El meollo del asunto es que Free está para liberar el objeto, más esto no significa que la memoria a la que hace referencia pueda seguir utilizando. De hecho, lo que sucede es que Free libera el objeto pero no limpia la dirección de memoria a la que apunta.

Si tu vas a reutilizar la variable debes hacer uso de FreeAndNil, o bien:

delphi

MiObjeto.Free;
MiObjeto := nil;

Eso debería ser suficiente para solucionar el problema.

Saludos,

[Delphius]

¿Alguna novedad? ¿Te ha servido en algo la información brindada? 

Saludos,

[Master23]

¿Alguna novedad? ¿Te ha servido en algo la información brindada? 

Saludos,

Intenté con las alternativas que me mencionaste , sin embargo el problema nunca desapareció. Lo único que yo quería era hacer consultas directas se ejecutaban con éxito la primera vez sin embargo a la segunda ya no servían y lanzaban Invalid Pointer operation.


Por ejemplo:

delphi

procedure Button1Click(TSender:Object)
var objecto:TMyClase;
begin
objecto := TMyClase.Create;
obejeto.InsetarEnLaTablaUsuarios(nombre.text,password.text,confirmacion.text);
objecto.Free;
end;

Intenté además de free las demás formas que me mencionaste como FreeAndNil(Objecto) sin embargo sigue el error Invalid Pointer operation.


En ese método uso un adoquery el cual por las propiedades .SQL.Text les hago un insert con los parámetros del método les envío cada dato, la primera ejecución se realiza con éxito , sin embargo le doy al botón otra vez y ahí lanza el problema.


es decir primera ejecución al darle es correcta , pero si le doy al botón otra vez ahí mismo lanza error. Muchas gracias delphius por estar al pendiente como siempre,cuídate.

[Sergio]

Lo siguiente a mirar seria TMyCalse.OnCreate y TMyClase.OnDestroy.

Podria ocurrir que OnCreate asignes alguna propiedad tipo SQLQuery a un objeto "externo" del form o del DataModule o de donde sea, y al salir, matas ese objeto externo con un free... pero claro, has matado algo que no era tuyo, y la segunda vez que vas a usarlo, no existe.

Algo de este estilo podría ser la causa:

delphi

OnCreate: MySQL:= Application.MainForm.SQLObject;
OnDestroy: MySQL.free;

[Master23]

Lo siguiente a mirar seria TMyCalse.OnCreate y TMyClase.OnDestroy.

Podria ocurrir que OnCreate asignes alguna propiedad tipo SQLQuery a un objeto "externo" del form o del DataModule o de donde sea, y al salir, matas ese objeto externo con un free... pero claro, has matado algo que no era tuyo, y la segunda vez que vas a usarlo, no existe.

Algo de este estilo podria ser la causa:

OnCreate: MySQL:= Application.MainForm.SQLObject;
OnDestroy: MySQL.free;

Si, yo también he pensando lo mismo Sergio, creo que se destruye el objecto con algo más de la base de datos , por eso a la segunda vez , presenta quizás ese error.

[enecumene]

Coloca por favor el codigo de la clase, sino estaremos andando a ciegas, pregunto, esa clase realiza un query de insecion?, verificaste que antes de insertar se limpie el query para nuevas inserciones?, de todos modos estaremos esperando el code.

Saludos.

[Master23]

Coloca por favor el codigo de la clase, sino estaremos andando a ciegas, pregunto, esa clase realiza un query de insecion?, verificaste que antes de insertar se limpie el query para nuevas inserciones?, de todos modos estaremos esperando el code.

Saludos.

delphi

procedure TDoctores.Agregar_cita(const nombre: string; apellido: string;
  fecha: string;  identificacion: string; telefono: string);
  begin
    if datamodule2.ZaddCita.Active = false then
    datamodule2.ZaddCita.Active := true;
 
 
    datamodule2.ZaddCita.SQL.Clear;
 
 
    datamodule2.ZaddCita.SQL.Text:=
    'insert into citas values('+
    'null,"'+nombre+'","'+apellido+'","'+fecha+'","'+
    hora+'","'+identificacion+'","'+telefono+'")';
 
 
    try
      datamodule2.ZaddCita.ExecSQL;
    except
      ShowMessage('Ha ocurrido un problema en el momento, de la inserción por favor intente de nuevo.');
      exit;
    end;
    Showmessage('Se agregó la cita con con exito.');
    datamodule2.ZQuery2.Refresh;
  end;

luego implemento ese método de la clase de la manera normal.

delphi

procedure Tform3.BitBtn1Click(Sender: TObject);
begin
Dr := TDoctores.Create;
Dr.Agregar_cita(nombre.text, apellido.text,
  datetostr(fecha.Date), identificacion.text,telefono.text);
Dr.Free
end;

Tomando en cuenta que nombre.text,etc son campos edit normal.

El programa como explique anteriormente, ejecuta la primera vez al dar al botón, todo correctamente, pero si vuelvo a darle al botón , ahí viene el problema Invalid pointer operation.Si, doy continuamente al botón en vez de seguir insertando, lanza ese error.

[Sergio]

Dos cosas respecto de tu codigo:

1) La variable Dr solo se usa dentro del BitBtn1Click, pero por lo que veo es una variable global... mala cosa, eso es un peligro publico, mejor usa una variable local dentro de tu procedure y asi evitas que desde fuera otro proceso quiera usar Dr y te falle! En cualquier caso, si necesitas dejar Dr como esta, al terminar no vale con un free, porque el puntero sigue teniendo valor y cualquier cosa que hagas con Dr te dara un error de memoria feo, asi que creo que sería mejor asi:

delphi

procedure Tform3.BitBtn1Click(Sender: TObject);
var MyDr: TDoctores;
begin
MyDr := TDoctores.Create;
MyDr.Agregar_cita(nombre.text, apellido.text,
  datetostr(fecha.Date), identificacion.text, telefono.text);
FreeAndNil(MyDr);
end;

2) No has puesto el codigo de TDoctores.Create y TDoctores.Destory, el error podria ser lo que te comento de que Dr sea global, o puede estar en estas otras dos funciones

Añadido: Otra cosilla, veo que pones los valores de texto en tu SQL sin mas... eso funciona el 99% de las veces, pero si tu cliente se llama Pepe's Jeans o Restaurante "El soto" entonces esas comillas internas te puede estropear la SQL y no ejecutará! Yo suelo poner tooodos los textos en QuotedStr(Texto), que te añade comillas al principio y al final, y las que hayan internas, las duplica para que SQL las acepte bien.

[Master23]

Dos cosas respecto de tu codigo:

1) La variable Dr solo se usa dentro del BitBtn1Click, pero por lo que veo es una variable global... mala cosa, eso es un peligro publico, mejor usa una variable local dentro de tu procedure y asi evitas que desde fuera otro proceso quiera usar Dr y te falle! En cualquier caso, si necesitas dejar Dr como esta, al terminar no vale con un free, porque el puntero sigue teniendo valor y cualquier cosa que hagas con Dr te dara un error de memoria feo, asi que creo que sería mejor asi:

delphi

procedure Tform3.BitBtn1Click(Sender: TObject);
var MyDr: TDoctores;
begin
MyDr := TDoctores.Create;
MyDr.Agregar_cita(nombre.text, apellido.text,
  datetostr(fecha.Date), identificacion.text, telefono.text);
FreeAndNil(MyDr);
end;

2) No has puesto el codigo de TDoctores.Create y TDoctores.Destory, el error podria ser lo que te comento de que Dr sea global, o puede estar en estas otras dos funciones

Añadido: Otra cosilla, veo que pones los valores de texto en tu SQL sin mas... eso funciona el 99% de las veces, pero si tu cliente se llama Pepe's Jeans o Restaurante "El soto" entonces esas comillas internas te puede estropear la SQL y no ejecutará! Yo suelo poner tooodos los textos en QuotedStr(Texto), que te añade comillas al principio y al final, y las que hayan internas, las duplica para que SQL las acepte bien.

Muchas gracias amigo Sergio,Voy a probar tus recomendaciones y si, tienes razón con las comillas externas voy hacer lo que me dices, Muchas gracias otra vez.

[Delphius]

Hola,

Efectivamente lo que te ha dicho Sergio es lo que te comenté: el uso de FreeAndNil() para liberar adecuadamente el objeto. Si la idea es reutilizar la variable es OBLIGATORIO su uso.

Como ha dicho Sergio, el problema puede estar en el .Create, en el .Destroy... alguna otra llamada y/o uso de la variable... Hace falta más de tu parte Master23, debes mostrarnos como estás encarando tu código por mucho que te moleste o te pueda costar aceptar esa idea... sin ver código estaremos obligados a adivinar, o dando palos a lo ciego como dicen.

Esta excepción llamada EInvalidOperation, que no error, se puede producir por muchas causas... la más común y lo que tiene de factor común a todas las causas es que se pierde referencia del handle o el "manejador" de un componente o que no tiene parent.
Es posible que estés liberando algún componente y no te das cuenta. No debería aventurarme pero tengo una ligera sospecha que se trata de ZaddCita.

Lo que yo si he notado de tu código es el uso de EXIT. Eso no va... cuando se provoca una excepción se "cancela" toda la operación y el resto de las instrucciones no se ejecutan... se sale del ciclo normal. Es inútil el exit, en vez de "salir" lo adecuado sería establecer ZaddCita inactivo (.Active = false) Y mover la línea del ShowMessage de éxito y el Refresh a la parte try.

Te aconsejo una profunda leída al concepto de Excepciones de la Cara Oculta de Delphi 4.

Saludos,

[Master23]

Hola,

Efectivamente lo que te ha dicho Sergio es lo que te comenté: el uso de FreeAndNil() para liberar adecuadamente el objeto. Si la idea es reutilizar la variable es OBLIGATORIO su uso.

Como ha dicho Sergio, el problema puede estar en el .Create, en el .Destroy... alguna otra llamada y/o uso de la variable... Hace falta más de tu parte Master23, debes mostrarnos como estás encarando tu código por mucho que te moleste o te pueda costar aceptar esa idea... sin ver código estaremos obligados a adivinar, o dando palos a lo ciego como dicen.

Esta excepción llamada EInvalidOperation, que no error, se puede producir por muchas causas... la más común y lo que tiene de factor común a todas las causas es que se pierde referencia del handle o el "manejador" de un componente o que no tiene parent.
Es posible que estés liberando algún componente y no te das cuenta. No debería aventurarme pero tengo una ligera sospecha que se trata de ZaddCita.

Lo que yo si he notado de tu código es el uso de EXIT. Eso no va... cuando se provoca una excepción se "cancela" toda la operación y el resto de las instrucciones no se ejecutan... se sale del ciclo normal. Es inútil el exit, en vez de "salir" lo adecuado sería establecer ZaddCita inactivo (.Active = false) Y mover la línea del ShowMessage de éxito y el Refresh a la parte try.

Te aconsejo una profunda leída al concepto de Excepciones de la Cara Oculta de Delphi 4.

Saludos,

Si, Delphius pero mostré el código, osea no hay nada más que mostrar solo hago métodos igual a ese que mostré, la clase usa ese  ese tipo de métodos mostré ese método porque todos son iguales, y el uso que les doy en el botón.

[Delphius]

Pero el punto Master23 es que te estamos diciendo que posiblemente el problema no necesariamente esté en esos métodos sino en el constructor ( Create) y/o el destructor (Destroy) como así también podría deberse a una liberación de algún componente que se te ha pasado por alto.

Con todo respeto, no basta con que nos digas que los demás métodos son iguales a ese... ¡no vemos el resto del código de la clase y de la unidad que hace uso de la clase! El error no necesariamente puede estar en el método... ¡entiéndelo! El error sale porque en algún otro lado ha sucedido algo que ha liberado o perdido referencia a su parent ¡NO VEMOS EN ESAS POCAS LINEAS ALGO QUE NOS DIGA EL VERDADERO PROBLEMA!.

¿Porqué no haces un break point y vas ejecutando paso a paso para ver en que línea exactamente salta la excepción?, de allí podríamos tener una pista más firme de por donde fijarnos. Pero como ya te hemos indicado: ¡estamos dando palazos a lo ciego! No no estás facilitando las cosas para asesorarte.

Saludos,