AcbrBase

[Antonio Gomes]

Unit ACBrBase

function THttpHeader.AddHeader(const AHeader, AValue: string): Integer;
var
  I: Integer;
  LinhaHeader: String;
begin
  LinhaHeader := AHeader + ': ' + AValue;
  I := GetHeaderIndex(AHeader);
  if I < 0 then
    Add(LinhaHeader)
  else
    Strings := LinhaHeader;
end;

 

E em unit ACBrWinINetReqResp está acusando result nao usado, realmente, alguem deixou-a com 2 possiveis retornos.

function TACBrWinINetReqResp.InternalOpenRequest: Boolean;
var
  RequestFlags: DWORD;
begin
  Result := inherited InternalOpenRequest;

  if (UseSSL) then
  begin
    RequestFlags := INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_NO_CACHE_WRITE;
    RequestFlags := RequestFlags or INTERNET_FLAG_SECURE;

    if (UseCertificate) then
      RequestFlags := RequestFlags or
                       ( INTERNET_FLAG_IGNORE_CERT_CN_INVALID or
                         INTERNET_FLAG_IGNORE_CERT_DATE_INVALID );
  end
  else
    RequestFlags := INTERNET_SERVICE_HTTP;

  FpRequest := HttpOpenRequest( FpConnection,
                                PChar(Method), PChar(URI),
                                nil, nil, nil, RequestFlags, 0);
  Result:= Assigned(FpRequest);
end;

Editado 6 Abril, 2020 por Antonio Gomes

[edulamy]

Estou com problema na instalação do ACBR:

Compiling package C:\Arquivos\Componentes\D7\acbr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk
"C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\Arquivos\Componentes\D7\acbr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk"
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
C:\Arquivos\Componentes\D7\acbr\Fontes\ACBrDFe\ACBrDFeSSL.pas(201) Error: Undeclared identifier: 'THttpHeader'
C:\Arquivos\Componentes\D7\acbr\Fontes\ACBrDFe\ACBrDFeUtil.pas(82) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrDFe\ACBrDFeException.pas'
Compilation failure
Erro ao compilar o pacote "ACBr_DFeComum.dpk".
Abortando... Ocorreram erros na compilação dos pacotes.

[BigWings]

  Em 06/04/2020 at 18:07, Antonio Gomes disse:

Expandir  

Enviei correção para os warnings, rev. 19600.

  Em 06/04/2020 at 19:07, edulamy disse:

C:\Arquivos\Componentes\D7\acbr\Fontes\ACBrDFe\ACBrDFeSSL.pas(201) Error: Undeclared identifier: 'THttpHeader'

Expandir  

Você provavelmente não atualizou todos os fontes da pasta ACBr.

[Antonio Gomes]

  Em 06/04/2020 at 19:27, BigWings disse:

Enviei correção para os warnings, rev. 19600.

Você provavelmente não atualizou todos os fontes da pasta ACBr.

Expandir  

deixa eu dar um clear up entao.

[edulamy]

  Em 06/04/2020 at 19:27, BigWings disse:

Enviei correção para os warnings, rev. 19600.

Você provavelmente não atualizou todos os fontes da pasta ACBr.

Expandir  

usei o svn para atualizar.

[BigWings]

  Em 06/04/2020 at 20:11, edulamy disse:

usei o svn para atualizar.

Expandir  

Mas atualizou todos os fontes de todas as pastas?

Após atualizar executou o ACBrInstall_Trunk2.exe marcando a opção de remover arquivos antigos?

  Em 06/04/2020 at 19:32, Antonio Gomes disse:

deixa eu dar um clear up entao.

Expandir  

A mensagem tinha sido pro @edulamy.

[Antonio Gomes]

  Em 06/04/2020 at 20:14, BigWings disse:

Mas atualizou todos os fontes de todas as pastas?

Após atualizar executou o ACBrInstall_Trunk2.exe marcando a opção de remover arquivos antigos?

A mensagem tinha sido pro @edulamy.

Expandir  

essa daqui ainda acusa 2 retorno e um inutil: Delphi .rio

 

function TACBrWinINetReqResp.InternalOpenRequest: Boolean;
var
  RequestFlags: DWORD;
begin
  Result := inherited InternalOpenRequest;

  if (UseSSL) then
  begin
    RequestFlags := INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_NO_CACHE_WRITE;
    RequestFlags := RequestFlags or INTERNET_FLAG_SECURE;

    if (UseCertificate) then
      RequestFlags := RequestFlags or
                       ( INTERNET_FLAG_IGNORE_CERT_CN_INVALID or
                         INTERNET_FLAG_IGNORE_CERT_DATE_INVALID );
  end
  else
    RequestFlags := INTERNET_SERVICE_HTTP;

  FpRequest := HttpOpenRequest( FpConnection,
                                PChar(Method), PChar(URI),
                                nil, nil, nil, RequestFlags, 0);
  Result:= Assigned(FpRequest);
end;

[BigWings]

  Em 06/04/2020 at 23:33, Antonio Gomes disse:

essa daqui ainda acusa 2 retorno e um inutil: Delphi .rio

Expandir  

Atualize os fontes.