Foros Club Delphi - Error de memoria al llamar otra form

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)

- - Error de memoria al llamar otra form (https://www.clubdelphi.com/foros/showthread.php?t=25538)

dmagui

26-09-2005 16:48:10

Error de memoria al llamar otra form

Buenos dias:

Tengo un problema y es la primera vez que me ocurre.

Desde mi form26 estoy colocando un codigo para que se active los ibdataset de mi form27 despues de hacer un commit y me saca un error de memoria.

Código Delphi [-] implementation
uses unit2, unit27, unit31;

esto lo tengo en mi form26

y lo unico que hago es:

Código Delphi [-] form27.ibdataset1.active:=True; 
form27.ibdataset2.active:=True;
form27.ibdataset3.active:=True;

el error que me muestra dice:

Acces violation at addres 004cf8f in module 'Project1.exe'. Read of addres 000002f0.

Por que me genera este error???, gracias por sus respuestas.

dec	26-09-2005 16:54:27

Hola,

¿Es posible que "Form27" no esté creado cuando tratas de acceder al mismo?

Neftali [Germán.Estévez]

26-09-2005 16:59:18

Normalmente ese error es porque estás accediendo a un objeto que todavía no ha sido creado.
¿Form27 ya está creado?

Puedes hacer una simple comprobación:

Código Delphi [-] // no creado?
 if not Assigned(Form27) then begin
   --> no creado
 end;

dmagui

26-09-2005 17:14:39

Pero si yo creo desde la form27 a la form26 es decir la form27 es padre de la 26

Código Delphi [-] procedure TForm27.DBGrid1CellClick(Column: TColumn); 
var
varform26 : TForm26;
begin
if ((Column.FieldName = 'CODIGO_COMP') or (column.FieldName = 'NOMBRE_COMP')) then
begin
var1 := IBDataset1.FindField('CODIGO_COMP').AsString;
label1.Caption := var1;
varform26 := Tform26.create(self);
try
varform26.Show;
except
varform26.free;
end;
end;
dbgrid1.SelectedIndex:=0;
end;

dec	26-09-2005 17:25:02

Hola,

Sin fijarme demasiado en el código que acabas de escribir, lo cierto es que lo único que se me ocurre decir es que en tu primer mensaje hablabas de que el error se producía al querer acceder al "form27"... no al "form26", que ya se ve que creas y luego muestras desde el "form27"... ¿qué me he perdido? ;)

roman

26-09-2005 17:27:45

Cita:

Empezado por dmagui

Pero si yo creo desde la form27 a la form26 es decir la form27 es padre de la 26

Pero esto no es garante de nada. Recuerda que de una clase puede haber más de una instancia y tienes que asegurarte que form26 se refiere a la misma instancia de form27 que la creó. Posiblemente form27, en el código de form26, sea la variable global que declara automáticamente Delphi y debes verificar si es con esa variable con la que creas la instancia de form27.

Por eso no es bueno usar variables globales. Sobre todo, en general, hacer referencias a variables globales desde el código de una clase.

// Saludos

dmagui

26-09-2005 17:28:41

Es que desde la form27 creo la form26, cuando estoy en la form26 y deseo activar los dataset de la form27 me muestra el error de memoria.

Neftali [Germán.Estévez]

26-09-2005 17:37:28

Cuidado con éste código:

Código Delphi [-] try  
   varform26.Show;
 except  
   varform26.free;
 end;

Justo después de hacer el Show, se libera, puesto que la ejecución no se detiene. Deberías probar con ShowModal (en lugar de Show) o hacer la liberación (Free) en otro lugar.

roman

26-09-2005 17:39:15

Revisa lo que te dije arriba. De entrada por lo menos pon un breakpoint en la primera línea que hace uso de form27 y verifica que éste no sea nil.

// Saludos

vtdeleon

26-09-2005 18:07:57

Cita:

Empezado por Neftali

Justo después de hacer el Show, se libera, puesto que la ejecución no se detiene. Deberías probar con ShowModal (en lugar de Show) o hacer la liberación (Free) en otro lugar.

Estás seguro? puesto que se espera una excepcion. Si al crear el form26 no ocurre una exception no entrará al Exception.

dec	26-09-2005 18:08:25

Hola,

Cita:

Empezado por Neftali

Cuidado con este código:

Código Delphi [-] try
   varform26.Show;
 except
   varform26.free;
 end;

Justo después de hacer el Show, se libera, puesto que la ejecución no se detiene. (...)

Eso pensé yo, no sé porqué, puesto que no se ejecutará el código de la cláusula "except" sino en caso de excepción, precisamente. ¿No es? ;)

vtdeleon

26-09-2005 18:16:51

Saludos

Creo entender el caso de dmagui.

Form26 es un formulario hijo del Form27 el cual es Padre (óbvio) y desde el formulario tratas de activar los dataset que se encuetnra en el formulario padre.

Particularmente probaria que valores o parametros habras cambiando en esos componentes. Trata de poner otro dataset con una consulta simple.

Neftali [Germán.Estévez]

26-09-2005 18:21:20

Cita:

Empezado por vtdeleon

Estás seguro? puesto que se espera una excepcion. Si al crear el form26 no ocurre una exception no entrará al Exception.

Tienes razón, no se libera sino se produce una excepción. La vista me jugó una mala pasada...
Cambié (en mi mente) el except por un finally.

dec	26-09-2005 18:23:59

Hola,

Cita:

Empezado por Neftali

Cambié (en mi mente) el except por un finally.

Pues yo ni eso: al principio leí el "Show" y luego el "Free" y me dije, ¡aquí está el tema! ;)

vtdeleon

26-09-2005 18:25:47

Saludos

Creo que faltan par de anteojos:cool::D

dmagui

26-09-2005 20:06:52

Hola, pues gracias por todas las respuestas y ya me salio todito, gracias por todo

roman

26-09-2005 22:21:15

Sí, bueno... ¿Y podrías decirnos cómo fue que lo resolviste?

// Saludos

dmagui

26-09-2005 22:41:18

no llamaba a la form26 con show sino con showmodal y actualice todos los dataset despues del showmodal.

dmagui

26-09-2005 22:43:27

Código Delphi [-] try 
varform26.ShowModal;
DBEdit1.Text:=unit27.varedit;
IBDataSet1.Active:=True;
IBDataSet2.Active:=True;
IBTable1.Active:=True;
IBTable2.Active:=true;
IBDataSet3.Active:=True;
except
varform26.free;
end;

La franja horaria es GMT +2. Ahora son las 14:59:45.