Activar Bluetooth

Post Reply
User avatar
pablovidal
Posts: 398
Joined: Thu Oct 06, 2005 10:15 pm
Location: Republica Dominicana
Contact:

Activar Bluetooth

Post by pablovidal »

Saludos,

Alguna forma que desde FWPCC se pueda activar el bluetooth si este se encuentra apagado

Code: Select all

public class BlueTooth

{

private enum BluetoothMode : int

{

Off = 0, //Turn off the Bluetooth radio.

Connectable = 1, //Turn on the Bluetooth radio, and make it connectable.

Discoverable = 2 //Turn on the Bluetooth radio, and make it both connectable and discoverable.

};

[DllImport("BthUtil.dll")]

private static extern int BthSetMode(BluetoothMode mode);

public static bool EnableBT()

{

return (BthSetMode(BluetoothMode.Connectable) == 0);

}

public static bool DisableBT()

{

return (BthSetMode(BluetoothMode.Off) == 0);

}

}
Saludos,

Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
User avatar
pablovidal
Posts: 398
Joined: Thu Oct 06, 2005 10:15 pm
Location: Republica Dominicana
Contact:

Funciones para Activar Bluetooth ( SOLUCIONADO )

Post by pablovidal »

Añadir esta libreria
echo $(VCDIR)\lib\arm\BthUtil.lib >> msvc.tmp
Este es el codigo

Code: Select all

/*
Funciones para activar el Bluetooth desde FWPPC
Pablo Vidal
*/

#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
/*Enciende el Bluetooch para conectarse*/
HB_FUNC( LBTON )
{
hb_retl( (BthSetMode(1) == 0) ) ;
}

/*Enciende y activa Bluetooch en modo descubierto*/
HB_FUNC( LBTOPEN )
{
hb_retl( (BthSetMode(2) == 0) ) ;
}

/*Apaga el Bluetooth*/
HB_FUNC( LBTOFF )
{
hb_retl( (BthSetMode(0) == 0) ) ;
}
#pragma ENDDUMP

 
Saludos,

Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Activar Bluetooth

Post by Antonio Linares »

Pablo,

Muchas gracias! :-)

En solo unos pocos dias, ya eres un gran experto de FWPPC. Enhorabuena :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
pablovidal
Posts: 398
Joined: Thu Oct 06, 2005 10:15 pm
Location: Republica Dominicana
Contact:

Re: Activar Bluetooth

Post by pablovidal »

Gracias Antonio

Un Experto Noooooooo, si no que trato de buscar las solucion a los problemas,
y todo esta en la red...
Saludos,

Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
Post Reply