A classe FwQRCode permite que seja adicionado um componente gráfico em video vídeo, capaz de exibir um grafico gráfico do tipo "QRCode".
O Código QR (Quick Response) é um código de barras bidimensional que pode ser escaneado usando a maioria dos celulares modernos equipados com câmera. Esse código pode ser convertido em um pedaço em pedaço de texto (interativo), um endereço URL endereço URL, um número número de telefone, uma localização georreferenciada localização georreferenciada, um e e-mail, um contato contato, uma mensagem SMS mensagem SMS, em informações de informações de controle de inventário, entre outros. Inicialmente criado pela empresa japonesa Denso-Wave em 1994 para identificar peças na indústria automobilística, seu uso seu uso é livre de qualquer licença, sendo definido e publicado como um padrão ISO.
Observações:
...
Descrição: Metodo Método Construtor da Classe.
ParametrosParâmetros:
Retorno:
Exemplo:
oQrCode := FwQrCode():New({25,25,200,200},oDlg,"http://www.totvs.com")
Descrição: Metodo Método que define o código (string) a ser utilizada utilizado na geração do codigo código de barras QRCode, quando este não for informado por meio do parametro parâmetro cCodigo do metodo método New.
ParametrosParâmetros:
Retorno:
Exemplo:
oQrCode:SetCodeBar("http://www.totvs.com")
Descrição: Retorna o codigo código (string) utilizado no QRCode exibido.
Retorno:
Exemplo:
cCodigo := oQrCode:GetCodeBar()
Descrição: Atualiza o objeto a partir das ultimas últimas definições realizadas. Pode ser utilizado em conjunto com o método SetCodeBar, o método SetCodeBar para atualizar um código recém-definido.
Retorno:
Exemplo:
oQrCode:Refresh()
#INCLUDE "PROTHEUS.CH"
//Consulte: http://tdn.totvs.com.br/display/mp/FwQrCode
User Function TstQrCode()
Local oDLG := Nil
Local cCodigo := "http://www.totvs.com.br" + Space(60)
Private oQrCode
//Cria a Dialog
DEFINE MSDIALOG oDlg TITLE "RDMAKE para teste da classe FwQrCode" FROM 0,0 TO 400,800 PIXEL
//Cria o objeto FwQrCode
oQrCode := FwQrCode():New({25,25,200,200},oDlg,cCodigo)
//Get com o codigo exibido
@25,150 GET oGet VAR cCodigo OF oDlg SIZE 200,10 PIXEL
//Botao Gerar
@45,150 BUTTON "Gerar" SIZE 30,20 PIXEL OF oDlg ACTION MsgRun("Gerando QRCode","Aguarde",{|| U_MyRefresh(cCodigo)}) PIXEL
//Exibe a Dialog em Video
ACTIVATE MSDIALOG oDlg CENTERED
Return
User Function MyRefresh(cNewCod)
oQrCode:SetCodeBar(cNewCod)
oQrCode:Refresh()
Return