Ir para conteúdo
  • Cadastre-se

dev botao


Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 1452 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;

image.thumb.png.bd5bea49788490d5476d1944e418b82b.png

Editado por Antonio Gomes
Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution
1 hora atrás, Antonio Gomes disse:

image.thumb.png.bd5bea49788490d5476d1944e418b82b.png

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.

  • Obrigado 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

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;

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1452 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.