johnbh3

De fato removi ficou assim C:\Delphi\ACbr\Lib\Delphi\LibD12\Win32;C:\Program Files (x86)\CodeGear\RAD Studio\6.0\bin;C:\Users\Public\Documents\RAD Studio\6.0\Bpl;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Windows\System32\OpenSSH\;C:\Program Files (x86)\Windows Kits\10\Windows Performance Toolkit\;C:\Users\johnbh3\AppData\Local\Microsoft\WindowsApps;C:\Delphi\Fortes\fortesreport-ce-master\Binary\LibD12;C:\Delphi\TInject\Projeto-TInject-master\Packages\Compilados\VD12;C:\Users\johnbh3\Documents\DevExpress VCL\Library\Delphi12 Mas o erro permanece

Cara nem tem nada no delphi 2009 referente ao rio em enviroments variables Meu path no delphi 2009 esta C:\Delphi\ACbr\Lib\Delphi\LibD12\Win32;C:\Program Files (x86)\CodeGear\RAD Studio\6.0\bin;C:\Users\Public\Documents\RAD Studio\6.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\21.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\21.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\21.0\Bpl\Win64;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Windows\System32\OpenSSH\;C:\Program Files (x86)\Windows Kits\10\Windows Performance Toolkit\;C:\Users\johnbh3\AppData\Local\Microsoft\WindowsApps;C:\Delphi\Fortes\fortesreport-ce-master\Binary\LibD12;C:\Delphi\TInject\Projeto-TInject-master\Packages\Compilados\VD12;C:\Users\johnbh3\Documents\DevExpress VCL\Library\Delphi12

Vou tentar estranho que nunca precisei fazer isto mas irei tentar

Sim atualizado já estava instalado no 2009 Porém ao instalar no rio bichou do 2009.

Achei estranho reclamar fmx Sendo que delphi 2009 não tem E marquei só a opção delphi 2000 Tenho o delphi Rio Será que preciso remover tudo e mandar instalar no 2009 e rio?

Ola Fui instalar no delphi 2009 Versao Instalador: 2.15.2.20 Versão do delphi: Delphi 2009 Win32 Dir. Instalação : C:\Delphi\ACbr\ Dir. Bibliotecas: C:\Delphi\ACbr\Lib\Delphi\LibD12\Win32 Removendo librarypaths da instalação anterior do ACBr na IDE... ...OK Removendo pacotes 32bits da instalação anterior do ACBr na IDE... ...OK Criando diretórios de bibliotecas para Win32... ...OK Adicionando library paths para Win32... ...OK Alterando a variável de ambiente PATH do Delphi... ...OK COMPILANDO OS PACOTES... Cleaning package cache for ACBr_synapse.bpl Cleaning ok Compiling package C:\Delphi\ACbr\Pacotes\Delphi\synapse\ACBr_synapse.dpk "C:\Program Files (x86)\CodeGear\RAD Studio\6.0\bin\dcc32.exe" "C:\Delphi\ACbr\Pacotes\Delphi\synapse\ACBr_synapse.dpk" CodeGear Delphi for Win32 compiler version 20.0 Copyright (c) 1983,2008 CodeGear 44607 lines, 0.17 seconds, 324768 bytes code, 29368 bytes data. Compilation success Pacote "ACBr_synapse.dpk" compilado com sucesso. Cleaning package cache for ACBr_Comum.bpl Cleaning ok Compiling package C:\Delphi\ACbr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk "C:\Program Files (x86)\CodeGear\RAD Studio\6.0\bin\dcc32.exe" "C:\Delphi\ACbr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk" CodeGear Delphi for Win32 compiler version 20.0 Copyright (c) 1983,2008 CodeGear C:\Delphi\ACbr\Fontes\ACBrComum\ACBrBase.pas(64) Fatal: F1026 File not found: 'FMX.Dialogs.dcu' Compilation failure Erro ao compilar o pacote "ACBr_Comum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

Exibir dados de PDV em segunda tela, eu consigo exibir telas diferente em segunda tela? ou teria que ser duplicar a tela mesmo?

Consegui Nussa esta deu trampo, rapaiz isto n existe no google tive que mudar meu metodo no java para static

A documentação da embarcadero e fraca demais, e existe praticamente nenhum material no google

Eu vi aqui na pasta do delphi Até rodei o comando para exportar Java2OP.exe -jar c:\java\myjavalibrary.jar no cmd fez isto, porém nao sei aconteceria! Se iria gerar alguma unit mas gerou nada C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\converters\java2op>Java2OP.exe -jar c:\java\myjavalibrary.jar Embarcadero Java2OP Version 12.16582 ($Rev: 95842 $) Copyright(c) 2016-2020 Embarcadero Technologies, Inc. Parsing xml: C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\converters\java2op\bootclasses.xml Parsing jar: c:\java\myjavalibrary.jar Olhei em https://docwiki.embarcadero.com/RADStudio/Athens/en/Java2OP.exe,_the_Native_Bridge_File_Generator_for_Android

@Juliomar Marchetti J2OP no google? nao entendi

unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, {$IFDEF ANDROID} Androidapi.JNIBridge, // Ponte JNI entre Delphi e Java Androidapi.Helpers, // Funções de auxílio Androidapi.JNI.JavaTypes, // Tipos Java como JObject, JString Androidapi.JNI; // Funções e tipos JNI {$ENDIF} type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} {$IFDEF ANDROID} function CallJavaPluginAdd(a, b: Integer): Integer; var JNIEnv: PJNIEnv; // Ponteiro para o ambiente JNI JavaClass: JClass; // Usamos JClass do Androidapi.JNI.JavaTypes JavaMethod: JMethodID; // ID do método Java a ser chamado ResultValue: JValue; // Valor de retorno do método begin // Obter o ambiente JNI JNIEnv := TJNIResolver.GetJNIEnv; // Encontrar a classe Java 'com/example/myplugin/Plugin' JavaClass := JNIEnv^.FindClass(JNIEnv, 'com/example/myplugin/Plugin'); // Verificar se a classe foi encontrada if JavaClass = nil then raise Exception.Create('Classe Java não encontrada!'); // Encontrar o método estático 'add' que recebe dois inteiros e retorna um inteiro JavaMethod := JNIEnv^.GetStaticMethodID(JNIEnv, JavaClass, 'add', '(II)I'); // Verificar se o método foi encontrado if JavaMethod = nil then raise Exception.Create('Método add não encontrado!'); // Chamar o método estático 'add' com os parâmetros 'a' e 'b' ResultValue.I := JNIEnv^.CallStaticIntMethodA(JNIEnv, JavaClass, JavaMethod, [JValue(a), JValue(b)]); // Retornar o resultado Result := ResultValue.I; end; {$ENDIF} end. Pedi o chatgpp o codigo em java para chamar .jar no delphi package com.example.myplugin; public class Plugin { public static int add(int a, int b) { return a + b; } } Porém no delphi esta dando o erro [DCC Error] Unit1.pas(34): E2003 Undeclared identifier: 'JClass' [DCC Error] Unit1.pas(35): E2003 Undeclared identifier: 'JMethodID' [DCC Error] Unit1.pas(36): E2003 Undeclared identifier: 'JValue' Alguém ja chamou um .jar com android fmx?

Pessoal boa tarde fiz uma api aqui em horse. De forma local a API responde normal. Quando coloco ela no servidor, ela da o erro SMTP Error: Unable to Login. 10060 - Connection timed out. Mas a API e executada no lado servidor, e o erro ocorre no nomento do send do ACBr entao nem e que estão de trafego. A requisição chega instantenear, e e ocorre isto no sendo do acbr. Eu ja joguei todas DLL possives que vi no forum aqui e nada Até ACbr\DLLs\XMLSec\MinGW\32 já joguei la e nada. Coloquei tudo na pasta do executavel. No meu pc de desenvolvimento vai numa boa. Estou em um servidor amazon! Todas todas liberdas

Achei este topico mas nao e bem sobre gmail será que gmail n funciona mais? pq se n funciona começou hj pra mim. Eu tinha uma senha secundaria com nome de um app. Sempre foi de boa.

Vc sabe o video? ou topico ate pesquisei por Unable to send MailFrom. Estranhamente isto começou do nada

Ola Começou a acontecer isto Erro: SMTP Error: Unable to send MailFrom. 535 5.7.8 https://support.google.com/mail/?p=BadCredentials h2-20020a170902748200b001e3dda6511esm9925030pll.101 - gsmtp 530 5.7.0 https://support.google.com/mail/?p=WantAuthError h2-20020a170902748200b001e3dda6511esm9925030pll.101 - gsmtp

Pessoal eu baixei do git como indica aqui GitHub - project-jedi/jvcl: JEDI Visual Component Library instalei pelo C:\Delphi\Delphi2009New\jvcl-master\jvcl\install.bat até compila pelo executavel do JEDI tudo certinho. Mas ai abro o delphi 2009 Da um erro cant package C:\Users\Public\Documents\RAD Studio\6.0\Bpl e da erro em todas BPL Não foi possível encontrar o modulo especificado. Do yoy want attempt to load this package the next time a project is loaded

Resolvi postei em De toda forma obrigado !

resolvido Fiz isto PintarQRCodeEstatico (); var i : integer; qrCodeData: string; begin ACBrPixCD1.Recebedor.Nome := DmDados.configuracao('NOME_PIX'); ACBrPixCD1.Recebedor.CEP := DmDados.configuracao('END_CEPPIX'); ACBrPixCD1.Recebedor.Cidade := DmDados.configuracao('END_CIDADEPIX'); ACBrPixCD1.Recebedor.UF := DmDados.configuracao('END_UFPIX'); lblNomePIX.Text := 'PAGAMENTO PARA, '+ACBrPixCD1.Recebedor.Nome; if DmDados.configuracao('TIPO_CHAVEPIX') = '1' Then begin ACBrPixBradesco.ChavePIX :='+5531'+DmDados.configuracao('CHAVE_PIX') end else begin ACBrPixBradesco.ChavePIX := DmDados.configuracao('CHAVE_PIX'); end; qrCodeData := ACBrPixCD1.GerarQRCodeEstatico( precoACobrar, 'PAGAMENTO ESTACIONAMENTO', ''); {$IFDEF MSWINDOWS} QRCodeWin(imgQR, qrCodeData); {$ELSE} QRCodeMobile(imgQR, qrCodeData); {$ENDIF} end; Usei o acbr para gerar a string do qrCode Quando mobile pela directiva procedure TfrmSaidaVeiculo.QrCodeMobile(imgQRCode: TImage; texto: string); const downsizeQuality: Integer = 2; // bigger value, better quality, slower rendering var QRCode: TDelphiZXingQRCode; Row, Column: Integer; pixelColor : TAlphaColor; vBitMapData : TBitmapData; pixelCount, y, x: Integer; columnPixel, rowPixel: Integer; function GetPixelCount(AWidth, AHeight: Single): Integer; begin if QRCode.Rows > 0 then Result := Trunc(Min(AWidth, AHeight)) div QRCode.Rows else Result := 0; end; begin // Not a good idea to stretch the QR Code... if imgQRCode.WrapMode = TImageWrapMode.Stretch then imgQRCode.WrapMode := TImageWrapMode.Fit; QRCode := TDelphiZXingQRCode.Create; try QRCode.Data := ' ' + texto; QRCode.Encoding := TQRCodeEncoding.qrAuto; QRCode.QuietZone := 4; pixelCount := GetPixelCount(imgQRCode.Width, imgQRCode.Height); case imgQRCode.WrapMode of TImageWrapMode.Original, TImageWrapMode.Tile, TImageWrapMode.Center: begin if pixelCount > 0 then imgQRCode.Bitmap.SetSize(QRCode.Columns * pixelCount, QRCode.Rows * pixelCount); end; TImageWrapMode.Fit: begin if pixelCount > 0 then begin imgQRCode.Bitmap.SetSize(QRCode.Columns * pixelCount * downsizeQuality, QRCode.Rows * pixelCount * downsizeQuality); pixelCount := pixelCount * downsizeQuality; end; end; //TImageWrapMode.iwStretch: // raise Exception.Create('Not a good idea to stretch the QR Code'); end; if imgQRCode.Bitmap.Canvas.BeginScene then begin try imgQRCode.Bitmap.Canvas.Clear(TAlphaColors.White); if pixelCount > 0 then begin if imgQRCode.Bitmap.Map(TMapAccess.Write, vBitMapData) then begin try For Row := 0 to QRCode.Rows - 1 do begin for Column := 0 to QRCode.Columns - 1 do begin if (QRCode.IsBlack[Row, Column]) then pixelColor := TAlphaColors.Black else pixelColor := TAlphaColors.White; columnPixel := Column * pixelCount; rowPixel := Row * pixelCount; for x := 0 to pixelCount - 1 do for y := 0 to pixelCount - 1 do vBitMapData.SetPixel(columnPixel + x, rowPixel + y, pixelColor); end; end; finally imgQRCode.Bitmap.Unmap(vBitMapData); end; end; end; finally imgQRCode.Bitmap.Canvas.EndScene; end; end; finally QRCode.Free; end; end; Vai que sirva pra alguem funcionou todos os bancos. E qualidade ficou otima! Agora funciona desktop e mobile.

Eu observei que o erro e chave celular Mesmo usando o demo ACBR - Exemplos\ACBrPIXCD\Delphi da o mesmo errado Lá tem obrigada por a chave com +55DDDNUMEROTEL Se colocar no demo apenas NUMERODOTELEFONE vai conter 11 digitos (igual CPF). Mas acredito ser um BUG quando usa o telefone, e de fato precisa por +55CHAVE mas ele gera o QrCode invalido.

Em VCL simplismente funciona normal. Mesmo codigo, mesmo pq n aparenta ter erros no codigo. No mobile perde qualidade da imagem.

Ola Estou usando o PIX estatico sem necessidade de confirmar pagamento. Eu gerei com chave PIX que origem e bradesco. Ai vou no banco itau e vou scnear da erro iso no meu aparelho. No inter da certo Porém fui no santander deu erro tb. O bradesco de outro aparelho com outra esposa tambem da erro. Fiz a leitura do pagseguro também não funciona. Estranho ne! To usando fmx. procedure TfrmSaidaVeiculo.PintarQRCodeEstatico (aChavePix: string); var i : integer; mQRE : TStringList; begin mQRE := TStringList.Create; try ACBrPixCD1.PSP := ACBrPixBradesco; ACBrPixBradesco.ChavePIX := aChavePix; i:= Integer(DetectarTipoChave(aChavePix)); if i = 4 then begin aChavePix := '+55'+aChavePix; end; mQRE.Text := ACBrPixCD1.GerarQRCodeEstatico( precoACobrar, 'PGTO ESTACIONAMENTO', IntToStr(Random(300))); PintarQRCode(mQRE.Text, imgQRE.Bitmap, qrUTF8BOM); finally FreeAndNil(mQRE); end; end; procedure TfrmSaidaVeiculo.btnPixClick(Sender: TObject); begin ACBrPixCD1.Recebedor.Nome := DmDados.configuracao('NOME_PIX'); ACBrPixCD1.Recebedor.CEP := DmDados.configuracao('END_CEPPIX'); ACBrPixCD1.Recebedor.Cidade := DmDados.configuracao('END_CIDADEPIX'); ACBrPixCD1.Recebedor.UF := DmDados.configuracao('END_UFPIX'); lblNomePIX.Text := ACBrPixCD1.Recebedor.Nome; PintarQRCodeEstatico(DmDados.configuracao('CHAVE_PIX')); end;

Estranho, não nenhuma excepcion E qual dll por exemplo? Visto que vcl nem dll tem na pasta do exe funciona, no fmx Android idem E só pix estático n entendi o pq que seria só printar o qrCode só n exige fmx/Windows

Abri com android e exibi com FMX. Só não exibe quando e FMX no windows estranho

Ola Eu estou tentando gerar pix estatatico com firemonkey funciona? Seguinte eu fiz em VCL vs Firemokey VCL funciona uses ACBrDelphiZXingQRCode,ACBrImage, ACBrPIXUtil; procedure TForm1.btQREGerarClick(Sender: TObject); begin ACBrPixCD1.Recebedor.Nome := 'SOUZA'; ACBrPixCD1.Recebedor.CEP := '31950280'; ACBrPixCD1.Recebedor.Cidade := 'BELO HORIZONTE'; ACBrPixCD1.Recebedor.UF := 'MG'; PintarQRCodeEstatico('073XXXXX8641'); end; procedure TForm1.PintarQRCodeEstatico (sChave: string); var i : integer; begin ACBrPixCD1.PSP := ACBrPSPPagSeguro1; ACBrPSPPagSeguro1.ChavePIX := sChave; i:= Integer(DetectarTipoChave(sChave)); mQRE.Lines.Text := ACBrPixCD1.GerarQRCodeEstatico( StrToFloatDef('1,00', 0), '', ''); PintarQRCode(mQRE.Lines.Text, imgQRE.Picture.Bitmap, qrUTF8BOM); end; Em FMX não funciona {$R *.fmx} uses ACBrDelphiZXingQRCode,ACBrImage, ACBrPIXUtil; procedure TForm1.btQREGerarClick(Sender: TObject); begin ACBrPixCD1.Recebedor.Nome := 'JSOUZA'; ACBrPixCD1.Recebedor.CEP := '31950280'; ACBrPixCD1.Recebedor.Cidade := 'BELO HORIZONTE'; ACBrPixCD1.Recebedor.UF := 'MG'; PintarQRCodeEstatico('0SSSSS8641'); end; procedure TForm1.PintarQRCodeEstatico (sChave: string); var i : integer; begin ACBrPixCD1.PSP := ACBrPSPPagSeguro1; ACBrPSPPagSeguro1.ChavePIX := sChave; i:= Integer(DetectarTipoChave(sChave)); mQRE.Lines.Text := ACBrPixCD1.GerarQRCodeEstatico( StrToFloatDef('1,00', 0), '', ''); PintarQRCode(mQRE.Lines.Text,imgQRE.Bitmap, qrUTF8BOM); end; Debugando em procedure PintarQRCode(const QRCodeData: String; ABitMap: TBitmap; que chama no ACBrImage Quando dou ctrl+f7 no delphi pra inspecionar a variavel QRCodeBitmap e mando SaveToFile e gerou uma uma imagem bmp 47po47 tudo preto. debuguei aqui procedure PintarQRCode(const QRCodeData: String; ABitMap: TBitmap; const AEncoding: TQRCodeEncoding); var QRCode: TDelphiZXingQRCode; QRCodeBitmap: TBitmap; Row, Column: Integer; {$IfDef FMX} BitMapData: TBitmapData; {$EndIf} begin QRCode := TDelphiZXingQRCode.Create; QRCodeBitmap := TBitmap.Create; try QRCode.Encoding := AEncoding; QRCode.QuietZone := 1; QRCode.Data := widestring(QRCodeData); //QRCodeBitmap.SetSize(Q unit completa do FMX copia do VCL unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, ACBrPIXCD, ACBrPIXPSPPagSeguro, ACBrBase; type TForm1 = class(TForm) imgQRE: TImage; btQREGerar: TButton; mQRE: TMemo; ACBrPSPPagSeguro1: TACBrPSPPagSeguro; ACBrPixCD1: TACBrPixCD; procedure btQREGerarClick(Sender: TObject); private procedure PintarQRCodeEstatico(sChave: string); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} uses ACBrDelphiZXingQRCode,ACBrImage, ACBrPIXUtil; procedure TForm1.btQREGerarClick(Sender: TObject); var BitMapData: TBitmapData; begin ACBrPixCD1.Recebedor.Nome := 'JOHN KENNEDY OLIVEIRA SOUZA'; ACBrPixCD1.Recebedor.CEP := '31950280'; ACBrPixCD1.Recebedor.Cidade := 'BELO HORIZONTE'; ACBrPixCD1.Recebedor.UF := 'MG'; PintarQRCodeEstatico('07342XXXX41'); end; procedure TForm1.PintarQRCodeEstatico (sChave: string); var i : integer; begin ACBrPixCD1.PSP := ACBrPSPPagSeguro1; ACBrPSPPagSeguro1.ChavePIX := sChave; i:= Integer(DetectarTipoChave(sChave)); mQRE.Lines.Text := ACBrPixCD1.GerarQRCodeEstatico( StrToFloatDef('1,00', 0), '', ''); PintarQRCode(mQRE.Lines.Text,imgQRE.Bitmap, qrUTF8BOM); end; end. DETALHE ESTOU TESTOU O fmx no proprio windows.