topic-45608

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

GetSecret()
Posted: Sun Apr 06, 2025 04:00 PM

Esto és posible en Fivewin?

https://www.hamor.ro/distr_ext/Doc/xHb/xHarbour%20Language%20Reference/Functions/Getsecret_f.en.html

Code: Select all Collapse

// The example shows a typical scenario for GetSecret().
// The user must enter a password which is not displayed on
// the screen

   PROCEDURE Main
      LOCAL cPassword := Space(20)
      CLS
      SET CONFIRM ON

      cPassWord := ;
        GetSecret( cPassword, 10, 10, .T., "Enter your password: ")

      IF cPassWord <> "xHarbour"
         Alert( "Access denied" )
         QUIT
      ENDIF

      Alert( "Access granted" )
   RETURN

Source: ct\getsecrt.prg
LIB: xhb.lib
DLL: xhbdll.dll

xHarbour Comercial?

C:\XHBCOM\dll

3/09/2023 16:49 2.922.496 xHBDll.dll
1 arquivo(s) 2.922.496 bytes

Gracias.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: GetSecret()
Posted: Sun Apr 06, 2025 04:21 PM

Entiendo que no quieres que se muestre nada, pero que es lo que verá el usuario, una caja de diálogo ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: GetSecret()
Posted: Sun Apr 06, 2025 04:29 PM

Antonio Linares wrote: Entiendo que no quieres que se muestre nada, pero que es lo que verá el usuario, una caja de diálogo ?

No sé la respuesta Maestro. Vi este ejemplo en Internet y me pareció muy interesante. Tal vez Enrico pueda descubrir qué hace esta función en el xHarbour comercial y trasladarla al xHarbour normal.

Gracias, tks.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: GetSecret()
Posted: Sun Apr 06, 2025 04:41 PM

Harbour también tiene este comando GETSECRET().

Code: Select all Collapse

   snh := getsecret( SPACE( 11 ), 5, 5, .T., "Digite a senha:" )
	 
   alert( snh )

Creo que solo funciona en modo consola y tiene fallas, según tengo entendido.

Gracias.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: GetSecret()
Posted: Sun Apr 06, 2025 04:55 PM

Basicamente lo que se hace es capturar los eventos de teclado pero al menos podriamos mostrar un diálogo que diga "Identifíquese" ó similar aunque no se muestren controles :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: GetSecret()
Posted: Sun Apr 06, 2025 05:04 PM

Antonio Linares wrote: Basicamente lo que se hace es capturar los eventos de teclado pero al menos podriamos mostrar un diálogo que diga "Identifíquese" ó similar aunque no se muestren controles :-)

Lo entendí. Si siguieras la lógica del modo consola, solo necesitarías crear un diálogo completamente transparente. No le veo mucha utilidad a este comando. Fue solo curiosidad, nunca había visto este comando. Gracias, maestro.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion