Problemas con ClientDataSet

[Diana Carolina]

Empezado por rgstuamigo

Haber cambia ésta parte>

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  Try
    if Application.FindComponent('FrmClientes') = nil then
       FrmClientes := TFrmClientes.Create(Owner);
    Permisos(FrmClientes.Tag);
    PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
    FrmClientes.ShowModal;
  finally
    FrmClientes.Free;
  end;
end;

por ésta otra>

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
 try
   if not Assigned(FrmClientes)then //si no hay objeto creado para el apuntador "FrmClientes"
     {entonces lo voy a crear..}
     FrmClientes:=TFrmClientes.Create(Application);//creo una instancia nueva
  {De aquí en adelante ya se sabe que el FrmClientes no está en nulo}
  Permisos(FrmClientes.Tag);
  PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);
  FrmClientes.ShowModal;
  finally
   FreeAndNil(FrmClientes);
  end;
end;

Prueba y nos comentas...
Saludos...

Hola Reemplacé el código con el que me enviaste y aún me sale el error de Access Violation. Además cuando cierro el formulario y lo intento abrir de nuevo me dice que ya existe un formulario llamado frmclientes, adjunté las imágenes que me salen. Espero que sirvan de algo.

Gracias por la colaboracion y quedo a la espera de sus comentarios.

[ecfisa]

Hola Diana Carolina.

El código de creación y liberación de ventanas de tu post #3, no debería generar el error de Access violation.

Cuando en el evento OnClose de FrmClientes asignas Action:= caFree, Delphi no llama a Free sino a Release quien hace un PostMessage con el mensaje CM_RELEASE. PostMessage pone el mensaje en la cola de mensajes asociado al hilo que creo la ventana y retorna sin esperar a que se procese el mensaje. Cuando haces FrmClientes.Free, si el mensaje aún no fue procesado se descarta.

Es decir que no importa que en FrmClientes utilizes Action:= caFree y luego lo liberes con Free. Prueba de eso es que al eliminar la línea en tu
post #10 continuaste obteniendo la excepción.

Podés verificarlo mediante una simple prueba con dos forms.
Form1:

Código Delphi [-]
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    if Application.FindComponent('Form2') = nil then
       Form2 := TForm2.Create(Self);
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;
...

Form2:

Código Delphi [-]
...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;
...

Y ya te podés pasar el día cliqueando el botón y cerrando Form2 que no vas a obtener un error.

Me inclino a pensar que la cosa viene por otro lado... ¿ Podrías poner el código de FrmClientes.OnCreate ?

Un saludo.

[Diana Carolina]

Hola gracias por responder. Adjunto el codigo del evento OnCreate de FrmClientes.

Código Delphi [-]
procedure TFrmClientes.FormCreate(Sender: TObject);
begin
  tmHoraActual.Enabled := True;
  SB.Panels[2].Text := dtmGeneral.qryFirmaNOM_FIRM.Value;
  SB.Panels[3].Text := 'F.T.:' + Paramstr(6);
  SB.Panels[4].Text := 'F.S.:' + FormatDateTime('dd/mm/yyyy hh:mm AM/PM', Now);

  bbtaplicar.enabled:=false;
  bbtcancelar.enabled:=false;
  bbtAdicionar.enabled:=false;

  QryOrigenes.Close;
  QryOrigenes.open;

  QryConsulta.Open;
  //activas las consultas que utilizan las vistas
  QryLmTipCl.Open;
  QryLmSectorDian.Open;
  QryGnDivip.Open;
  QryLmRegim.Open;
  QryLmTipCu.Open;
  QryOmEmiso.Open;
  //consultas que se utilizan en los combos
  QryLmTipIden.Open;
  QryFirma.Close;
  QryFirma.ParamByName('Cod_firm').AsFloat := 1;
  QryFirma.Open;

  // codigos CIIU
  QryCiiu.Close;
  QryCiiu.Open;
  // Sectores
  //Presentacion inicial
  pgDetCliente.ActivePage   := TabSituacionFinan;
  pnlSituacionFinan.Visible := True;
  pnlHistorico.Visible      := False;
  pnlRepresent.Visible      := False;
  pnlTodosRepl.Visible      := True;
  pgConyugeClie.ActivePage  := TabInfConyuge;
  pgDatosCliente.ActivePage := TabDatosBas;
  TabDatosBasNat.TabVisible := False;
  TabDatosBasJur.TabVisible := False;

  QryInsertOrdenante.Close;
  QryInsertOrdenante.Open;

  QrylmGrupEmpre.Close;
  QrylmGrupEmpre.Open;

  QryPais.Close;
  QryPais.Open;

  QryMoneda.Close;
  QryMoneda.Open;

  QrySistemasElectro.Close;
  QrySistemasElectro.Open;

  QryCiudades.Close;
  QryCiudades.Open;

  QrySectores.Close;
  QrySectores.Open;

  QryLmAecon.Close;
  QryLmAecon.Open;

  qrygnRechazo.Close;
  qrygnRechazo.Open;

  qrygnROS.Close;
  qrygnROS.Open;
  TabSituacionFinan.Caption:='Informacion Finaciera';

  QryDv_Paises.Close;
  QryDv_Paises.Open;

  qrygnActividad.Close;
  qrygnActividad.Open;

end;

[ecfisa]

Hola Diana.

No, nada parece ser en OnCreate y tampoco veo que liberes nada en OnClose, reamente es raro. Lo que sí es seguro,
por el tipo de excepción, que en algún punto tratas de utilizar un recurso no creado o de liberar un recurso inexistente...

Para tratar de involucrar menos elementos y aislar el error, podrías probar lo siguiente:

FrmMenuCliente

Código Delphi [-]
procedure TFrmMenuCliente.ClientesClick(Sender: TObject);
begin
  TFrmClientes.Mostrar;
end;

FrmClientes

Código Delphi [-]
...
type
  TFrmClientes = class(TForm)
    procedure FormCreate(Sender: TObject);
    ...
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
  public
    class procedure Mostrar;
  end;
...
implementation

class procedure TFrmClientes.Mostrar;
begin
  if not Assigned(FrmClientes) then
    FrmClientes:= TFrmClientes.Create(nil);
  FrmClientes.ShowModal;
end;

procedure FormCreate(Sender: TObject);
begin
  ...
end;
...
procedure TFrmClientes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ...
  Action:= caFree;
end;

procedure TFrmClientes.FormDestroy(Sender: TObject);
begin
  FrmClientes:= nil;
end;

Eso seguramente no te quite el error, pero lo circunscribe a FrmClientes, excepto que se esté provocando en las líneas:

Código Delphi [-]
 Permisos(FrmClientes.Tag);
 PermisosBotones(FrmClientes.spbAdicionar,FrmClientes.spbModificar,nil,FrmClientes.spbAceptar);

De las que tendrías que prescindir para la prueba.

Un saludo.

[rgstuamigo]

Empezado por Diana Carolina

Hola Reemplacé el código con el que me enviaste y aún me sale el error de Access Violation. Además cuando cierro el formulario y lo intento abrir de nuevo me dice que ya existe un formulario llamado frmclientes, adjunté las imágenes que me salen. Espero que sirvan de algo.

Gracias por la colaboracion y quedo a la espera de sus comentarios.

Bueno... aparte de lo ya comentado por ecfisa, creo que para estos menesteres lo mejor que puedes hacer para encontrar la linea de código que te genera dicha excepcion es DEBUGEAR.
Puedes por ejemplo colocar un "punto de ruptura"(breakPoint) en la parte donde se crea tu formulario "FrmClientes".
Teniendo ubicada la linea que genera la Excepcion, ya es más fácil poder darse cuenta de lo que está sucediendo...
Saludos...

[Diana Carolina]

Empezado por rgstuamigo

Bueno... aparte de lo ya comentado por ecfisa, creo que para estos menesteres lo mejor que puedes hacer para encontrar la linea de código que te genera dicha excepcion es DEBUGEAR.
Puedes por ejemplo colocar un "punto de ruptura"(breakPoint) en la parte donde se crea tu formulario "FrmClientes".
Teniendo ubicada la linea que genera la Excepcion, ya es más fácil poder darse cuenta de lo que está sucediendo...
Saludos...

Hola Gracias por responder.

Adjunto estoy anexando la imagen de exactamente en donde se genera el error.

Tambien adjunto el codigo de este proceso.

Código Delphi [-]
destructor TRxMemoryData.Destroy;
begin
  inherited Destroy;
  FreeIndexList;
  ClearRecords;
  FRecords.Free;
  ReallocMem(FOffsets, 0);
end;

Este codigo está en la la unidad RxMenDS.pas la cual está en la siguiente ruta:
C:\Archivos de programa\Borland\Delphi6\Rx Library\units\RxMenDS.pas

Voy a realizar las pruebas sugeridas por ecfisa y estaré subiendo el resultado de las mismas.