-
Total de ítens
37 -
Registro em
-
Última visita
Últimos Visitantes
1.599 visualizações
UEMERSON NEGREIRO DA SILVA's Achievements
-
UEMERSON NEGREIRO DA SILVA started following EliasCesar
-
'HTTP/1.1 401 Unauthorized'
um tópico no fórum postou UEMERSON NEGREIRO DA SILVA Object Pascal - Delphi & Lazarus
Bom dia Pessoal estou com a seguintes duvidas.. Tenho que consumir uma API de um determinado Orgão.. Esse seria a integração do a API curl --location --request POST 'https://pessoas-hml.e-notariado.org.br/api/uploads' \ --header 'X-Api-Key: your-app|xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' \ --form 'file=@/C:/CCN27052020-10.xml' \ --form 'name=CCN27052020-10.xml' \ --form 'contentType=text/xml' Estou tentando montando dessa forma var restClient: TRESTClient; restRequest: TRESTRequest; restResponse: TRESTResponse; begin restClient := TRESTClient.Create(nil); // restClient.Authenticator := HTTPBasicAuthenticator1; // restClient.ContentType := 'application/json'; restRequest := TRESTRequest.Create(restClient); restResponse := TRESTResponse.Create(restClient); try try if wsProxyServer <> '' then begin restClient.ProxyServer := wsProxyServer; restClient.ProxyPort := piProxyPort; restClient.ProxyUsername := wsProxyUsername; restClient.ProxyPassword := wsProxyPassword; end; restClient.BaseURL := edtUploadEndPoint.text; // ==> //'https://pessoas-hml.e-notariado.org.br/api/uploads'; restRequest.Client := restClient; restRequest.Method := rmPOST; RESTRequest.Resource := ''; restRequest.Response := restResponse; restRequest.Params.Add; restRequest.Params[0].ContentType := ctAPPLICATION_X_WWW_FORM_URLENCODED; restRequest.Params[0].Kind := pkURLSEGMENT; restRequest.Params[0].Name := 'X-Api-Key'; restRequest.Params[0].Value :=edtKey.Text; restRequest.Params.Add; restRequest.Params[1].ContentType := ctAPPLICATION_X_WWW_FORM_URLENCODED; restRequest.Params[1].Kind := pkFILE; restRequest.Params[1].Name := 'file'; restRequest.Params[1].Value :=edtFile.text; restRequest.Params.Add; restRequest.Params[2].ContentType := ctAPPLICATION_X_WWW_FORM_URLENCODED; restRequest.Params[2].Kind := pkREQUESTBODY; restRequest.Params[2].Name := 'name'; restRequest.Params[2].Value := ''+EdtNomeArq.Text; restRequest.Params.Add; restRequest.Params[3].ContentType := ctAPPLICATION_X_WWW_FORM_URLENCODED; restRequest.Params[3].Kind := pkREQUESTBODY; restRequest.Params[3].Name := 'contentType'; restRequest.Params[3].Value := 'text/xml'; restRequest.Execute; result := restResponse.Content; except on e: Exception do begin result := 'Erro retornado pelo webservice: '+ e.Message + ' XML: ' + restResponse.Content; end end; finally restClient.Free; end; Ele me retorno o erro 'HTTP/1.1 401 Unauthorized'. O que poderia estar dando de errado ? -
UEMERSON NEGREIRO DA SILVA changed their profile photo
-
Assinar Documento PDf
UEMERSON NEGREIRO DA SILVA replied to UEMERSON NEGREIRO DA SILVA's tópico in ACBrDiversos
BLz Obg.... -
Bom dia.. Gostaria de Saber como que faço para assinar arquivo como PDF, jpeg etc ? Pelo acbr tem como Fazer /
-
dll CAPICOM
UEMERSON NEGREIRO DA SILVA replied to UEMERSON NEGREIRO DA SILVA's tópico in Object Pascal - Delphi & Lazarus
Sim e uma particularidade minha... Você poderia me ajudar ? -
O xml eu já estou conseguindo assinar ele.... já o PDF que esta meio complicado... Talvez você possa me ajudar Juliomar.. eu estou usando esse Código para poder assinar o PDF... Só que o Validador de assinatura diz que o documento não foi assinado... function TFCenprot.assinar(caminho: string): string; var fs : TFileStream; qt : integer; ch : PChar; msg, content : WideString; SignedData : ISignedData; ISigner : ISigner2; begin { Abre o arquivo original para obter dele o conteúdo a ser assinado } fs := TFileStream.Create (caminho, fmOpenRead); New (ch); repeat qt := fs.Read(ch^, 1); if (qt > 0) then content := content + ch^; until qt = 0; fs.Free; Dispose (ch); if(Certificado = nil) Then buscaceritifcado; ISigner := CoSigner.Create; ISigner.Certificate := Certificado; SignedData := CoSignedData.Create; SignedData.Content := content; msg := SignedData.Sign(ISigner, true, CAPICOM_ENCODE_BASE64 ); fs := TFileStream.Create ('C:\XML\13112019144_Ass.pdf', fmCreate); for qt := 1 to Length (msg) do fs.Write(msg[qt], 2); fs.Free; end;
-
ASSINAR ARQUIVOS PDF E XML
um tópico no fórum postou UEMERSON NEGREIRO DA SILVA Dúvidas não relacionadas ao ACBr
Bom dia como que faço para assinar Documentos em PDF e XML ? -
Boa Tarde.... Eu estou desenvolvendo uma aplicação que vai assinar xml atraves do certificado digital.... eu estou usando a dll CAPICOM... só que esta dando esse erro " Undeclared identifier: 'TSigner' " alguém poderia me ajudar fazendo um favor.. Já declarei na Uses CAPICOM_TLB ,WinINet, JwaWinCrypt Desde já agradeço
-
Boa tarde o WebService está me retornando este erro "Nao existe licenca valida para este sistema ou a licenca expirou!" Seria Algum problema no Cadastro da empresa o qual o sistema esta rodando ?? Alguém poderia me dar uma dica
-
Mudança de Provedor de Betha para Abaco
um tópico no fórum postou UEMERSON NEGREIRO DA SILVA ACBrNFSe
Bom dia Estou com dificuldades com relação aos arquivos "Xsd" da pasta Schema para poder fazer a validadeção do xml de nota de serviço.. Onde encontrar sendo o que tem na pasta da Abaco não estão todos conforme mostra a imagem.. Grato Uemerson -
Erro ao Enviar nota Fiscal de Produto
UEMERSON NEGREIRO DA SILVA replied to UEMERSON NEGREIRO DA SILVA's tópico in ACBrNFe
BLZ..... Obrigado... -
Erro ao Enviar nota Fiscal de Produto
UEMERSON NEGREIRO DA SILVA replied to UEMERSON NEGREIRO DA SILVA's tópico in ACBrNFe
Mas isso só esta acontecendo com a empresa que é "3 - Regime Normal" na "1 - Simples Nacional" ele envia de boa... Ou será que a empresa esta com algum problema.... -
Boa Tarde ao tentar enviar uma nota fiscal de produto esta dando este erro abaixo...... Nota(s) não confirmadas: 73->Rejeicao: Erro nao catalogadoInvalid XPath expression: 'null'. Caused by: null mas o xml e gerado mas não envia como o xml ja esta tudo OK.... O que seria ?? Aguem poderia me dar umas dicas de como proceder...