Márcio Antônio

O suporte pediu para testar com a nova url: Seria alterar a unit abaixo apenas?

Olá, fiz o cadastro no site do BB, e estou tentando testar o uso do componente pelo demo do acbr, informei os dados do meu cadastro e está me retornando o erro abaixo: 21/05/26 14:52:09:821 - ResultCode: 403 - 21/05/26 14:52:09:823 - Resp.Body: { "statusCode": 403, "error": "Forbidden", "message": "Application key is not allowed to call this resource method" } 21/05/26 14:52:09:824 - Erro HTTP: 403 Socket Error: 0 URL: https://api.hm.bb.com.br/extratos/v1 Resposta HTTP: { "statusCode": 403, "error": "Forbidden", "message": "Application key is not al lowed to call this resource method" } Alguém sabe o que possa ser?

Verdade, tive que calcular na "mão", para ficar centralizado o panel, mas dependendo da tela, ela não fica 100%. Mas depois com mais calma, eu tento de outra forma. Obrigado mesmo assim!

Olá, eu tenho esse código abaixo funcionando perfeitamente no Delphi 2007, mas estou migrando para o Delphi Alexandria, e o mesmo não está mais centralizando, já fiz algumas modificações no form, como por exemplo: Align := alnone; e Anchors : = []; e mesmo assim não funciona, alguém sabe o motivo? Código: procedure TdtmSysMsg.AguardeForm(Formulario: TForm; Mensagem: string); var pngAguarde: TPanel; begin FimAguardeForm(Formulario); Mensagem := Mensagem + ' ...'; Screen.Cursor := crSQLWait; pngAguarde := TPanel.Create(Formulario); with pngAguarde do begin Align := alNone; Width := Length(Mensagem) * 9; // Left := (Formulario.Width - Width) div 2; // Top := (Formulario.Height - Height) div 2; Left := (Formulario.ClientWidth - Width) div 2; Top := (Formulario.ClientHeight - Height) div 2; Name := 'pngAguarde'; Parent := formulario; Caption := Mensagem; Height := 59; BorderStyle := bsNone; Color := $00DEDCBE; Color := clSkyBlue; Font.Charset := DEFAULT_CHARSET; Font.Color := clWindowText; Font.Height := -11; Font.Name := 'Tahoma'; Font.Size := 10; Font.Style := [fsBold]; ParentFont := False; ParentColor := False; ParentBackground := False; Application.ProcessMessages; end; end; eu chamo essa procedure em vários momentos do form, e em nenhuma dela a mesma fica centralizada...

não, mas eu consegui utilizando o componente da TMS, obrigado pelo retorno.

Olá, estou usando o componente da LockBox, o tcodec, estou tentando criptografar um arquivo e descriptografar, mas não está descriptografando, o arquivo está ficando zerado, não estou conseguindo resolver.... alguém tem alguma ideia do que seja? Código para criptografar: procedure TForm1.btnCriptArquivoClick(Sender: TObject); var Codec2: TCodec; Lib2: TCryptographicLibrary; FSInput, FSOutput: TFileStream; begin Codec2 := TCodec.Create(nil); Lib2 := TCryptographicLibrary.Create(nil); try // --- Configuração --- Codec2.Password := 'teste'; Codec2.CryptoLibrary := Lib2; // Garante o uso de AES-256 com CBC Codec2.StreamCipherId := uTPLb_Constants.BlockCipher_ProgId; Codec2.BlockCipherId := 'native.AES-256'; Codec2.ChainModeId := uTPLb_Constants.CBC_ProgId; FSInput := TFileStream.Create('C:\temp\conncfg.xml', fmOpenRead); FSOutput := TFileStream.Create('C:\temp\conncfg.aes', fmCreate); try Codec2.EncryptStream(FSInput, FSOutput); ShowMessage('Arquivo criptografado com sucesso.'); finally FSInput.Free; FSOutput.Free; end; finally Codec2.Free; Lib2.Free; end; end; Código para descriptografar: procedure TForm1.btnDesCriptArquivoClick(Sender: TObject); var Codec2: TCodec; Lib2: TCryptographicLibrary; FSInput, FSOutput: TFileStream; begin Codec2 := TCodec.Create(nil); Lib2 := TCryptographicLibrary.Create(nil); try // --- Configuração --- Codec2.Password := 'teste'; Codec2.CryptoLibrary := Lib2; // Garante o uso de AES-256 com CBC Codec2.StreamCipherId := uTPLb_Constants.BlockCipher_ProgId; Codec2.BlockCipherId := 'native.AES-256'; Codec2.ChainModeId := uTPLb_Constants.CBC_ProgId; FSInput := TFileStream.Create('C:\temp\conncfg.aes', fmOpenRead); FSOutput := TFileStream.Create('C:\temp\conncfg_Novo.xml', fmCreate); try Codec2.DecryptStream(FSInput, FSOutput); ShowMessage('Arquivo descriptografado com sucesso.'); finally FSInput.Free; FSOutput.Free; end; finally Codec2.Free; Lib2.Free; end; end;

Baixei novamente, e instalei pelo instalador. Agora deu certo, obrigado!

Olá, instalei o fortes e o acbr no meu delphi alexandria, e tentei compilar um projeto, e deu esse erro abaixo: o que poderia ser?

Estou com um cliente, que envia inúmeros emails por dia, eles contrataram a Locaweb para ter esse processo, sendo que o suporte informou a eles o seguinte: "O sistema tem que ter uma opção de fazer login em outro servidor" "estou suspeitando que a aplicação não permita que você use o remetente junto com um usuário diferente para a autenticação" "la no outlook, quando você vai em configurações avançadas e utiliza o "fazer logon usando" e coloca os dados do SMTP, é basicamente você informando que apesar de usar um remetente de um provedor X, você quer fazer autenticação no servidor com um login Y" "Isso, o ideal seria verificar junto a equipe responsável pela aplicação se eles conseguem implementar ou realizar um ajuste pra ficar compativel com o SMTP pra você poder disparar em massa" "é só passa o login la da configuração, e o email, só que dentro do sistema eles tem que fazer login com outra conta, igual no outlook, se nao tiver essa opção não vai pegar, dentro do sistema deles eles tem que ter a opção de logar na saida com outra conta a não ser o e-mail normal" Tem alguma forma de resolver isso?

Descobri o problema, era uma função que estava trocando o " pelo &quot, desculpe pela mensagem.

Olá, após a atualização, o meu Danfe ficou saindo com a descrição errada.... no nome do produto contém " de polegada, ai na impressão sai com &quot, como na foto em anexo, o que pode estar ocorrendo?

Olá, estou com uma dúvida. O boleto híbrido do itaú, tem o mesmo processo do banco do brasil, após o enviar, ele já me retorna o EMV? ACBrBoleto.Enviar; if (ACBrBoleto.TotalListaRetornoWeb > 0) AND (ACBrBoleto.ListaRetornoWeb[i].DadosRet.TituloRet.EMV <> '') then begin QrCode.emv := ACBrBoleto.ListaRetornoWeb[i].DadosRet.TituloRet.EMV; ou ele só retorna o EMV pelo arquivo de retorno?

Valeu BigWings!

Olá, Gostaria de saber se pode e se tem espaço para informar no Danfe da NFCe, o nome do vendedor e do usuário logado?

vou tentar...