Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Zeroql en 25 Julio 2007, 19:28 pm



Título: (solucionado)probrema con Type
Publicado por: Zeroql en 25 Julio 2007, 19:28 pm
buenas amigos hace rato que no entro a este post. pero me surgio un problema con la libreria Type, tengo esto:

Código:
Type RasLib 'libreria del archivo de actualizacion
 NomApp As String * 20 'se encarga de almacenar el nombre de la aplicacion
 version As String * 10 'Se encarga de la version para actualizar
 Archivos As String * 300  ' para saber que archivos se van actualizar
End Type
Public NewVer As RasLib

bien por el momento va bien, el problema es cuando abro el archivo.

Código:
Sub verAct()  'funcion para verificar la version del archivo
  verApp = App.Major & "." & App.Minor & "." & App.Revision 'version de la aplicacion
  'abrir el archivo para ver la nueva version
  Open App.Path + "\RasDat.lcof" For Random As #1
  Get #1, , NewVer

he aqui donde se me forma el problema
me dice que el archivo esta fuera del limite. y esto es por que en Archivos As String esta en 300 si lo paso a 50 funciona bien. pero he credo aplicaciones con types de 500 y es la primera ves que me sucede esto, alguie me explica el por que  no me fuciona al leer el archivo? y posibles soluciones gracias


Título: Re: probrema con Type
Publicado por: Sancho.Mazorka en 25 Julio 2007, 21:55 pm
es xq no podes usar solamente la var NewVer para obtener los datos, creo que tenes que obtener x tipo, NewVer.NomApp o sino xq quiere leer 300 caracteres cuando no los hay, alguna de esas 2 razones puede ser, asegurate de que tenga 330 caracteres el archivo tuyo y va a funcionar o proba poner un On Error Resume Next al principio del Sub VerAct()


Sancho.Mazorka    :¬¬


Título: Re: probrema con Type
Publicado por: Zeroql en 25 Julio 2007, 22:02 pm
si ya la he probrado con todos los caracteres completos (330) y aun asi no funciona


Título: Re: (solucionado)probrema con Type
Publicado por: Zeroql en 26 Julio 2007, 19:37 pm
ya he solucionado el error que tenia para keines tambientengan este error se soluciona colocando
Código:
  Open App.Path + "\RasDat.lcof" For Random As #1 len=len(newVer)
newVer se refiere a la variable asignada al tipe