Formularios Violation Access

[asdbernardo]

Buenas tardes, foristas!

Ante todo un cordial saludo a todos..

me estoy iniciando en el delphi ( vengo de visual basic ) y tengo varias dudas que se me vienen presentando en mi proyecto, estoy haciendo un programa cliente servidor, en mysql y delphi 2010, pero tengo varios problemitas en cuanto a los Violation access, he estado leyendo y a lo mejor puede ser porque no me va muy bien con eso de que hay que liberar y destruir los form .. entonces a ver
tengo 3 pantallas, una es un login, la siguiente es principal y la siguiente es agencia, seria algo asi:

Login
Principal > aca tiene un mainmenu donde al darle click a Agencia se despliegan otro menus y en ese menu esta un menuitem que selecciona el formulario Agencia y lo muestro con un .show y lo declaro en uses Agencia.

pero me salta un error de violation access y lo he probado en diferentes maquinas con delphi 2010 y sigue saltando ese error, posteare el codigo para que lo vean

source project

program Project1;

uses
  Forms,
  Controls,
  Login in 'Login.pas' {frmLogin},
  Principal in 'Principal.pas' {frmPrincipal},
  Agencia in 'Agencia.pas' {frmAgencia};

{$R *.res}
    var
    Respuesta: integer;
begin

 Application.Initialize;
  Application.Title := 'WB System';
  frmLogin := TfrmLogin.Create(Application);
    frmprincipal := Tfrmprincipal.Create(Application);
 try
    Respuesta := frmLogin.ShowModal;
      if Respuesta = mrOK then
        begin
          Application.CreateForm(TfrmPrincipal, frmPrincipal);
  Application.CreateForm(TfrmAgencia, frmAgencia);
  Application.CreateForm(TfrmLogin, frmLogin);
  Application.Run;
        end;
  finally
    frmLogin.Free;
  end;
end.

code login.

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, UniProvider, MySQLUniProvider, DB, DBAccess,
  Uni, MemDS;

type
  TfrmLogin = class(TForm)
    UniConnection1: TUniConnection;
    UniTable1: TUniTable;
    UniDataSource1: TUniDataSource;
    MySQLUniProvider1: TMySQLUniProvider;
    Button1: TButton;
    qry: TUniQuery;
    txtusu: TEdit;
    txtpass: TEdit;
    qryuser_login: TStringField;
    qryuser_password: TStringField;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lblintentos: TLabel;
    lblverifique: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure txtusuKeyPress(Sender: TObject; var Key: Char);
    procedure txtpassKeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  frmLogin: TfrmLogin;
    nintentos: integer;
    veces: integer;
implementation

uses Principal;

{$R *.dfm}

procedure TfrmLogin.Button1Click(Sender: TObject);
begin
qry.SQL.Clear;
qry.SQL.Add(' select user_login');
qry.SQL.Add(' , user_Password');
qry.SQL.Add(' from Login');
qry.SQL.Add(' where user_login = Upper(:UserLogin)');
qry.SQL.Add(' and ');
qry.SQL.Add(' user_password = (:UserPassword)');
qry.Params[0].Value := UpperCase(Trim(txtusu.Text));
qry.Params[1].Value := Trim(txtpass.Text);
qry.Open;

if qry.RecordCount > 0 then
            begin
          frmprincipal.Show;
          frmlogin.Hide;
            end
               else
    begin
      nIntentos := nIntentos + 1 ;       {Intentos del login}
      veces := 3;    {Veces limite de login}
      lblIntentos.Visible := true;
      lblIntentos.Caption := 'Intentos Restantes: ' + inttostr(veces-nIntentos);
       lblVerifique.Caption := 'Login Invalido, Verifique!';
      if (nIntentos < veces) then
        begin

           txtusu.Text := '';
           txtpass.Text :='';
           txtusu.SetFocus;
        end
        else if (nIntentos = veces) then
          begin
                    txtusu.Text := '';
           txtpass.Text :='';
           txtusu.SetFocus;
             frmLogin.ModalResult := mrCancel;

       Application.MessageBox( 'Maximo de Intentos, Sera notificado al Administrador',
  'Acceso denegado', MB_ICONSTOP );

             end;
            end;
end;


procedure TfrmLogin.Button2Click(Sender: TObject);
begin
close;
 end;




procedure TfrmLogin.txtpassKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then                          { if it's an enter key }
   begin
       Key := #0;                                 { eat enter key }
       Perform(WM_NEXTDLGCTL, 0, 0);              { move to next control }
   end
end;

procedure TfrmLogin.txtusuKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then                          { if it's an enter key }
   begin
       Key := #0;                                 { eat enter key }
       Perform(WM_NEXTDLGCTL, 0, 0);              { move to next control }
   end
end;

end.

y por ultimo el principal

unit Principal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, buttons , StdCtrls;

type
  TfrmPrincipal = class(TForm)
    MainMenu1: TMainMenu;
    Archivo1: TMenuItem;
    CerrarPrograma1: TMenuItem;
    Agencias1: TMenuItem;
    RegistrarAgencia1: TMenuItem;
    RegistrarUsuario1: TMenuItem;
    Loterias1: TMenuItem;
    RegistrarAgencia2: TMenuItem;
    ModificarAgencia1: TMenuItem;
    Borrar1: TMenuItem;
    Registrar1: TMenuItem;
    Modificar1: TMenuItem;
    Borrar2: TMenuItem;
    procedure CerrarPrograma1Click(Sender: TObject);
    procedure RegistrarAgencia2Click(Sender: TObject);

   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation
          uses agencia;
      {$R *.dfm}


procedure TfrmPrincipal.CerrarPrograma1Click(Sender: TObject);
begin
 application.Terminate;
end;

procedure TfrmPrincipal.RegistrarAgencia2Click(Sender: TObject);
begin
frmagencia.Show;
end;

end.

y pues agencia no tengo nada programado aun porque no me lo muestra y estoy con eso del violation access xD

unit Agencia;

interface

uses StdCtrls,  Classes, Windows, Messages, SysUtils, Variants, Graphics, Forms,
  Dialogs, Controls;

type
  TfrmAgencia = class(TForm)
    lblModuloAgencias: TLabel;
    gbDatosAgencia: TGroupBox;
    edtnombreagencia: TEdit;
    edtresponsable: TEdit;
    lblnombreagencia: TLabel;
    lblresponsable: TLabel;
    edtnumeroagencia: TEdit;
    lblnroagencia: TLabel;
    gblimiteventas: TGroupBox;
    lblterminales: TLabel;
    lbltriples: TLabel;
    lblzodiacales: TLabel;
    edtterminales: TEdit;
    edttriples: TEdit;
    edtzodiacales: TEdit;
    btnaceptar: TButton;
    btncancelar: TButton;
    lblregistro: TLabel;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAgencia: TfrmAgencia;

implementation

{$R *.dfm}
end.

el error que me marca de violation es:

Access Violation at address 004AFBB6 in module 'project1.exe'. Read of Address 00000384

si alguno me puede guiar sobre evitar estos access violation en cuando a la llamado de formularios me gustaria mucho! saludos

Y gracias por su atencion a mi post!

[[oscarac]]

Tenemos a un converso jejeje
y en que linea te sale el error?

[[Caral]]

Hola
A mi esto no me suena:

Código Delphi [-]
 Application.Initialize;
  Application.Title := 'WB System';
  frmLogin := TfrmLogin.Create(Application);
    frmprincipal := Tfrmprincipal.Create(Application);
 try
    Respuesta := frmLogin.ShowModal;
      if Respuesta = mrOK then
        begin
          Application.CreateForm(TfrmPrincipal, frmPrincipal);
  Application.CreateForm(TfrmAgencia, frmAgencia);
  Application.CreateForm(TfrmLogin, frmLogin);
  Application.Run;
        end;
  finally
    frmLogin.Free;
  end;

Saludos

[asdbernardo]

Eso es lo extraño no me marca error en el ninguna linea, si le doy en pause me marca es el CPU, es esto

ntdll.DbgUiRemoteBreakin:
7C96077B 6A08 push $08

de resto solo me marca ese access violation.

[[Caral]]

Hola
Corre o de plano no corre ni de principio ?.
Sigo con lo mismo, no me suena crear dos veces los formularios, es evidente que esta mal.
Saludos

[asdbernardo]

Si corre, hasta el form principal, todo marcha bien! cuando intento llamar al formulario Agencia, me genera ese violation access

[asdbernardo]

Empezado por Caral

Hola
A mi esto no me suena:

Código Delphi [-]
 Application.Initialize;
  Application.Title := 'WB System';
  frmLogin := TfrmLogin.Create(Application);
    frmprincipal := Tfrmprincipal.Create(Application);
 try
    Respuesta := frmLogin.ShowModal;
      if Respuesta = mrOK then
        begin
          Application.CreateForm(TfrmPrincipal, frmPrincipal);
  Application.CreateForm(TfrmAgencia, frmAgencia);
  Application.CreateForm(TfrmLogin, frmLogin);
  Application.Run;
        end;
  finally
    frmLogin.Free;
  end;

Saludos

Con respecto a esto que dices tienes razon, me puse a acomodar y dejar sin ese if de comprobacion y todo marcho bien me abrio el form agencia, quedo asi; pero se ejecutan todos los formularios ese if era como una validacion.. pero la verdad no se porque no anda bien.

program Project1;

uses
  Forms,
  Controls,
  Login in 'Login.pas' {frmLogin},
  Principal in 'Principal.pas' {frmPrincipal},
  Agencia in 'Agencia.pas' {frmAgencia};

{$R *.res}
    var
    Respuesta: integer;
begin
  Application.Initialize;
  Application.Title := 'WB System';
  frmLogin := TfrmLogin.Create(Application);
  frmprincipal := Tfrmprincipal.Create(Application);
  frmagencia := Tfrmagencia.Create(Application);
  frmagencia.Hide;
  frmlogin.ShowModal;
   {try
    Respuesta := frmLogin.ShowModal;
      if Respuesta = mrOK then
        begin
  Application.Run;
        end;
  finally
    frmLogin.Free;
  end;    }
end.

[[Caral]]

Hola
Bueno segun lo que veo creas los forms siempre y cuando el form login sea ok, tal vez no se crea bien el form agenda, no lo se.
Me extraña mucho esta manera de hacer las cosas.
Haces un simple show a un form que se supone se ha creado.
De todos modos, no es la mejor forma de llamar a los forms, para mi.
Saludos

[ecfisa]

Hola.

Revisá que frmAgencia esté incluída en Available forms en: Project -> Options -> Auto-create Forms.

Si no es así cambiá esta línea:

Código Delphi [-]
  frmagencia.Show;

Por:

Código Delphi [-]
  with TFrmagencia.Create(Application) do Show;

Saludos.

[asdbernardo]

Empezado por Caral

Hola
Bueno segun lo que veo creas los forms siempre y cuando el form login sea ok, tal vez no se crea bien el form agenda, no lo se.
Me extraña mucho esta manera de hacer las cosas.
Haces un simple show a un form que se supone se ha creado.
De todos modos, no es la mejor forma de llamar a los forms, para mi.
Saludos

Gracias, estoy iniciandome en el delphi 2010, me agrada mucho.. por eso tenia dudas aparte recuerda vengo de Visual basic, que solamente con llamar el form.show(); lo trae sin mas.. pero ahora me gusta mas el delphi.. ya logre solventarlo muchas gracias por tu atencion y por el tiempo que le dedicaste al leer mi post.. Saludos.

[asdbernardo]

Empezado por ecfisa

Hola.

Revisá que frmAgencia esté incluída en Available forms en: Project -> Options -> Auto-create Forms.

Si no es así cambiá esta línea:

Código Delphi [-]
  frmagencia.Show;

Por:

Código Delphi [-]
  with TFrmagencia.Create(Application) do Show;

Saludos.

Gracias amigo, lo solvente con eso! esa es la forma de llamar los formularios solo que como comente arriba vengo de otro compilador y me estoy adaptando.. Gracias por tu atencion a mis dudas.. pronto estare de nuevo por aca.. pero adelantare! con eso ya espero no me salte mas el problema de la violation access xD

[[Caral]]

Hola
En delphi también, con solo un form.Show ya esta, siempre que lo tengas creado al iniciarse el programa.
Pero: Delphi da la opción de crearlo cuando uno desee, no necesariamente al inicio.
Esto lo que hace para que el programa corra mejor al iniciarse.
Saludos

[asdbernardo]

Empezado por Caral

Hola
En delphi también, con solo un form.Show ya esta, siempre que lo tengas creado al iniciarse el programa.
Pero: Delphi da la opción de crearlo cuando uno desee, no necesariamente al inicio.
Esto lo que hace para que el programa corra mejor al iniciarse.
Saludos

Gracias caral, Ahora si ya me estoy familiarizando.. Ya estoy entiendiendo lo que es el delphi, ahora me toca aprender mas sobre las excepciones, los erroes con eso ... ya que tengo que saber controlar los errores .. pero aun no le llego, estoy con mi aplicacion en el login, sabes que estoy usando Unidac con delphi 2010, y tengo el componente uniconnection activado como true en la conexion para que cuando el login entre de una vez cargue la base de datos.. la cuestion esta que me sale Socketexception cuando digamos por razones ajenas se cae el servidor, o no se puede conectar.... y es por ese mismo problema salta el error socketexcepcion, pero no se como comprobarlo, activarlo en modo codigo, si hay conexion que proceda a colocarlo como true, sino lo hay solamente que muestre el login y me diga que no hay conexion pero la verdad ya tengo tiempo en eso.. y no consigo, he leido sobre el try/except/finally y aun no puedo controlarlo .. jeje si sabes de algo! me cuentas.. Saludos