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]

1 hora atrás, Antonio Gomes disse:

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

19 minutos atrás, edulamy disse:

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

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

[Antonio Gomes]

4 minutos atrás, BigWings disse:

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

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

deixa eu dar um clear up entao.

[edulamy]

1 hora atrás, BigWings disse:

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

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

usei o svn para atualizar.

[BigWings]

2 minutos atrás, edulamy disse:

usei o svn para atualizar.

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?

41 minutos atrás, Antonio Gomes disse:

deixa eu dar um clear up entao.

A mensagem tinha sido pro @edulamy.

[Antonio Gomes]

3 horas atrás, 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.

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]

2 horas atrás, Antonio Gomes disse:

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

Atualize os fontes.