RibaSoft

Pascal

Instalação ACBr

Apps

E use o trunk2 do ACBR https://svn.code.sf.net/p/acbr/code/trunk2/

Adicione "C:\Program Files\Git\bin" as variáveis do sistema para executar scripts .bash usando... bash script.bash

Instale o Fortes Report

DLLs

.\DLLs\OpenSSL\1.1.1.10\x86\libcrypto-1_1.dll

.\DLLs\OpenSSL\1.1.1.10\x86\libssl-1_1.dll

.\DLLs\LibXml2\x86\libexslt.dll

.\DLLs\LibXml2\x86\libiconv.dll

.\DLLs\LibXml2\x86\libxml2.dll

.\DLLs\LibXml2\x86\libxslt.dll

Dll de terceiros

..\libmysql.dll - para conexão com sites

Configurações

..\ACBr_Fonts\Fontes\ACBrComum\ACBr.inc

Descomentar:

Sequência dos Pacotes

.\fortesreport-ce-master\Packages\frce.lpk

.\ACBr\Pacotes\Lazarus\synapse\laz_synapse.lpk

.\ACBr\Pacotes\Lazarus\ACBrComum\ACBrComum.lpk

.\ACBr\Pacotes\Lazarus\ACBrOpenSSL\ACBrOpenSSL.lpk

.\ACBr\Pacotes\Lazarus\ACBrDiversos\ACBrDiversos.lpk

.\ACBr\Pacotes\Lazarus\PCNComum\PCNComum.lpk

.\ACBr\Pacotes\Lazarus\ACBrIntegrador\ACBr_Integrador.lpk

.\ACBr\Pacotes\Lazarus\ACBrTCP\ACBrTCP.lpk

.\ACBr\Pacotes\Lazarus\ACBrSerial\ACBrSerial.lpk

.\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrDFeComum.lpk

.\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrDFeReportRL.lpk

.\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrCTe\ACBr_CTe.lpk

.\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrCTe\DACTE\
Fortes\ACBr_CTe_DACTeRL.lpk

.\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrMDFe\ACBr_MDFe.lpk

.\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrMDFe\DAMDFE\
Fortes\ACBr_MDFe_DAMDFeRL.lpk

.\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrNFe\ACBr_NFe.lpk

.\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrNFe\DANFE\NFe\
Fortes\ACBr_NFe_DanfeRL.lpk

.\ACBr\Pacotes\Lazarus\ACBrTXT\ACBrTXTComum.lpk

.\ACBr\Pacotes\Lazarus\ACBrTXT\ACBrSPED\ACBr_SPED.lpk

Git e GitHub

• Instalação

  
  DOWNLOAD AQUI.

  • Instale o git normalmente e caso queira tirar Open "Git Gui Here" execute o comando abaixo.

    Remove-Item -Path "Registry::HKEY_CLASSES_ROOT\Directory\Background\shell\git_gui" -Recurse

  • Setar usuario e email

    git config --global user.name "usuario" git config --global user.email "ribamarmsantos@gmail.com"

  • Ver configurações

    git config --list

  • Sair da visualização

    q

  • Verificar se já possui chaves SSH

    dir C:\Users\usuario\.ssh\

  • Gerar chaves SSH

    Apenas aperte Enter duas vezes se não quiser por senhas para usar scripts automatizados.

    ssh-keygen -t ed25519 -C "ribamarmsantos@gmail.com"

    Abra o Arquivos C:\Users\usuario\.ssh\id_ed25519.pub copie a chave e cole no github em: https://github.com/settings/ssh/new.

  • Testar conexão

    ssh -T git@github.com

• Baixar Reporitório

  
  

  • Navegue até um diretório

    git clone git@github.com:castle-engine/castle-engine.git

  • Verificar se há atualizações

    git fetch git status

  • Atualizar

    git pull

• Criar Repositório

  
  

  • Navegue até a pasta do projeto

    git init

  • É necessário adicionar o diretório do projeto ao arquivo "C:\Users\seu_usuario\.gitconfig".

    git config --global --add safe.directory D:/Documents/GitHub/Pasta_Seu_Projeto

  • Colocar arquivos na fila

    git add .

  • Tirar arquivos da fila (cancelar)

    git reset

  • Salvar arquivos no repositório local

    git commit -m "Primeiro Commit"

  • Ver o branch selecionado

    git branch

  • Setar um branch

    git branch -M main

  • ver a url destino no GitHub configurada

    git remote -v

  • Adicionar um enderereço de repotitório do GitHub

    git remote add origin git@github.com:RibaSoft/rs_varejo.git

  • Altera a url destino caso já esteja configurada

    git remote set-url origin git@github.com:RibaSoft/rs_varejo.git

  • Envia as alterações para o "main" ou "master" do GitHub

    git push -u origin main

  • Verifica se está sinconizado com o GitHub

    git fetch git status

• Automação

  
  

  Para Mandar

  • Crie um arquivo "Mandar.bash".

    #Limpa cd /d/Documents/GitHub/Varejo rm /d/Documents/GitHub/dlls/FB301/firebird.log rm -r backup rm -r data rm -r temp_NF rm -r xmls_env_contab rm *.txt rm *.rs rm *.lps rm *.res rm *.db rm *.bmp rm Varejo.exe rm *.log rm pt-BR.dll rm libssl-1_1.dll rm libcrypto-1_1.dll rm libexslt.dll rm libiconv.dll rm libxml2.dll rm libxslt.dll clear git status # Manda Pro GitHub read -p "Precione Enter para Mandar para o Git" clear data_hora=$(date +"%Y%m%d_%H%M") git add . git commit -m "$data_hora" git push -u origin main echo "" read -p "Enviado ao GitHub com sucesso!!!" clear #Compila Release read -p "Atualizar Sistemas Locais?" clear LAZARUS_DIR="/c/lazarus" PROJECT_DIR="/d/Documents/GitHub/Varejo" MODE="Release" "$LAZARUS_DIR/lazbuild" --build-mode="$MODE" pVarejo.lpi if [ $? -ne 0 ]; then echo "Falha na compilação!" exit 1 else /d/bin/signtool sign -a -fd SHA256 /d/Documents/GitHub/Varejo/Varejo.exe echo "Compilado em modo release com sucesso!" fi #limpa rm -r backup/ rm *.rs rm *.lps rm *.res rm *.bat #Atualiza App em uma pasta cp -f /d/Documents/GitHub/Varejo/Varejo.exe /d/Programa/ && echo "Varejo atualizado com sucesso!!!" echo "" rm Varejo.exe /d/ClientesNF/Atualizar.bat echo "" read -p "Sistemas Atualizado com sucesso!"

  • Clique com o dotão direito do mouse e coloque Abrir com.

    C:\Program Files\Git\git-bash.exe

  Para Receber

  • Crie um arquivo "Receber.bash".

    git fetch git status read -p "Atualizar o projeto?" git pull read -p "Comandos executados com sucesso!!!"

Configurações

IDE

• Ambiente > Inicialização da IDE > Abrir o último projeto = False
• Ambiente > Cópia de Segurança = Sem arquivo de segurança
• Ambiente > Nomeação > Salvar como > Sem renomeação automática = True
• Ambiente > Nomeação > Sugerir nome padrão do novo arquivo em minúscula = False
• Ambiente > Inicialização da IDE > Nomeação > Sugerir nome padrão do novo arquivo em minúsculo = False
• Editor > Exibir > Margem direita visíve = 120
• Editor > Exibir > Indicadores de Correspondências > Contorno = True
• Configurações "JCF" > Corrigir > Interrupções de Linha > Tamanho máximo de linha = 130
• Ferramentas de Código > Geral > Saltar diretamente para o corpo do método = True
• Ferramentas de Código > Separação de linhas > Comprimento Máximo de linha = 130
• Ferramentas de Código > Separação de linhas > Não dividir linha na frente de > Símbolo = True
• Depurador > Fechar janela assembler automaticamente após código não encontrado = True

Projeto

• Opções do Projeto > Aplicação > Nível de Execução = Requer Administrador
• Opções do Projeto > Miscelânea > Atualizar a delcaração "Application.Title" no unidade principal = False
• Opções do Projeto > Miscelânea > Atualizar a delcaração "Application.Scaled" no unidade principal = False
• Opções do Compilador > Depeuração > Gerar informações para o depurador = True
• Opções do Compilador > Depeuração > Usar a unidade Heaptcr (-gh) = True

POO

Termos

Abstração: E uma caracteristica da POO que permite passar objetos reais do mundo real para linguagem de programacao.

Polimorfismo: E a capacidade de criar varios metodos com o mesmo nome mas com parametros diferentes;

Encapsulamento: separar o codigo em blocos de codigo.

Métodos

overload; => permitem mesmos metodos com o mesmo nome diferenciando apenas os parametros.

virtual; => permite (sem ser obrigatorio) que a classe herdeira reescreva um metodo criado na classe pai utilizando o override;

override; => usado para adicionar código em um metodo virtual da classe pai na classe filha utilizando o inherited.

virtual; abstract; => pode ser implemantado na classe herdeira com o override, mas nao precisar ser implementado na classe pai.

reintroduce; => utilizado para tirar o warning que avisa que o metodo ja existe na classe pai, dizendo que ele sera reecrito na classe filha ignorando por completo tudo que estiver nesse metodo na classe pai.

class function => cria uma funcao sem a necessidde de instaciar a classe em que ela esta. Obs. Adicionar "static" ao final.

inherited "Metodo"; executa o metodo da classe pai. (o nome do metodo é opcional quando se está dentro do metodo herdado na classe filha)

construtores => utilizado para inicializar variaveis, objetos, etc na criacao da classe(objeto) = constructor Create;

destrutores => e aconselhavel usar o inherited ao final para destrur tudo das clases antecessoras = destructor Destroy;

Visibilidade

strict private => visivel apenas na mesma classe.

private => visivel dentro da propria classe ou de uma classe derivada na mesma unit.

strict protected => visivel apenas pelas herdeiras.

protected => visivel pelas herdeiras e classes da mesma unit.

public => visivel em qualquer lugar.

published => faz aparecer no object inspector.

Parametros de Método

Sem nada = cópia do valor

Var = ponteiro

Out = ponteiro com inicialização (parametro de entrada é ignorado, podendo ser sobrescrito)

Const = cópia do valor sem possibilidade de alteração, isso é uma diretiva a nível de compilação e tem efeito prático só em string, para tipos primitivos isso só não permite a alteração do valor dentro da função, enquanto que pra string isso evita a alocação de uma nova string.

Como Objetos em pascal são sempre ponteiros se pode mudar o objeto mas não o valor base dele.

Configuração do componente ACBrNFe

Suspender Evento Temporariamente

BufDataSet

Criar campos, ordenação e indice.

Buscar parcial.

Inserir Registros

Alterar Registros

Deletar Registros

Armazenar/Obter dados em disco

Traduzir botões

Edite o arquivo "C:\lazarus\lcl\lclstrconsts.pas"

Outra forma mais simples e que não precisa fazer toda vez que reinstala o Lazarus é declarar Translations em uses colocar a linha abaixo no FormCreate do Form principal.

Acesso MariaDB com MySQL56Connection

Com o componente MySQL56Connection e SQLQuery nativos do Lazarus.

Acesso MariaDB com ZConnection e ZQuery da paleta Zeos Acces

Limpar Vários Campos ao Mesmo Tempo

Colocar imagem da Internet e por no Timage com TFPHTTPClient

Reproduzir Som WAV

Colorir DBGrid

Pagar várias parcelas com juros proporcional

Carregar Imagem do Banco de Dados

Loopings

Existem três estruturas de looping: while, repeat e for.

while: É a estrutura de looping mais simples e flexível. O bloco de instruções é repetido enquanto a condição especificada for verdadeira.

repeat: O bloco de instruções é repetido enquanto a condição especificada for falsa.

for: É a estrutura de looping mais comum e é usada quando o número de interações é conhecido antes do tempo.

O loop pode ser interrompido usando a instrução "break" e o controle pode ser passado para a próxima iteração usando a instrução "continue", essas instruções são úteis para controlar o fluxo de um loop e podem ser usadas em qualquer uma das estruturas de looping.

Form Transparente

Para deixar uma Form transparente você pode usar as propriedades "Self.AlphaBlend := True;" e "Self.AlphaBlendValue := 125;", onde o valor de transparência vai de 255 totalmente visível à 0 totalmente invisível.

Para se recortar uma imagem deixando o fundo invisível porem com a imagem visível, deve-se criar uma imagem em .bmp (bitmap) em preto e branco onde o preto será recortado.

E usar os código abaixo.

Problemas com acentuação

No Fortes converter...

1. RLPreviewForm.pas para UTF-8
2. RLConsts para ANSI

Nos demais problemas com UTF8 declarar em uses LConvEncoding e manter sempre os arquivos codificados em UTF8.

Arquivos do ACBr e outros para compatibilidade DELPHI, usam seus arquivos em CP1252, geralmente se usando a função "UTF8ToCP1252" da lib LConvEncoding, geralmente revolve todos os problemas.

Fortes Report Zebrado

Fortes Report Formatar Valores

Fortes Report Componentes e Dicas

• RLReport
  • É o objeto principal com formato de pagina que recebe todos os demais componentes.
• RLPDFFilter
  • É o componente responsável pela impressão e exportação em PDF, é conectada ao RLReport pela propriedade DefaultFilter.
• DataSource
  • É fundamental que a consulta principal do banco de dados esteja no Datasource ligado a propriedade DataSource do RLReport
• BufDataSet
  • É o componente que contêm os dados e é ligado ao DataSouce pela propriedade DataSet
• RLBand: BandType = btTitle
  • Aparece uma vez na primeira página.
• RLBand: BandType = btHeader
  • Aparece em cada página.
• RLBand: BandType = btColumnHeader
  • Aparece a cada interação de uma consulta.
• RLBand: BandType = btDetail
  • Aparece a cada registro da consulta.
• RLBand: BandType = btSumary
  • Usado para exibir resultados de uma consulta.
• RLBand: BandType = btColumnFooter
  • Aparece ao final de uma consulta.
• RLBand: BandType = btColumnFooter
  • Aparece ao final de cada página.
• RLDetailGrid
  • Faz a listagem por colunas configurada nas propriedades ColCount e Organization.
• RLGroup
  • Faz interações em consultas agrupadas pelo campo configurado na propriedade DataFields.
• RLSubDetail
  • Usado para varias consultas no mesmo relatório atravez de vários DataSources e BufDataSets como por exemplo um relatorio de vendas, itens, pagamentos, parcelas, etc.
• RLDBResult
  • Usado para resultados na BandType = Sumary.
    Se estiver enfrentando problemas com somas no RLDBResult, verifique sua consulta SQL e certifique-se de que os campos numéricos estejam sendo tratados corretamente. Você pode precisar usar um CAST para garantir a precisão dos cálculos, por exemplo: CAST(CAMPO as NUMERIC(15,4)).
• RLDBText
  • Usado para resultados exibir dados dos campos das consultas.
    Ao exibir valores numéricos, é importante aplicar formatação adequada utilizando a propriedade DisplayMask com a máscara "#,##0.00" para garantir que os valores sejam exibidos corretamente, a dica acima ou o CAST(CAMPO as NUMERIC(15,4)).
• RLExpressionParser
  • Esse componente pode ser necessário quando algum calculo não estiver funcionando, ele é ligado ao RLReport pela propriedade ExpressionParser.

RLRichText

Obs. É importante iniciar o texto com ao menos o \fs24 e finaliza-lo com \par para que o fortes calcule o Height da Band e não oculte as últimas linhas.

EXCEL

• Download FPSpreadsheet

  Lazarus wiki

  Uses fpSpreadsheet, fpsTypes, xlsxooxml;

  
  

  • Leitura

    procedure TFormBuscaIE.btnBuscaOrigemClick(Sender: TObject); var auxLocal: string; I, auxReg: integer; auxLivro: TsWorkbook; auxPagina: TsWorksheet; auxColunaA, auxColunaB, auxColunaC; begin auxLocal := EmptyStr; if (not Riba.AbreArquivo('Selecione o Arquivo Excel', 'Excel|*.xlsx', auxLocal)) then Exit; try auxLivro := TsWorkbook.Create; auxLivro.ReadFromFile(auxLocal, sfOOXML); auxPagina := auxLivro.GetWorksheetByIndex(0); auxReg := auxPagina.GetLastRowIndex; for I := 1 to auxReg do begin auxColunaA := auxPagina.ReadAsText(I, 0); //linha, coluna auxColunaB := auxPagina.ReadAsText(I, 1); auxColunaC := auxPagina.ReadAsText(I, 2); end; finally FreeAndNil(auxLivro); end; end;

  • Escrita

    procedure TFormBuscaIE.btnSalvarClick(Sender: TObject); var auxLocal: string; auxLivro: TsWorkbook; auxPagina: TsWorksheet; begin auxLocal := EmptyStr; if (not Riba.SalvaArquivo('Selecione o local para salvar o arquivo...', 'Excel|*.xlsx', auxLocal)) then Exit; try auxLivro := TsWorkbook.Create; auxPagina := auxLivro.AddWorksheet('Relatório'); //Adiciona dados e formata celulas... auxLivro.WriteToFile(auxLocal, sfOOXML, True); finally FreeAndNil(auxLivro); end;

  • Formata Células

    auxPagina.MergeCells('A1:C1'); auxCelula := auxPagina.GetCell(0, 0); auxPagina.WriteBorders(auxCelula, [cbWest, cbNorth]); auxPagina.WriteBorderStyle(auxCelula, cbWest, lsDouble, clWhite); auxPagina.WriteBackgroundColor(auxCelula, $00F0F0F0); auxPagina.WriteHorAlignment(auxCelula, haCenter); auxPagina.WriteFontName(auxCelula, 'Arial'); auxPagina.WriteFontStyle(auxCelula, [fssBold]); auxPagina.WriteRowHeight(0, 13, suPoints); auxPagina.WriteText(auxCelula, 'Texto');

Scripts .bash

• Automação para GitHub

  • Limpa arquivos, commita e manda

    cd /d/Documents/Cerianthus/SistemaBase rm -r bkp/ rm *.rs rm *.lps rm *.res rm *.bat rm *.exe rm /d/Documents/GitHub/dlls/FB301/firebird.log clear git status read -p "Precione Enter para Mandar para o Git" clear data_hora=$(date +"%Y%m%d_%H%M") git add . git commit -m "$data_hora" git push -u origin main read -p "Comandos executados com sucesso!!!"

  • Compila

    read -p "Precione Enter Compilar em modo release" clear # Define o caminho para o Lazarus LAZARUS_DIR="/c/lazarus" PROJECT_DIR="/d/Documents/Cerianthus/SistemaBase" # Define o modo de compilação (Debug ou Release) MODE="Release" # Verifica argumentos para o modo de compilação #exemplo = ./compile.bash release if [ "$1" == "debug" ]; then MODE="Debug" elif [ "$1" == "release" ]; then MODE="Release" else echo "Modo de compilação não especificado ou inválido. Usando o modo padrão: Release." fi # Compila o projeto com o perfil especificado "$LAZARUS_DIR/lazbuild" --build-mode="$MODE" pCerianthus.lpi # Verifica se a compilação foi bem-sucedida if [ $? -ne 0 ]; then echo "Falha na compilação!" exit 1 else #Assina /d/bin/signtool sign -a -fd SHA256 /d/Documents/Cerianthus/SistemaBase/Cerianthus.exe echo "Compilação bem-sucedida!" fi rm -r bkp/ rm *.rs rm *.lps rm *.res rm *.bat read -p "Comandos executados com sucesso!!!"

  • Atualiza

    cd /d/SistemaBase git fetch git status git pull LAZARUS_DIR="/c/lazarus" PROJECT_DIR="/d/SistemaBase" MODE="Release" "$LAZARUS_DIR/lazbuild" --build-mode="$MODE" pProjeto.lpi if [ $? -ne 0 ]; then echo "Falha na compilação!" exit 1 else echo "Compilação bem-sucedida!" fi rm -r bkp/ rm *.rs rm *.lps rm *.res rm *.bat read -p "Comandos executados com sucesso!!!"

Verificar se sistema está aberto (MUTEX)

• Utilizar esse código no arquivo .lpr logo após o begin.

  //uses windows Application.Title:='Varejo'; CreateMutex(nil, False, PChar(Application.Title)); if (GetLastError = ERROR_ALREADY_EXISTS) then begin if (Riba.Confirma('Outro sistema já está aberto, deseja fechalo e iniciar uma nova instacia?')) then begin Riba.ReiniciaSistema; end else begin Application.Terminate; Exit; end; end;

Configuração Firebird

• Crian o componente com as configirações adequadas.

  • constructor TDataModulo.Create; var auxIP: string; begin Conexao := TIBConnection.Create(nil); Transaction := TSQLTransaction.Create(nil); Query := TSQLQuery.Create(nil); Conexao.Transaction := Transaction; Conexao.Connected := False; Conexao.LoginPrompt := False; Conexao.KeepConnection := False; Conexao.CheckTransactionParams := False; Conexao.UseConnectionCharSetIfNone := False; Conexao.UserName := 'SYSDBA'; Conexao.Password := 'masterkey'; Conexao.CharSet := 'WIN1252'; Conexao.Dialect := 3; Query.DataBase := Conexao; //Opção padrão, cancela as transações que não forem comitadas. Transaction.Action := caRollback; //Limpa parametros do transaction Transaction.Params.Clear; //Lê somente dados commitados Transaction.Params.Add('isc_tpb_read_committed'); //Trabalha com versãoes separadas para evitar deadlocks Transaction.Params.Add('isc_tpb_rec_version'); //Devido ao parametro de cima não tem necessidade de aguardar //Transaction.Params.Add('isc_tpb_nowait'); //faz com que as concorrencias aguardem 7 segundos Transaction.Params.Add('isc_tpb_wait'); Transaction.Params.Add('isc_tpb_lock_timeout=7'); if (Rede) then auxIP := Config.IP_Servidor_Banco + ':' else auxIP := EmptyStr; Conexao.DatabaseName := auxIP + Config.LocalBanco; end;

Atalhos

• Adicione LCLType em Uses
• Crie um Evento FormKeyDown

Hint no DBGrid

API com fpjson + TFpHttpClient + PHP

Uses: fphttpclient, opensslsockets, fpjson

Dlls: libssl-1_1.dll e libcrypto-1_1.dll

Exemplo no GitHub.

• Autenticação SSL

  Exemplo de Rota PHP para obter usuario e senha.

  //Fuso Horário date_default_timezone_set('America/Sao_Paulo'); //Cabeçalho header('Content-type: application/json'); //Usuario if (isset($_SERVER['PHP_AUTH_USER'])) { $usuario = $_SERVER['PHP_AUTH_USER']; }else{ http_response_code(401); echo '{"codigo":"401", "Mensagem":"Método de autenticação inválido para usuário!"}'; exit; } //Senha if (isset($_SERVER['PHP_AUTH_PW'])) { $senha = $_SERVER['PHP_AUTH_PW']; }else{ http_response_code(401); echo '{"codigo":"401", "Menssagem":"Método de autenticação inválido para usuário!"}'; exit; } //Converte Json para array PHP $json = json_decode(file_get_contents('php://input'), True); //Pega dados $teste = $json['teste']; echo '{"codigo":"200", "mensagem":"Sucesso!!!", "retorno":{"usuario":"'.$usuario.'","senha":"'.$senha.'","teste":"'.$teste.'"}}';

  • Envia e recebe os dados pelo Lazarus

    procedure TFormPrincipal.Login(Sender: TObject); var auxH: TFPHTTPClient; auxRetorno: TStringStream; auxJSon: TJSONData; auxJSonDados: TJSONData; begin try auxH := TFPHTTPClient.Create(Self); auxH.AllowRedirect := True; auxH.UserName := Trim(Edit1.Text); auxH.Password := Trim(Edit2.Text); try auxH.RequestBody := TRawByteStringStream.Create('{"teste":"' + Trim(Edit3.Text) + '"}'); try auxRetorno := TStringStream.Create; auxH.Post(ComboBoxRotas.Text, auxRetorno); Status := auxH.ResponseStatusCode; MessageDlg(auxRetorno.DataString, mtConfirmation, [mbOK], 0, mbYes); if (Status = 200) then begin try auxJSon := GetJSON(auxRetorno.DataString); Codigo := auxJSon.FindPath('codigo').AsString; Mensagem := auxJSon.FindPath('mensagem').AsString; auxJSonDados := auxJSon.FindPath('retorno'); if (Assigned(auxJSonDados)) then begin Edit4.Text := auxJSonDados.FindPath('usuario').AsString; Edit5.Text := auxJSonDados.FindPath('senha').AsString; Edit6.Text := auxJSonDados.FindPath('teste').AsString; end; finally FreeAndNil(auxJSon); end; end; finally FreeAndNil(auxRetorno); end; finally auxH.RequestBody.Free; end; finally FreeAndNil(auxH); end; end;

• Envio de múltiplas linhas

  • Exemplo de Rota PHP

    //Fuso Horário date_default_timezone_set('America/Sao_Paulo'); //Cabeçalho header('Content-type: application/json'); //Conexão include("../php/conexao.php"); //Pega dados $json = json_decode(file_get_contents('php://input'), True); $sql = "DELETE FROM TESTES"; mysqli_query($con, $sql) or die($con); if(count($json['familia']) > 10){ http_response_code(405); echo '{"codigo":"405", "mensagem":"Numero de Registro acima do permitido!"}'; exit; } foreach ($json['familia'] as $linha) { $nome = $linha['nome']; $idade = intval($linha['idade']); $altura = floatval($linha['altura']); $sql = "INSERT INTO TESTES(DATA_HORA, NOME, IDADE, ALTURA) VALUES(CURRENT_TIMESTAMP, '$nome','$idade','$altura')"; mysqli_query($con, $sql) or die($con); } http_response_code(200); echo '{"codigo":"200", "mensagem":"Dados Inseridos Com Sucesso!!!"}'; mysqli_close($con);

  • Envia os dados pelo Lazarus

    procedure TFormPrincipal.InsereDados(Sender: TObject); var auxH: TFPHTTPClient; auxJSonString: string; auxNome, auxAltura, auxIdade: string[30]; auxCampos: TStringList; I: integer; auxRetorno: TStringStream; auxJSon: TJSONData; begin auxJSonString := '{"familia":['; for I := 0 to Pred(Memo1.Lines.Count) do begin try auxCampos := TStringList.Create; auxCampos.Delimiter := ';'; auxCampos.DelimitedText := Memo1.Lines[I]; auxNome := auxCampos[0]; auxIdade := auxCampos[1]; auxAltura := auxCampos[2]; auxJSonString += '{"nome":"' + auxNome + '","idade":"' + auxIdade + '","altura":"' + auxAltura + '"},'; finally FreeAndNil(auxCampos); end; end; auxJSonString := Copy(auxJSonString, 1, Pred(Length(auxJSonString))) + ']}'; try auxH := TFPHTTPClient.Create(Self); auxH.AllowRedirect := True; try auxH.RequestBody := TRawByteStringStream.Create(auxJSonString); try auxRetorno := TStringStream.Create; auxH.Post(ComboBoxRotas.Text, auxRetorno); Status := auxH.ResponseStatusCode; MessageDlg(auxRetorno.DataString, mtConfirmation, [mbOK], 0, mbYes); if (Status = 200) then begin try auxJSon := GetJSON(auxRetorno.DataString); Codigo := auxJSon.FindPath('codigo').AsString; Mensagem := auxJSon.FindPath('mensagem').AsString; finally FreeAndNil(auxJSon); end; end; finally FreeAndNil(auxRetorno); end; finally auxH.RequestBody.Free; end; finally FreeAndNil(auxH); end; end;

• Recebimento de múltiplas linhas

  • Exemplo de rota PHP

    http_response_code(500); //Fuso Horário date_default_timezone_set('America/Sao_Paulo'); //Cabeçalho header('Content-type: application/json'); //Conexão include("../php/conexao.php"); $sql = 'SELECT DATA_HORA, NOME, IDADE, ALTURA FROM TESTES'; $retorno = mysqli_query($con,$sql) or die($con); $dados = array(); while($linha = mysqli_fetch_assoc($retorno)){ $dados[] = $linha; } $jsonData = json_encode($dados); http_response_code(200); echo '{"codigo":"200", "mensagem":"Dados Selecionados Com Sucesso!!!","retorno":'.$jsonData.'}'; mysqli_close($con);

  • Recebimento pelo Lazarus

    procedure TFormPrincipal.PegaDados(Sender: TObject); var auxH: TFPHTTPClient; auxRetorno: TStringStream; auxJSon: TJSONData; auxJSonDados: TJSONArray; I: Integer; auxDataHora, auxNome: String; auxIdade: Integer; auxAltura: Currency; begin try auxH := TFPHTTPClient.Create(Self); auxH.AllowRedirect := True; try auxRetorno := TStringStream.Create; auxH.Get(ComboBoxRotas.Text, auxRetorno); Status := auxH.ResponseStatusCode; MessageDlg(auxRetorno.DataString, mtConfirmation, [mbOK], 0, mbYes); if (Status = 200) then begin try auxJSon := GetJSON(auxRetorno.DataString); Codigo := auxJSon.FindPath('codigo').AsString; Mensagem := auxJSon.FindPath('mensagem').AsString; auxJSonDados := TJSONArray(auxJSon.FindPath('retorno')); BufDados.Clear; BufDados.FieldDefs.Add('DATA_HORA',ftDateTime); BufDados.FieldDefs.Add('NOME',ftString, 60); BufDados.FieldDefs.Add('IDADE',ftInteger); BufDados.FieldDefs.Add('ALTURA',ftCurrency); BufDados.CreateDataset; if (Assigned(auxJSonDados)) then begin for I := 0 to Pred(auxJSonDados.Count) do begin auxDataHora := auxJSonDados.Items[I].FindPath('DATA_HORA').AsString; //2024-07-06 17:48:42 auxNome := auxJSonDados.Items[I].FindPath('NOME').AsString; auxIdade := auxJSonDados.Items[I].FindPath('IDADE').AsInteger; auxAltura := auxJSonDados.Items[I].FindPath('ALTURA').AsFloat; BufDados.Append; BufDados.FieldByName('DATA_HORA').AsDateTime := StrToDateTime(Copy(auxDataHora,09,2) + '/' + Copy(auxDataHora,06,2) + '/' + Copy(auxDataHora,01,4) + ' ' + Copy(auxDataHora,12,8)); BufDados.FieldByName('NOME').AsString := auxNome; BufDados.FieldByName('IDADE').AsInteger := auxIdade; BufDados.FieldByName('ALTURA').AsCurrency := auxAltura; BufDados.Post; end; end; finally FreeAndNil(auxJSon); end; end; finally FreeAndNil(auxRetorno); end; finally FreeAndNil(auxH); end; end;

• Enviar arquivo para o servidor

  • Exemplo de Rota PHP

    http_response_code(500); //Fuso Horário date_default_timezone_set('America/Sao_Paulo'); $teste01 = $_POST['teste01']; $teste02 = $_POST['teste02']; $bkp = $_FILES['arquivo']; $nome = $bkp['name']; if (move_uploaded_file($bkp['tmp_name'], '../backups/' . $nome)) { http_response_code(200); //OK echo '{"codigo":"200", "mensagem":"Arquivo Recebido com sucesso!!!","retorno":{"teste01":"'.$teste01.'","teste02":"'.$teste02.'"}}'; } else { echo 'Falha ao mover o arquivo da pasta temp para a pasta backups'; var_dump($_FILES['arquivo']); }

  • Envio pelo Lazarus

    procedure TFormPrincipal.MandaArquivo(Sender: TObject); var auxH: TFPHTTPClient; auxRetorno: TStringStream; auxDados: TStringList; auxJSon, auxJSonRetorno: TJSONData; auxLocalArquivo: String; begin auxLocalArquivo := Edit1.Text; try auxH := TFPHTTPClient.Create(Self); auxH.AllowRedirect := True; try auxDados := TStringList.Create; auxDados.Add('teste01=abc'); auxDados.Add('teste02=DEF'); try auxRetorno := TStringStream.Create; auxH.FileFormPost(ComboBoxRotas.Text, auxDados, 'arquivo', auxLocalArquivo, auxRetorno); Status := auxH.ResponseStatusCode; MessageDlg(auxRetorno.DataString, mtConfirmation, [mbOK], 0, mbYes); if (Status = 200) then begin try auxJSon := GetJSON(auxRetorno.DataString); Codigo := auxJSon.FindPath('codigo').AsString; Mensagem := auxJSon.FindPath('mensagem').AsString; auxJSonRetorno := auxJSon.FindPath('retorno'); if (Assigned(auxJSonRetorno)) then begin Edit2.Text := auxJSonRetorno.FindPath('teste01').AsString; Edit3.Text := auxJSonRetorno.FindPath('teste02').AsString; end; finally FreeAndNil(auxJSon); end; end; finally FreeAndNil(auxRetorno); end; finally FreeAndNil(auxDados); end; finally FreeAndNil(auxH); end; end;

• Envio de dados via POST

  • Exemplo de Rota PHP

    http_response_code(500); //Fuso Horário date_default_timezone_set('America/Sao_Paulo'); $teste01 = $_POST['teste01']; $teste02 = $_POST['teste02']; $teste03 = $_POST['teste03']; http_response_code(200); //OK echo '{"codigo":"200", "mensagem":"Arquivo Recebido com sucesso!!!","retorno":{"teste01":"'.$teste01.'","teste02":"'.$teste02.'","teste03":"'.$teste03.'"}}';

  • Envio pelo Lazarus

    procedure TFormPrincipal.POST(Sender: TObject); var auxH: TFPHTTPClient; auxRetorno: TStringStream; auxDados: TStringList; auxJSon, auxJSonRetorno: TJSONData; begin try auxH := TFPHTTPClient.Create(Self); auxH.AllowRedirect := True; try auxDados := TStringList.Create; auxDados.Add('teste01=' + Edit1.Text); auxDados.Add('teste02=' + Edit2.Text); auxDados.Add('teste03=' + Edit3.Text); try auxRetorno := TStringStream.Create; auxH.FormPost(ComboBoxRotas.Text, auxDados, auxRetorno); Status := auxH.ResponseStatusCode; MessageDlg(auxRetorno.DataString, mtConfirmation, [mbOK], 0, mbYes); if (Status = 200) then begin try auxJSon := GetJSON(auxRetorno.DataString); Codigo := auxJSon.FindPath('codigo').AsString; Mensagem := auxJSon.FindPath('mensagem').AsString; auxJSonRetorno := auxJSon.FindPath('retorno'); if (Assigned(auxJSonRetorno)) then begin Edit4.Text := auxJSonRetorno.FindPath('teste01').AsString; Edit5.Text := auxJSonRetorno.FindPath('teste02').AsString; Edit6.Text := auxJSonRetorno.FindPath('teste03').AsString; end; finally FreeAndNil(auxJSon); end; end; finally FreeAndNil(auxRetorno); end; finally FreeAndNil(auxDados); end; finally FreeAndNil(auxH); end; end;