Histórico da Página

 TMobile(): New () --> oObjeto

oMbl := TMobile():New()

Efetua a leitura de código de barras

Parâmetros

Retorno

aResult

• Retorna um vetor de duas posições do tipo caractere.
• A primeira posição do vetor contém o valor decodificado do código de barras.
• A segunda posição do vetor contém o nome do tipo de código de barras lido (por exemplo: UPC_A, EAN_8, QR_CODE, etc).
• Se o usuário pressionar o botão voltar do dispositivo, nenhum código será lido e as duas posições do vetor estarão vazias.

Observações

• A leitura de código de barras é realizada via integração com o aplicativo gratuito Barcode Scanner disponível para download no Google Play Store. Caso o aplicativo não esteja previamente instalado, na primeira chamada ao método TMobile():Barcode(), o usuário será redirecionado para a página específica do aplicativo Barcode Scanner no Google Play Store para realizar a instalação. Assim que o dispositivo exibir a mensagem de que a instalação foi bem sucedida, bastará ao usuário pressionar o botão voltar do dispositivo para que a integração continue, isto é, o aplicativo Barcode Scanner será aberto e, após a leitura do código de barras, o valor será retornado ao programa AdvPL.
  
• Utilize um dos tipos abaixo no parâmetro cBarType para restringir os tipos de códigos de barras que poderão ser lidos:

aBarResult:= oMbl:BarCode("PRODUCT_MODE")

#Include "TOTVS.CH"
 
#define PRODUCT_MODE		"PRODUCT_MODE"
#define ONE_D_MODE			"ONE_D_MODE"
#define QR_CODE_MODE		"QR_CODE_MODE"
#define DATA_MATRIX_MODE	"DATA_MATRIX_MODE"
#define AZTEC_MODE			"AZTEC_MODE"
#define PDF417_MODE			"PDF417_MODE"
 
User Function readBarcode()
	LOCAL oMbl
	LOCAL cBarType
	LOCAL aBarResult
	LOCAL sMsg
	oMbl:= TMobile():New()

	cBarType:= PRODUCT_MODE;

	aBarResult:= oMbl:BarCode(cBarType)
	
	If aBarResult[1] = ""
		sMsg := "Nenhum código de barras foi lido."
	Else
		sMsg := "Código de barras lido:" + chr(13) + chr(13) + "Código: " + aBarResult[1] + chr(13) + "Formato: " + aBarResult[2]
	EndIf
		
	MsgInfo(sMsg)
Return

Obtém uma lista contendo nomes e endereços dos dispositivos Bluetooth pareados

Retorno

aDevicesResult

• Retorna um vetor multidimensional contendo nomes e endereços dos dispositivos Bluetooth pareados.
• A primeira posição da segunda dimensão da matriz é do tipo caractere e contém o nome de um dispositivo Bluetooth pareado.
• A segunda posição da segunda dimensão da matriz é do tipo caractere e contém o endereço no formato 00:00:00:00:00:00 que é único e exclusivo para cada dispositivo.
• As posições estarão vazias caso nenhum dispositivo esteja pareado ou a interface Bluetooth esteja disativada.

aDevicesResult:= oMbl:GetPairedBluetoothDevices()