gkenji

Deu erro de SSL, essa mensagem de erro "certificate verify failed", me parece que não é o certificado correto.. Caso seja correto o certificado.. verifica esse ponto do código.. Mode := sslmUnassigned; <--- verifica esse ponto também.. SSLVersions := [sslvTLSv1_2]; <--- pesquisa, existe outros tipos de forma de SSL versões e etc..

Esse fonte é muito antigo Moysés, não vo lembrar tudo.. Mas passando o olho ai, é o componente do Indy TIdHTTP Variaveis deve ser isso HttpClient: TIdHTTP; JsonToSend: TMemoryStream; Para acertar os uses, é só colocar um componente do indy TIdHttp e um TIdSSLIOHandlerSocketOpenSSL

Nem lembrava mais desse código.. Utilizei para fazer a comunicação com o PIX .. Caso tenham dúvidas só falar.. abraço!

Consegui, usando o INDY.. HttpClient := TIdHTTP.Create( nil ); HttpClient.ConnectTimeout := 20000; HttpClient.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); with TIdSSLIOHandlerSocketOpenSSL(HttpClient.IOHandler).SSLOptions do begin CertFile := [CaminhoCertificado.crt.pem]; //mudar caminho certificado aqui KeyFile := [CaminhoCertificado.key.pem]; //mudar caminho certificado aqui Mode := sslmUnassigned; SSLVersions := [sslvTLSv1_2]; //mudar protocolos de SSL aqui end; with HttpClient do begin Request.CustomHeaders.Values['Content-Type'] := 'application/json; application/x-www-form-urlencoded;'; Request.ContentType := 'application/json'; Request.CharSet := 'utf-8'; Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; HandleRedirects := True; HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; end; Body:= '[conteudo body]'; //mudar body aqui JsonToSend := TMemoryStream.Create; WriteStringToStream(JsonToSend, Body, IndyTextEncoding_UTF8); JsonToSend.Position := 0; sResponse := HttpClient.Post([URL],JsonToSend); //mudar URL aqui

Estou fazendo o consumo de uma API Rest na qual precisa carregar um certificado. Consumi ele no Postman e funcionou: -> Entrei em File -> settings -> certificates -> coloquei o HOST e o arquivo *.p12 -> Fiz uma requisição POST, com <authorization> basic, passando usuário e senha.. -> Header só adicionei: Content-Type : application/json -> Body: {"grant_type": "client_credentials"} Eu tentei fazer exatamente isso com o REST Debugger.. Não deu certo.. authorization, content type, body td isso eu configurei.. Mas o certificado eu não sei aonde colocar no RESTClient/RESTRequest ou RESTResponse Alguém já passou por isso? ou sabe alguma solução alternativa?

Boa tarde, Notei que para reimprimir o SAT, é preciso ter o XML. Gravando o XML no meu servidor, em determinada pasta, etc.. etc.. Na hora que precisar re-imprimir, eu preciso achar o arquivo la, para poder fazer o comando: ACBrSAT.CFe.Clear; ACBrSAT.CFe.LoadFromFile('C:\teste.xml'); ACBrSAT.ImprimirExtrato Tenho receio de ter alguma alteração de pasta no servidor, e eu perder esse caminho, não sendo possível a re-impressão. A ) Alguém do forum já salvou todos os XML's, dentro de um campo text no banco de dados? A.1) Com ele no banco, eu consigo carregar o arquivo assim??? ACBrSAT1.CFe.AsXMLString := query.fieldbyname('xml').astext; A.2) Fica lento? É utilizável? B ) Eu acabei vendo uma solução no ACBrSATws, mas não encontrei muitas informações de como configurar..