PJINFO

Obrigado!!! Deu certo sim Muito obrigado mesmo.

Opa!!! Obrigado!!! Vou testar sim. Já já dou notícias.

Quando eu gero o QRcode.bmp e visualizando usando o windows está perfeito a exibição. Quando mando imprimir o QRcode.bmp com tprint() vai normal, mas quando exib com a timage() não aparece, fica em branco a imagem. Percebi que quando o conteudo do QRcode tem mais que 130/140 caractere fica normal mais que isso acontece isso.

Olá Kapi! Obrigado pela resposta. Eu uso a QRCodelib.Dll Conforme o link.

Depois responda se deu certo.

Atualizei o post.

Olá pessoal, preciso de ajuda. Estou com problema em exibir alguns arquivos de QRCODE como o exemplo do o arquivo anexo. Quando gero uma chave pix dinâmica a dll gera a imagem eu consigo imprimir, mas não consigo exibir. QRCODE.bmp

Olá O cTxt é a variável que contem o texto que você quer gerar o CRC, no caso do PIX a chave inteira até o 6304. Ele devolve o asc do CRC do contexto.

Depois de quebrar a cabeça Uma pequena contribuição FUNCAO PARA GERAR O CRC /*************************************/ * Criado em 26/10/2022 - Paulo R.S.JR. * PJ Informática Func GERA_CRC(ctxt) local i,n,a:={} local polinomio:=0x1021 local resultado:=0xFFFF for i=1 to len(ctxt) resultado := nXor(hb_bitShift(asc(substr(ctxt,i,1)),8),resultado) for n=1 to 8 resultado := hb_bitShift(resultado,1) if nand(resultado, 0x10000)<>0 resultado:=nXor(resultado,polinomio) end resultado:=nAnd(resultado,0xFFFF) next next return(DecToHex(resultado))

Obrigado a todos! Mas consegui resolver Usei a HBCOMM.LIB func recebepeso(cPorta,nBound,nDataBit,nstop,nBuffer) NHANDLE:=Init_Port(cPorta,nBound,nDataBit,0,nstop,nBuffer) OutBufClr(NHANDLE) // Limpa o Buffer de Saida OUTCHR(NHANDLE,CHR(5)) SysWait(0.3) Bytes := InbufSize(NHANDLE) DADOS=SPACE(20) Buffer := InChr( NHANDLE, Bytes, @DADOS) //LER BUFFER DE ENTRADA DA BALANCA UnInt_Port(nHandle) dados=alltrim(dados) nPeso:=val(substr(dados,4,6))/1000 return(nPeso)

Olá colegas! Preciso de ajuda. Não estou conseguindo ler o peso de uma balança nova que o cliente comprou. Toledo prix 2098 TI 200. Tudo correto nas configurações da balança e da porta conforme configurado abaixo. Código bem simples e sempre funcionou Agradeço a quem possa ajudar. *---------------------------------------------------------------- function RECEBEPESO *---------------------------------------------------------------- local XPorta := TESTA_VAR('W_BALANCA_PORTA','PORTA SERIAL DA BALANCA' ,'1','N') // 1=com1; 2=com2; 3=com3 local XBaudrate := TESTA_VAR('W_BALANCA_BOUND','BAUND DA BALANCA' ,'2','N') // 0=2400 1=4800 2=9600 local XDatabits := TESTA_VAR('W_BALANCA_DATABIT','DATA BIT DA BALANCA' ,'1','N') // 0=7; 1=8 local XParidade := TESTA_VAR('W_BALANCA_PARID ','PARIDADE DA BALANCA' ,'0','N') // 0=nenhum 1=impar 2=par 3=espaço local nPeso private peso:=space(5) xDllBal := LoadLibrary(W_CAMINHO_SYS+"DLL32\P05.DLL" ) nret:=AbrePorta( xporta, XBaudrate,XDatabits,XParidade ) IF VALTYPE(NRET)="N" if nret>=1 PegaPeso( 0, @Peso, "" ) end END npeso:=val(transform( peso, "@R 99.999" )) FechaPorta() RETURN(npeso) DLL32 function AbrePorta( Porta AS LONG, BaudRate AS LONG, DataBits AS LONG, Paridade AS LONG, stopbit AS LONG ) AS LONG PASCAL lib xDllBal DLL32 function PegaPeso( OpcaoEscrita AS LONG, Peso AS STRING, Diretorio AS STRING ) AS LONG PASCAL lib xDllBal DLL32 function FechaPorta() AS LONG PASCAL lib xDllBal *-FIM-------------------------------------------------------

Desculpe a demora em voltar aqui. Fiz de uma forma diferente o que eu queria fazer. Como a resposta estava demorando muito. Mesmo assim Obrigado pela ajuda.

Poxa vida ninguém sabe?

Olá colegas. Preciso de uma ajuda. Tem como ajustar automático a altura da linha do txbrowse() conforme o tamanho do texto caso tenha mais de uma linha? Tenho um array com mensagens para exibir e cada uma tem um tamanho, se eu defino a variável nRowHeight, todas a linhas ficam com o mesmo tamanho. Agradeço a todos que puderem ajudar.

RESOLVIDO O Marcelo da Marca Informática me ajudou. cCod_Prod:="TIGRE" cMysql:="select cod_est,descricao,referencia,valor_vend,saldo_atu,sql_rowid from PRODUTO where descricao like '%"+cCod_Prod+"%' order by descricao" aProduto := SqlArray( cMysql,,) XBROWSE(aProduto) Obrigado a todos.