Vincular TMultipartFormData ao http.HTTPPost

[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'));

 

[TiagoTecchio]

Boa tarde,

Qual a mensagem de erro?

Precisa detalhar melhor.

As DLLs OpenSSL estão atualizadas? A URL em "/Endereco.php" suporta o formato que você está tentando postar?

Se usar o synapse diretamente funciona?