HMGforum.com

HMG General Help :: Re: new version databases :: Reply by mol

no_email@example.com (mol) — Sat, 01 Nov 2025 07:42:54 +0000

I've used last version of postgresql and hmg344 with success, no problems

Issues and Discussions related to Harbour :: dBaseWeb 2.0 :: Author danca

no_email@example.com (danca) — Sat, 01 Nov 2025 17:59:37 +0000

Hi all, this is not strictly related to HMG, it's pure Harbour.
A library to create web applications. Maybe someone can be interested.
At present the scarce documentation should be translated, please use the AI.
dBaseWeb Lite 2.0 for Windows + running demo + embedded Apache Portable:
https://appliserver.com/dbwdload.html
Dan

Issues and Discussions related to Harbour :: Re: dBaseWeb 2.0 :: Reply by Pcmodula

no_email@example.com (Pcmodula) — Tue, 04 Nov 2025 18:32:37 +0000

Interesante, ¿podemos también gestionar bases de datos SQL?

Saludos

Issues and Discussions related to Harbour :: Re: dBaseWeb 2.0 :: Reply by serge_girard

no_email@example.com (serge_girard) — Thu, 06 Nov 2025 07:52:53 +0000

I will take a look, thanks for sharing!
S

General :: Ordenar un GRID :: Author jorge.posadas

no_email@example.com (jorge.posadas) — Tue, 28 Oct 2025 16:59:08 +0000

Grupo

¿Cómo puedo hacer para ordenar un grid con una columna que yo desee?

De antemano agradezco la ayuda

General :: Re: Ordenar un GRID :: Reply by serge_girard

no_email@example.com (serge_girard) — Wed, 29 Oct 2025 07:12:53 +0000

Hi,

you can use something like this:

Code: Select all

ON HEADCLICK { {|| Sort_Grid_XFER(1)}  , { || Sort_Grid_XFER(2)} , { || Sort_Grid_XFER(3) } , { || Sort_Grid_XFER(4) }  } ;



FUNCTION Sort_Grid_XFER(t)
/************************/
LOCAL nATL := Form_SL_XFER1.Grid_XFER.ItemCount
DECLARE nF [ nATL, 4 ]
 
FOR I := 1 To nATL
	aItem		:= Form_SL_XFER1.Grid_XFER.Item ( i )  
	nF [i,1]	:= aItem [1]   // use val or ctod if necessary !!!
	nF [i,2]	:= aItem [2] 
	nF [i,3]	:= aItem [3] 
	nF [i,4]	:= aItem [4] 
NEXT A

aSortnF := ASORT(nF,,, { |x, y | x[t] < y[t] } )

DELETE ITEM ALL FROM Grid_XFER OF Form_SL_XFER1
AEVAL( nF, {| elem | add_item(elem, 'Form_SL_XFER1' , 'Grid_XFER' ) } )
RETURN


FUNCTION add_item(elem, form, gridz )
ADD ITEM {elem[1] , elem[2], elem[3], elem[4] } TO &gridz OF &form
RETURN

General :: Re: Ordenar un GRID :: Reply by nekbmm

no_email@example.com (nekbmm) — Thu, 30 Oct 2025 13:11:33 +0000

Thanks for sharing.

NEX.

General :: Re: Ordenar un GRID :: Reply by jorge.posadas

no_email@example.com (jorge.posadas) — Mon, 03 Nov 2025 16:05:33 +0000

Gracias Serge_Girad

Lo voy a probar en mi programa

General :: Re: Libvlc.dll Working :: Reply by franco

no_email@example.com (franco) — Mon, 27 Oct 2025 18:53:30 +0000

Great work looking forward to testing and next update.

General :: Re: Libvlc.dll Working :: Reply by danielmaximiliano

no_email@example.com (danielmaximiliano) — Tue, 28 Oct 2025 01:47:29 +0000

Hola a todos: hice unas mejoras (cambio de nombres a los .prg) creación de una nueva clase para manejar la LibVLC llamada tRtspVlc dentro de Class_tRtsp_VLC.prg para no tener que lidiar con tRtsp dentro de Class_tRtsp.prg las 2 clases manejan LibVLC dentro de Bridge_VLC.prg mas simple.

Code: Select all

   METHOD New( cRtspUrl )                     //   oCam := tRTSP():New( "192.168.100.16", 554 )
   METHOD Play()
   METHOD PlayInFrame( hWndFrame )
   METHOD Pause()
   METHOD Stop()
   METHOD Close()  
   METHOD GetState()                                        // devuelve texto legible del estado actual
   METHOD SetVolume( nVol )                            // 0 a 100
   METHOD GetVolume()
   METHOD Snapshot( cFileName )                    // guarda imagen JPG/PNG

solo falta mejoras en los botones ,ocultamiento y activacion de los mismos, limpieza de codigo usado y descartado.

manejo de multiples canales de audio/video dentro de un FRAME definido ( PlayInFrame( hWndFrame )) mi caso son 2 camaras, cada camara tiene 2 canales de audio/video en en direcciones IP fijas designadas por DHCP ( MACADDRESS).

Falta agregar (ahora esta inhabilitado) el Usuario y Contraseña en caso que la URL tenga de tener Autentificación.
Automatico :

Code: Select all

IF ! ":" $ cSrc .AND. ! "@" $ cSrc
   cSrc := "rtsp://admin:12345@" + SubStr( cSrc, 8 )
ENDIF

que es lo mismo que:

Code: Select all

cSrc := "rtsp://admin:12345@192.168.1.50:554/22992e47b611dde40dde83b803ca1ab0_0"

dejo el enlace https://drive.google.com/drive/folders/ ... drive_link

General :: Re: Libvlc.dll Working :: Reply by danielmaximiliano

no_email@example.com (danielmaximiliano) — Wed, 29 Oct 2025 18:28:33 +0000

Hola a todos : Encontré que al colocar una nueva cámara no se que dirección ocupa dentro de mi red, para mejorar la aplicación sin tener que modificar el código (Pronto estaré modificando para que funcione como un "CCTV DVR") esto es crear un frame para cada cámara ( si existiera) para ello tengo que valerme de una nueva función llamada BuscarCamara() (para pruebas simple hice este pequeño .exe)

Captura de pantalla 2025-10-29 152747.png

les dejo el enlace (pueden decirme en que mejorar) : https://drive.google.com/drive/folders/ ... sp=sharing

Attachments

Captura de pantalla 2025-10-29 152747.png (11.46 KiB)

General :: Re: Libvlc.dll Working :: Reply by danielmaximiliano

no_email@example.com (danielmaximiliano) — Wed, 29 Oct 2025 19:49:05 +0000

Mejoras visuales incorporadas

Captura de pantalla 2025-10-29 164234.png

Enlace : https://drive.google.com/drive/folders/ ... sp=sharing

Attachments

Captura de pantalla 2025-10-29 164234.png (14.96 KiB)

General :: Re: Libvlc.dll Working :: Reply by danielmaximiliano

no_email@example.com (danielmaximiliano) — Tue, 04 Nov 2025 01:01:10 +0000

Hola a todos : Mejoras para mi aplicacion Camara (Camara9) , se elimino codigo redundante, se agrego busqueda de camaras por puertos ( 80 HTTP, 554 y otros (TCP-RTSP)
Funcional Clase tVLC ( Boton 'Play Cannel 0' y 'Play Cannel 1')
Funcional boton 'buscar camaras'
Funcional boton 'Archivos'

Se agrego nuevo HTML 'tVLC_documentation_interactive.html' en ingles y español sobre Bridge LIBVLC y las clases tVLC y tRTSP

recuerden que estoy trabajando sobre como recuperar el Resource disponible en la camara, asi como agregar las Credenciales (user/pass) de la misma a la clase RTSP.
saludos a todos !!!
enlace de descarga https://drive.google.com/drive/folders/ ... drive_link

General :: Re: Libvlc.dll Working :: Reply by mol

no_email@example.com (mol) — Fri, 07 Nov 2025 19:49:05 +0000

My cam doesn't support tvlc...

General :: Re: Libvlc.dll Working :: Reply by danielmaximiliano

no_email@example.com (danielmaximiliano) — Sat, 08 Nov 2025 01:58:02 +0000

Hola Mol : que tipo de camara IP?

haz probado Wireshark antes de conectar la camara, ver las peticiones HTTP o TCP desde tu PC hacia la Ip de la camara ?

mi aplicacion de pc llamada HRS v1.2 hacia la camara deja esta huella en Wireshark :

Code: Select all

1	0.000000	192.168.100.17	192.168.100.16	TCP	66	    63424 → 554 [SYN] Seq=0 Win=65535 Len=0 MSS=1460 WS=256 SACK_PERM
2	0.000249	192.168.100.16	192.168.100.17	TCP	66	    554 → 63424 [SYN, ACK] Seq=0 Ack=1 Win=14600 Len=0 MSS=1460 SACK_PERM WS=4
3	0.000519	192.168.100.17	192.168.100.16	TCP	54	    63424 → 554 [ACK] Seq=1 Ack=1 Win=65280 Len=0
4	0.001293	192.168.100.17	192.168.100.16	RTSP	    194	DESCRIBE rtsp://192.168.100.16:554/22992e47b611dde40dde83b803ca1ab0_0 RTSP/1.0
5	0.001500	192.168.100.16	192.168.100.17	TCP	60	    554 → 63424 [ACK] Seq=1 Ack=141 Win=15672 Len=0
6	0.017779	192.168.100.16	192.168.100.17	RTSP/SDP	671	Reply: RTSP/1.0 200 OK
7	0.018521	192.168.100.17	192.168.100.16	RTSP	    222	SETUP rtsp://192.168.100.16:554/22992e47b611dde40dde83b803ca1ab0_0/trackID=0 RTSP/1.0
8	0.020995	192.168.100.16	192.168.100.17	RTSP	   	Reply: RTSP/1.0 200 OK
9	0.021564	192.168.100.17	192.168.100.16	RTSP	    249	SETUP rtsp://192.168.100.16:554/22992e47b611dde40dde83b803ca1ab0_0/trackID=1 RTSP/1.0
10	0.022046	192.168.100.16	192.168.100.17	RTSP	    200	Reply: RTSP/1.0 200 OK
11	0.022423	192.168.100.17	192.168.100.16	RTSP	    211	PLAY rtsp://192.168.100.16:554/22992e47b611dde40dde83b803ca1ab0_0 RTSP/1.0
12	0.023137	192.168.100.16	192.168.100.17	RTSP	    370	Reply: RTSP/1.0 200 OK
13	0.067928	192.168.100.17	192.168.100.16	TCP	54	    63424 → 554 [ACK] Seq=661 Ack=1226 Win=64256 Len=0
14	0.114435	192.168.100.16	192.168.100.17	RTP	1514	PT=DynamicRTP-Type-96, SSRC=0x76712AA5, Seq=0, Time=0,

de esta forma rtsp://192.168.100.16:554/22992e47b611dde40dde83b803ca1ab0_0/ saco el Resource que es /22992e47b611dde40dde83b803ca1ab0_0

General :: Re: Libvlc.dll Working :: Reply by mol

no_email@example.com (mol) — Sat, 08 Nov 2025 10:24:03 +0000

I'll try with another CAM

General :: Re: Libvlc.dll Working :: Reply by danielmaximiliano

no_email@example.com (danielmaximiliano) — Mon, 10 Nov 2025 19:08:35 +0000

Hola a todos : despues de luchar 2 semanas con LibVLC ejecutando desde el cmd en una ventana independiente ( no usado HMG) LibVLC siempre creaba una ventana Direct3D11 y no en un ventana propia... lo que no sabia es que hay que registrar las ventanas por eso llevo tiempo este ejemplo.
LibVLC en CMD

en Windows "Buscar", escribir "CMD" , "ejecutar"
en ventana CMD : CD "Ruta del ejemplo"
escribir "pat" este .bat agrega Path de la ruta de HMG ... Mi caso: "c:\hmg.3.6"
compilar con "Compilar*.bat*"
ejecuta el ejemplo con "Cliente"

Nota : Faltan afinar detalles!!

Enlace de descarga Drive : https://drive.google.com/drive/folders/ ... sp=sharing

HMG Source :: Re: ROMPECABEZAS VINTAGE :: Reply by LOUIS

no_email@example.com (LOUIS) — Mon, 10 Nov 2025 22:02:41 +0000

Hola Amigos del Forum

Como dijo Arquímedes ... EUREKA !!!

Ya está el juego muy práctico y funcional, ya se puede dar click directamente en los números grandes (ya no en los pequeños)
Si alguien lo quiere poner más bonito, puede hacerlo, por ejemplo grabar nombres de los players con el # de movimientos y el tiempo que hizo,
pero sólo para los 5 o 10 primeros lugares ...

Porque como digo, ahora sí el juego está súper
Enjoy it !

Saludos
Louis

Attachments

NO RESUELTO.jpg (200.69 KiB)

RESUELTO 2.jpg (217.14 KiB)

RESUELTO 1.jpg (216.93 KiB)

ROMPECAB.rar (402.56 KiB)

HMG Source :: Re: ROMPECABEZAS VINTAGE :: Reply by serge_girard

no_email@example.com (serge_girard) — Tue, 11 Nov 2025 07:48:44 +0000

Thanks for sharing Louis!

HMG Source :: Re: ROMPECABEZAS VINTAGE :: Reply by LOUIS

no_email@example.com (LOUIS) — Thu, 13 Nov 2025 22:06:57 +0000

Hola Amigos del HMGforum

Por aquí con una actualización, debido a que la última vez me emocioné mucho y subí el prg, luego me dí cuenta que faltó ciertos detalles.
Cuando decía que lo resolvió con o sin Comodín, podía pedir otro juego o salir, pero no mostraba el tiempo que hizo.

También ahora cuenta con una label para pedir otro Juego, a partir del #2 va mostrando cuántos juegos van.
Cuando pide el segundo juego y de ahí en adelante, los "botones" de los números aparecen en color negro/blanco, pero a medida que va dando click, van cambiando a su propio color blanco/azul (eso es algo que no puedo controlar, si alguien de uds lo quiere corregir, adelante).

Al dar escape, el programa salía sin decir nada, ahora ya no, lo pasa por el Gato

Saludos
Louis

P.D.- Insisto si alguien quiere modificar, grabando el nombre de los 10 jugadores que resolvieron con menor # de movimientos, go ahead !

Attachments

RESUELTO 2.jpg (236.36 KiB)

RESUELTO 1.jpg (236.81 KiB)

NO RESUELTO.jpg (215.2 KiB)

JUEGO 2 DESPUÉS.jpg (244.14 KiB)

JUEGO 2 AL INICIO.jpg (222.3 KiB)

ROMPECAB.rar (11.4 KiB)

HMG Source :: Re: ROMPECABEZAS VINTAGE :: Reply by LOUIS

no_email@example.com (LOUIS) — Fri, 14 Nov 2025 23:50:18 +0000

Amigos os pido una disculpa, encontré 2 errorres, por lo tanto, corregid esto en el prg ...

En el primero, al definir windows vintage, suprimid la label que decía new game 1234, sólo dejad así:

Code: Select all

   @ 000,0975 LABEL L0 WIDTH 360 HEIGHT 105 FONT "TAHOMA" FONTCOLOR WHITE BOLD SIZE 33 VALUE "ROMPECABEZAS VINTAGE" TRANSPARENT UNDERLINE CENTERALIGN
   @ 055,1300 LABEL L7 WIDTH 060 HEIGHT 052 FONT "TAHOMA" FONTCOLOR BLACK BOLD SIZE 33 VALUE "" TRANSPARENT
   @ 140,0975 LABEL L1 WIDTH 360 HEIGHT 175 FONT "ARIAL" FONTCOLOR WHITE BOLD SIZE 24 VALUE "HAY QUE ORDENARLO DEL 1 AL 15 + EL CUADRO NEGRO AL FINAL !" TRANSPARENT CENTERALIGN

   @ 650,0999 LABEL L3 VALUE "NÚMERO DE MOVIMIENTOS" WIDTH 190 HEIGHT 60 FONT "ARIAL" SIZE 20 BOLD FONTCOLOR WHITE BACKCOLOR BLUE
   @ 650,1189 LABEL L4 VALUE ""                      WIDTH 111 HEIGHT 60 FONT "ARIAL" SIZE 40 BOLD FONTCOLOR WHITE BACKCOLOR BLUE

   @ 725,0999 BUTTON B1 CAPTION "COMODIN" WIDTH 99 HEIGHT 30 FONT "ARIAL" SIZE 12 BOLD ONCLICK USAR_COMODIN() TOOLTIP 'SÓLO SE USA UNA VEZ POR JUEGO !'
   @ 725,1125 BUTTON B2 CAPTION "H E L P" WIDTH 75 HEIGHT 30 FONT "ARIAL" SIZE 12 BOLD ONCLICK AYUDA()
   @ 725,1225 BUTTON B3 CAPTION "Q U I T" WIDTH 75 HEIGHT 30 FONT "ARIAL" SIZE 12 BOLD ONCLICK SALIR() TOOLTIP 'ABORTA EL JUEGO Y SALE'

En el segundo en la function reiniciar, suprimid 2 líneas, dejad así:

Code: Select all

*-----------------
FUNCTION REINICIAR

VINTAGE.L2.RELEASE
ENTRADA:=TIME()
JUEGOS=JUEGOS+1
VINTAGE.L7.VALUE := ALLTRIM(STR(JUEGOS))   // CONTADOR DE JUEGOS

VINTAGE.L5.RELEASE
IF JUEGOS > 1
   FOR i := 1 TO 15
       DoMethod ("VINTAGE", "H"+ALLTRIM(STR(i)), "RELEASE")
   NEXT
ENDIF
IF JUEGOS > 2
   FOR i := 1 TO 15
       DoMethod ("VINTAGE", "G"+ALLTRIM(STR(i)), "RELEASE")
   NEXT
ENDIF

COMODIN:=0
MOV:=0
VINTAGE.L4.VALUE := " "+ALLTRIM(STR(MOV))	// CONTADOR DE MOVIMIENTOS

FOR i := 1 TO 16
    DoMethod ("VINTAGE", "X"+ALLTRIM(STR(i)), "RELEASE")
NEXT

DO EVENTS
MODELO()
DESORDENAR()
RETURN

Creo que ahora sí quedó sin error, disculpad.

Saludos
Louis

HMG Utilities :: Re: Compartiendo ideas :: Reply by franco

no_email@example.com (franco) — Mon, 27 Oct 2025 19:12:03 +0000

Thanks for sharing. Looks very interesting. I use chrome remote right now but am using a computer someone else may be wanting to use. I can use my phone or android tablet from anywhere and run my main server computer.
I have not downloaded yet but a couple of questions.
Is it like windows where you can join a network and map a network drive to a shared folder, then start a program.

HMG Utilities :: Re: Compartiendo ideas :: Reply by nelido

no_email@example.com (nelido) — Thu, 30 Oct 2025 22:11:30 +0000

Estimado Franco, Winlator es una apk que emula el SO Windows7, Windows10 o posterior en un móvil Android. Cuando se ejecuta crea una torre C de sistema y otra D que es la carpeta download del móvil, a partir de ese momento usted puede ejecutar .exe como si fuera en una PC.
Saludos.

HMG Utilities :: Re: Compartiendo ideas :: Reply by mol

no_email@example.com (mol) — Sat, 01 Nov 2025 07:46:06 +0000

I've tried winlator some time ago and worked perfectly.
But, last week I bought tablet and I installed nee winlator and is disaster.
A lot of ads

HMG Utilities :: Re: Compartiendo ideas :: Reply by nelido

no_email@example.com (nelido) — Mon, 10 Nov 2025 22:49:40 +0000

Estimado Marek:
A mí me sucedió algo parecido, probé la 9 y 10 pero no me funcionó bien y me quedé con la 8.0 muy estable y el teclado táctil reconfigurable funciona perfectamente, yo pensé que fuera porque mi móvil solo dispone de 3 GB.

Un abrazo hermano.

Dear Marek,
Something similar happened to me. I tried versions 9 and 10, but they didn't work well for me, so I stuck with 8.0. It's very stable, and the reconfigurable touch keyboard works perfectly. I thought it might be because my phone only has 3 GB of storage.

Best regards.

HMG Utilities :: Re: Compartiendo ideas :: Reply by nelido

no_email@example.com (nelido) — Mon, 10 Nov 2025 21:30:37 +0000

HMG Utilities :: Re: Compartiendo ideas :: Reply by nelido

no_email@example.com (nelido) — Mon, 10 Nov 2025 22:41:32 +0000

Dear Marek,
Something similar happened to me. I tried versions 9 and 10, but they didn't work well for me, so I stuck with 8.0. It's very stable, and the reconfigurable touch keyboard works perfectly. I thought it might be because my phone only has 3 GB of storage.

Best regards.

HMG Utilities :: Re: Compartiendo ideas :: Reply by nelido

no_email@example.com (nelido) — Mon, 10 Nov 2025 22:46:07 +0000

HMG Utilities :: Re: Compartiendo ideas :: Reply by mol

no_email@example.com (mol) — Tue, 11 Nov 2025 07:50:29 +0000

I have top phone and winlator works fatal

HMG Utilities :: Re: Compartiendo ideas :: Reply by nelido

no_email@example.com (nelido) — Tue, 11 Nov 2025 18:03:14 +0000

Si has utilizado otro emulador que te funcione mejor desearia me comentes para probarlo, solo dispongo de 3 GB en mi móvil, saludos.

If you've used another emulator that works better for you, I'd appreciate it if you could let me know so I can try it. I only have 3 GB of storage on my phone. Cheers.

HMG Utilities :: Re: Funcion CAPTA y EDITA sobre harbour 3.4.4 :: Reply by nelido

no_email@example.com (nelido) — Mon, 24 Nov 2025 20:42:53 +0000

Muchas gracias estimado Luis Vasquez, un abrazo.

My HMG Projects :: 📢 Announcement: Exclusive Access to Private MiniGUI 25.11 Builds :: Author gfilatov

no_email@example.com (gfilatov) — Thu, 06 Nov 2025 18:45:38 +0000

Dear Friends,

We’re pleased to announce the release of exclusive Private MiniGUI 25.11 packages.

The following packages are now available:

MiniGUI MinGW 64-bit Package
MiniGUI BCC 7.70 Package
MiniGUI xHarbour Package

NEW!
MiniGUI Zig (Clang backend) 64-bit Archive

These builds are exclusively available to MiniGUI donors as a token of our gratitude for your continued support.

Thank you for being part of the MiniGUI community!

Warm regards,
Grigory Filatov
on behalf of the MiniGUI Team

My HMG Projects :: Re: 📢 Announcement: Exclusive Access to Private MiniGUI 25.11 Builds :: Reply by serge_girard

no_email@example.com (serge_girard) — Fri, 07 Nov 2025 07:17:10 +0000

Thanks Grigory !

My HMG Projects :: Drag & Drop :: Author Steed

no_email@example.com (Steed) — Wed, 19 Nov 2025 23:28:28 +0000

Hi All,

Attached please Find Drag & Drag Implementation
Based in some samples that i found in the forum (Pablo Cesar , Kdj, AUGE_OHR, etc...)
Don't forget to try to drag some file from the explorer to any Edit o Textobox Control

DragDrop.zip

Demo3.gif

Attachments

DragDrop.zip (64.61 KiB)

Demo3.gif (1590.95 KiB)

My HMG Projects :: Re: Drag & Drop :: Reply by serge_girard

no_email@example.com (serge_girard) — Fri, 21 Nov 2025 08:29:28 +0000

Thanks Steed !