Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

datilas

Membros
  • Content Count

    411
  • Joined

  • Last visited

  • Days Won

    1

datilas last won the day on June 29 2019

datilas had the most liked content!

Community Reputation

106 Excellent

1 Follower

About datilas

Profile Information

  • Sexo
    Masculino
  • Location
    Cuiabá - MT

Recent Profile Visitors

1,838 profile views
  1. com a mesma regra dos videos acima, vc pode alugar uma vps (amazon,azure,etc) e subir seu db e seu app servidor(micro serviços assim como o juliomar citou acima), mas lembre-se toda segurança é pouca na web, então configure firewall , senha no appserver, token ou jwt (tudo que vc possa colocar para não expor seu db nem sua vps)
  2. talvez isso possa te ajudar: da uma olhada nos videos desse canal: https://www.youtube.com/channel/UCExEoXjNTmKLFLK2qpBSI5g considere que a parte do cliente não precisa necessariamente ser mobile, vc pode usar VCL desktop como cliente isso é só para te dar uma base de como iniciar, mas lembre-se o Google é seu amigo, desde que vc saiba o que procurar
  3. o link do Google Podcasts não esta funcionando.
  4. isso é do driver da placa de video, vc pode desabititar isso no app que fica no tray, provavelmente é driver da intel. ja passei por isso, e resolvi desabilitando a inicialização do app do driver
  5. tenta: (Shift = [ssCtrl]) and (Key = VK_MENU) Alt Gr gera o click de char(17) e Char(18) Char(17) é VK_CONTROL (tecla Ctrl) Char(18) é VK_MENU (tecla Alt)
  6. tente assim: // para emular o navegador opera (alguns servidores bloqueiam acesso de navegador desconhecido) IdHTTP.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.141 Safari/537.36 OPR/73.0.3856.344'; S := UTF8ToString(IdHTTP.Get('http://www.meusite.com.br/arquivos/arquivo.sql'));
  7. tem isso nos fontes {@prop DataFormula - Expressão matemática envolvendo campos, valores e literais. :/} property DataFormula: string read FDataFormula write SetDataFormula; mas não entendi como funciona e no: TRLCustomSystemInfo tem isso // a propriedade TEXT pode vir na seguinte forma: "Esta página # o relatório\|continua;encerra"; mas não funciona com a DataFormula
  8. alguem sabe como usar essa expressão no Dataformula do fortes: Endereço1 + ',' + Cidade + ',' + TelefoneNo pois ja tentei de varias formas mas da erro como se eu estivesse tentando somar os campos, mas na verdade estou tentando concatenar os campos
  9. vc ja conseguiu usar? pois ja tentei e não consegui se puder passar um passo a passo seria ótimo
  10. pra falar e verdade eu não sei pois ele não vai ser lido por mim, mas eu resolvi usando json4delphi (que esta na pasta "Fontes\Terceiros" do acbr)e nele funciona certinho, é algum problema no fpjson que eu não consegui resolver. eu só não queria depender de nenhum componente externo pois é um projeto simples e eu vou ter que entregar os fontes para o cliente e ele não quer dependência externa para não gerar quebra quando houver uma possível migração ou atualização
  11. Com esse teste: var jsObjValues: TJSONObject; rValor: real; cValor: currency; sValor: single; dValor: double; begin rValor := 1.23456; cValor := 1.23456; sValor := 1.23456; dValor := 1.23456; jsObjValues := TJSONObject.Create; jsObjValues.Add('REAL', rValor); jsObjValues.Add('CURRENCY', cValor); jsObjValues.Add('SINGLE', sValor); jsObjValues.Add('DOUBLE', dValor); Memo1.Text := jsObjValues.AsJSON; olha o resultado: { "REAL":1.2345600000000001E+000, "CURRENCY":1.2345999999999999E+000, "SINGLE":1.2345600128173828E+000, "DOUBLE":1.2345600000000001E+000 }
  12. ja tentei tambem, eu vi isso em outro post aqui mas não resolveu. segue um exemplo: o codigo é esse: uses fpjson procedure TForm1.Button1Click(Sender: TObject); Var jsObjValues: TJSONObject; begin jsObjValues := TJSONObject.Create; jsObjValues.Add('VALOR',1.23456 ); ShowMessage(jsObjValues.AsJSON); end;
×
×
  • Create New...