Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

 

 

tp_550_logo.png Homologação ACBr Apresenta:
Nova  Impressora
TP-550

botao_saibamais.png

 

 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

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

Edited by Antonio Gomes

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites
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.

  • Thanks 1

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

Projeto ACBr

 

 

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
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

 

 

Share this post


Link to post
Share on other 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;

Share this post


Link to post
Share on other sites
2 horas atrás, Antonio Gomes disse:

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

Atualize os fontes.

  • Like 1

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

Projeto ACBr

 

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...