Carlos 26-08-2021, 16:28
Hola
Aquí teneis un componente que permite hacer message digest de un archivo, una lista de archivos o directorios enteros, etc.
Es muy sencillito.
Como hay un montón de algoritmos de MD para elegir uno basta con elegirlo de una lista.
También es posible hacer un hash de un string. Por ejemplo para hacer un hash md5 de una string
El proyecto está aquí y aunque está en beta es tan simple que dudo que haya muchos errores, pero alguno puede haber al pasarlo de clase a componente.
https://gitlab.com/kabronsete/mydigest/-/tree/main
Y la documentación la tenéis aquí. Se lee en un pis pas.
https://gitlab.com/kabronsete/mydigest/-...Digest.pdf
Aquí teneis un componente que permite hacer message digest de un archivo, una lista de archivos o directorios enteros, etc.
Es muy sencillito.
Como hay un montón de algoritmos de MD para elegir uno basta con elegirlo de una lista.
También es posible hacer un hash de un string. Por ejemplo para hacer un hash md5 de una string
Código:
dim F as new MyDigest
Var="hola mundo"
F.md=F.MdList.md5
var2=f.strchecksum(var)El proyecto está aquí y aunque está en beta es tan simple que dudo que haya muchos errores, pero alguno puede haber al pasarlo de clase a componente.
https://gitlab.com/kabronsete/mydigest/-/tree/main
Y la documentación la tenéis aquí. Se lee en un pis pas.
https://gitlab.com/kabronsete/mydigest/-...Digest.pdf
Shordi 26-08-2021, 13:12
Aquí tenéis un tutorial de cómo se usa el control TryIcon para generar aplicaciones cuya interfaz sea un icono en la barra de tareas. De hecho en el vídeo podéis ver cómo hacer aplicaciones con interfaz dual: Con una ventana principal y con un Icono en la barra de tareas.
Espero que os sea útil.
Saludos
Espero que os sea útil.
Saludos
Comportamiento errático de MoveTo en un TreeView
Grandamakulo 25-08-2021, 22:48
Hola, compañeros:
Pues lo del asunto, gente. Veréis, tenía un código que, más o menos, funcionaba. Lo del más o menos es porque no tenía control de errores, pero funcionaba. Y el caso es que, de la noche a la mañana, ha dejado de hacerlo.
Se trata de un TreeView llamado «trvProyecto» que tiene unos botones añadidos para mover los ítems y resulta que que el invento funcionaba hasta hace poco —no puedo determinar cuándo, porque mis proyectos tienden a la eternización—, cuando comenzó a ocurrir que no podía cambiar el «Current» del TreeView con MoveTo(). Simplemente es que MoveTo() no hace nada de nada —y he probado luego con MoveChild, MoveParent, MoveBefore, MoveFirst, et caetera, con el mismo resultado—. No sé si os ha pasado lo mismo y estáis tan desesperados como yo. Pongo ejemplo del código:
¿Seríais tan amables de orientarme? —seguro que es una chorrada que mi ignorancia ha pasado por alto—. Gracias de antemano.
Pues lo del asunto, gente. Veréis, tenía un código que, más o menos, funcionaba. Lo del más o menos es porque no tenía control de errores, pero funcionaba. Y el caso es que, de la noche a la mañana, ha dejado de hacerlo.
Se trata de un TreeView llamado «trvProyecto» que tiene unos botones añadidos para mover los ítems y resulta que que el invento funcionaba hasta hace poco —no puedo determinar cuándo, porque mis proyectos tienden a la eternización—, cuando comenzó a ocurrir que no podía cambiar el «Current» del TreeView con MoveTo(). Simplemente es que MoveTo() no hace nada de nada —y he probado luego con MoveChild, MoveParent, MoveBefore, MoveFirst, et caetera, con el mismo resultado—. No sé si os ha pasado lo mismo y estáis tan desesperados como yo. Pongo ejemplo del código:
Código:
Public Sub pryArriba_Click()
Dim sClave As String
Dim sEste As String
sEste = trvProyecto.Current.Key
trvProyecto.MoveCurrent
If Not trvProyecto.MoveAbove() Then
sClave = trvProyecto.Item.Key
Try trvProyecto.Current.MoveBefore(sClave)
trvProyecto.MoveTo(sEste)
Endif
End
Public Sub pryAbajo_Click()
Dim sClave As String
Dim sEste As String
sEste = trvProyecto.Current.Key
trvProyecto.MoveCurrent
If Not trvProyecto.MoveBelow() Then
sClave = trvProyecto.Item.Key
trvProyecto.Current.MoveAfter(sClave)
trvProyecto.MoveTo(sEste)
trvProyecto.Item.Selected = Si
Endif
End
Public Sub pryPosterior_Click()
Dim sClave As String
Dim sEste As String
sEste = trvProyecto.Current.Key
trvProyecto.MoveCurrent
If Not trvProyecto.MoveAbove() Then
sClave = trvProyecto.Item.Key
trvProyecto.Current.Reparent(sClave)
trvProyecto.MoveTo(sEste)
trvProyecto.Item.Selected = Si
Endif
End
Public Sub pryAnterior_Click()
Dim sClave As String
Dim sEste As String
sEste = trvProyecto.Current.Key
trvProyecto.MoveCurrent
If Not trvProyecto.MoveParent() Then
If Not trvProyecto.MoveParent() Then
sClave = trvProyecto.Item.Key
trvProyecto.Current.Reparent(sClave)
trvProyecto.MoveTo(sEste)
trvProyecto.Item.Selected = Si
Endif
Endif
End
Public Sub prySuperior_Click()
Dim sClave As String
Debug trvProyecto.Current.Text
sClave = trvProyecto.Current.Key
trvProyecto.Current.MoveFirst
trvProyecto.MoveTo(sClave)
Debug trvProyecto.Current.Text
End
Public Sub pryInferior_Click()
Dim sClave As String
Debug trvProyecto.Current.Text
sClave = trvProyecto.Current.Key
trvProyecto.Current.MoveLast
trvProyecto.MoveTo(sClave)
Debug trvProyecto.Current.Text
End¿Seríais tan amables de orientarme? —seguro que es una chorrada que mi ignorancia ha pasado por alto—. Gracias de antemano.
Bienvenido, Invitado
Últimos temas
Archivos .ods
Foro: GeneralÚltimo mensaje por: tincho, 01-07-2025, 18:54
Respuestas: 8 - Vistas: 256
Publicidad
Foro: Sobre gambas-es.orgÚltimo mensaje por: tincho, 01-07-2025, 18:48
Respuestas: 6 - Vistas: 330
Web con gambas, a ver si ...
Foro: WebApp/WebFormsÚltimo mensaje por: tincho, 01-07-2025, 17:47
Respuestas: 41 - Vistas: 32,585
Un sistema de ayudas cont...
Foro: VideotutorialesÚltimo mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 307
Crear una aplicación para...
Foro: Bases de DatosÚltimo mensaje por: Shell, 29-05-2025, 20:11
Respuestas: 11 - Vistas: 1,487