problemas con la ejecucion de mi aplicacion en delphi

[mikylin]

hola amigos del foro:

tengo un problema cuando ejecuto mi aplicacion en delphi 7 me sale el siguiente error

Project Project1.exe1 raised exception class EVariant TypeCastError with message 'Cold not convert variant of type (Null) into type (String)'. Process Stopped. Use Step or Run to Continue.

lo vuelvo a ejecutar y me vuelve a dar ese error. Lo ejecuto varias veces y al final de 15 o 16 intentos recien corre el programa

Por favor les pido una ayudita. Gracias

[[Caral]]

Hola
Tienes un problema en el codigo, en algun sitio estas haciendo una trasformacion de Variant a String y no la acepta.
Coloca el codigo aqui, usa el depurador ( F7 o F8) asi veras donde da el error.
Saludos

[mikylin]

cuando lo depuro solo me marca los end. , la ultima fila de cada formulario y en ninguna parte aparece la palabra variant.

por favor una manito.

[[Caral]]

Hola
La palabra variant no te va a salir en ningun lado.
Coloca el codigo que te da problemas aqui y lo vemos.
Saludos

[mikylin]

hola caral:
este es uno de los formularios en los que al depurar me sale la ultima fila resaltada.


unit R_IVPIF;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, jpeg, QuickRpt, ExtCtrls;
type
TRIVPIF = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
TitleBand1: TQRBand;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
PageFooterBand1: TQRBand;
QRLabel2: TQRLabel;
QRImage2: TQRImage;
QRSysData1: TQRSysData;
QRShape1: TQRShape;
QRLabel8: TQRLabel;
QRLabel12: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel9: TQRLabel;
QRLabel11: TQRLabel;
QRLabel10: TQRLabel;
QRLabel3: TQRLabel;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRDBText12: TQRDBText;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
RIVPIF: TRIVPIF;
implementation
{$R *.dfm}
USES MODULOENLACE;
end.


gracias.

[[Caral]]

Hola
Usa las etiquetas delphi, se vera mejos asi:

Código Delphi [-]
unit R_IVPIF;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, jpeg, QuickRpt, ExtCtrls;
type
TRIVPIF = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
TitleBand1: TQRBand;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
PageFooterBand1: TQRBand;
QRLabel2: TQRLabel;
QRImage2: TQRImage;
QRSysData1: TQRSysData;
QRShape1: TQRShape;
QRLabel8: TQRLabel;
QRLabel12: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel9: TQRLabel;
QRLabel11: TQRLabel;
QRLabel10: TQRLabel;
QRLabel3: TQRLabel;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRDBText12: TQRDBText;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
RIVPIF: TRIVPIF;
implementation
{$R *.dfm}
USES MODULOENLACE;
end.

ahora a pensar.
Saludos

[[Caral]]

Hola
Aqui no hay nada, solo que usas un MODULOENLACE.
No me dice nada.
Saludos

[mikylin]

Hola Caral aca me sale el error: haber si con esto me puedes ayudar por favor. El programa corre pero se ven feo los errores y no se si mas adelante me de problemas.


unit PRINCIPAL;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, XPMan, Menus, Grids, DBGrids, Mask,
DBCtrls;
type
Tmenucito = class(TForm)

Código Delphi [-]
    XPManifest1: TXPManifest;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    DBGrid7: TDBGrid;
    DBGrid8: TDBGrid;
    DBGrid9: TDBGrid;
    Image1: TImage;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBGrid10: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBGrid11: TDBGrid;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Image2: TImage;
    DBEdit5: TDBEdit;
  
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  menucito: Tmenucito;

implementation
uses
  FORMULARIOMENU,MODULOENLACE;
{$R *.dfm}procedure Tmenucito.Button1Click(Sender: TObject);
begin 
      with datamodule1.BCONTRA_LOGIN do begin
       if active=true then active:=false;prepare;
       parambyname('@LOGINU').AsString:= EDIT1.TEXT;
       parambyname('@CONTRASENAU').AsString:= EDIT2.TEXT;
       execproc; active:=true;
     end;
      with datamodule1.BNOMBREUSUARIO do begin
       if active=true then active:=false;prepare;
       parambyname('@LOGINU').AsString:= EDIT1.TEXT;
       execproc; active:=true;
     end;
     IF (DBEDIT1.TEXT = '')OR(DBEDIT2.TEXT = '') THEN
     begin
        SHOWMESSAGE('EL NOMBRE DE USUARIO O CONTRASEÑA NO ES VALIDO');
        image2.Visible:=true;
     end
     ELSE
     begin
       if (DBEDIT5.TEXT = 'ADMINISTRADOR') then
       BEGIN
        FPRINCIPAL.SHOW;
        image2.Visible:=false;
        FPRINCIPAL.MainMenu1.ITEMS.Items[0].ENABLED:=TRUE;
        FPRINCIPAL.MainMenu1.ITEMS.Items[2].ENABLED:=TRUE;
        FPRINCIPAL.MainMenu1.ITEMS.Items[1].ITEMS[2].ENABLED:=TRUE;
 
       END
       ELSE
       BEGIN
           FPRINCIPAL.SHOW;
           FPRINCIPAL.MainMenu1.ITEMS.Items[0].ENABLED:=FALSE;
           FPRINCIPAL.MainMenu1.ITEMS.Items[2].ENABLED:=FALSE;
           FPRINCIPAL.MainMenu1.ITEMS.Items[1].ITEMS[2].ENABLED:=FALSE;
        END;
     end;
end;
 
end.

[[Caral]]

Hola
Que clase de datos contienen estos en la tabla?:
@LOGINU
@CONTRASENAU
Osea, son integer, string, float, etc.....
Saludos

[[maeyanes]]

Hola...

El error es por que en algún lugar tratas de usar un valor de tipo string de algún campo, pero en la base de datos ese campo no tiene valor (es NULL) y al tratar de hacer la conversión falla...

Checa ese aspecto...



Saludos...

[mikylin]

holas chicos:

@login
@contraseña
son los parametros que envio a mi procedimiento almacenado, para comprobar la cuenta del usuario, y son de tipo char


gracias por toda la ayuda.