andreyjardim

Bom dia. Estou tentando usar o ACBrNFe1.ssl.HTTPPost para enviar informações com MultiPartFormData para um servidor. Utilizando HttpRequest não tenho problemas, mas gostaria de poder usar o ACBR. Exemplo usando HttpRequest que já funciona: var http: IWinHttpRequest; szUrl: WideString; Form: TMultipartFormData; FormS: TStringStream; begin FormS := TStringStream.Create(); szUrl := 'https://saojoaodelrei.nfiss.com.br/Cert.php'; http := CoWinHttpRequest.Create; Form := TMultiPartFormData.Create(true); Form.AddField('Nome', 'Andrey'); Form.Stream.SavetoStream(FormS); http.open('POST', szUrl, False); http.SetRequestHeader('Content-Type', Form.MimeTypeHeader); http.send(FormS.DataString); if (http.status = 200) then ShowMessage(http.responseText); Exemplo que eu gostaria que funcionasse uses http := TACBRNfe...; Form: TMultipartFormData; begin http := TAcbrNfe.create(application); Form := TMultiPartFormData.Create(true); Form.AddField('Nome', 'Andrey'); showmessage(http.ssl.HTTPPost(Form, 'http://site.com.br/Endereco.php'));

Consegui utilizando Form1.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Serial; // Serial = O serial obtido anteriormente Obrigado.

Bom dia. Gostaria de saber como faço para manter a persistência do serial do certificado sem precisar ficar pedindo para o usuário escolher toda hora. No primeiro momento vou precisar pedir para o usuário selecionar um certificado do repositório, retornando o serial na variável S que posso gravar no banco de dados, em um .ini, etc. Mas então eu preciso saber qual método eu posso utilizar para informar ao ACBR(...) que da próxima vez ele vai utilizar o certificado com este serial. Desta maneira, na próxima vez que o programa for iniciado, ele já sabe qual será o certificado a ser utilizado. // Inicio o repositório Form1.ACBrNFe1.ssl.LerCertificadosStore; // Retorna o SERIAL do certificado selecionado na string S S := Form1.ACBrNFe1.ssl.SelecionarCertificado; // Realizo uma conexão (ou outras tarefas) showmessage(Form1.ACBrNFe1.ssl.HTTPGet('https://saojoaodelrei.nfiss.com.br/Cert.php')); //DUVIDA: Como atribuir o serial S previamente preenchido ao componente do ACBR? Desde já agradeço.

Boa tarde. Fiz alguns testes com Synapse. Eu já o usava desde 2009, mas achei mais complicado. Acabei fazendo um exemplo usando WinHTTP que me atendeu a princípio. De qualquer maneira agradeço. uses WinHTTP_TLB; var http: IWinHttpRequest; szUrl: WideString; begin szUrl := 'https://saojoaodelrei.nfiss.com.br/Cert.php'; http := CoWinHttpRequest.Create; http.open('GET', szUrl, False); http.send(EmptyParam); if (http.status = 200) then ShowMessage(http.responseText); end; Att

Bom dia. Tenho um servidor PHP rodando em https://saojoaodelrei.nfiss.com.br/Cert.php. Esta URL quando acessada utilizando-se um certificado digital, retorna o CN do certificado reconhecido pelo servidor. Até aí tudo bem. Minha dúvida é referente ao uso do ACBR para poder acessar este endereço. Via TIdHTTP com os devidos IOHandler eu acesso o endereço, mas gostaria de usar o ACBR para conexão para poder usar o A1 ou A3. Preciso de um pseudocódigo que funcione mais ou menos assim: var Componente : TComponente; // Qual usar? Resposta : String (ou TStringStream); Begin Componente := new TComponente(); Componente.URL := 'https://saojoaodelrei.nfiss.com.br/Cert.php'; //Configurar Componente para usar o A1 ou A3 (PFX, etc)... //Li algo sobre ACBRNFE1.Configuracoes.Certificados mas não foi pra frente. Componente.SSL := ACBRNFE1.Configuracoes.SSL; Resposta := Componente.GET(); // Ou Post para enviar arquivos End; Para o problema em questão não estou precisando de integração de nota fiscal, mas apenas que a conexão https utilize o SSL para ser reconhecido no servidor. Alguém poderia me ajudar? Desde já agradeço.