Acbr Delphi Berlin 10.1

[DSilva]

Ola, amigos to precisando de uma ajudinha, apos instalar todos os components do Acbr pelo instalador no Delphi berlin 10.1

ao compilar a minha aplicação, esta dando um erro da Unit ACBrD5, quando removo da minha uses ai compila, porem tenho umas function que esta la, e uso, sabem o porque disso?

agradeço a ajuda.

obrigado.

[Juliomar Marchetti]

Boa tarde

não lembro de ter essa unit ainda no trunk2!

 

[Daniel Simoes]

Você deve ter algum arquivo ACBr.inc, no SourcePath, que está muito antigo, e não é o utilizado pelo projeto...

Essa Unit somente seria compilada se o Delphi for inferior a D6... Veja em ACBrUti.pas

    {$IfDef COMPILER6_UP} ,StrUtils, DateUtils {$Else} ,ACBrD5, FileCtrl {$EndIf}  

 

[DSilva]

Opa, Daniel Simoes, obrigado pelo retorno.

Agora quando estou compilando meu projeto esta dando o seguinte erro em anexo img. 

o que devo fazer ?

obrigado.

[André Ferreira de Moraes]

A unit ACBrD5 só é pra ser usada para quem utiliza Delphi menor q a versão 6, ou seja, esta unit não é compatível com Delphi Berlim.

[Juliomar Marchetti]

Acho que seu problema pode estar em ter em algum lugar as units citadas acimas!

veja se na pasta de seu projeto ou em outro lugar não esteja usando.

[Daniel Simoes]

Provavelmente existe um ACBr.inc antigo, nos Paths acessados pelo seu Delphi

[DSilva]

Blz, eu ja procurei em todo meu pc, so tem na pasta dos componentes do ACbr.

[Daniel Simoes]

Verifique se alguma Unit do seu sistema está invocando a ACBrD5.pas...

Se os fontes do ACBr estão atualizados corretamente, e o ACBr.inc está correto, então os fontes do ACBr irão ignorar a ACBrD5.pas

[DSilva]

Blz, realmente tinha o ACBrD5 em algusn dos meu fontes, removi da uses, porem ao compilar meu projeto apareceu erro nessa funçao

                         Fim := IncSecond(now,3);
                         repeat
                             Sleep(100);
                             Application.ProcessMessages;
                         until (now > Fim);
nem lembrava que eu tava utilizando, o que devo fazer ? existe outra forma de usar ?

[EMBarbosa]

Que função é essa? O que ela faz?

[Daniel Simoes]

IncSecond, no Lazarus, pertence a DateUtils.pas

[DSilva]

componente do tef

procedure TForm1.ACBrTEFD1ExibeMsg(Operacao : TACBrTEFDOperacaoMensagem;
   Mensagem : String; var AModalResult : TModalResult);
var
   Fim : TDateTime;
   OldMensagem : String;
begin
  StatusBar1.Panels[1].Text := '' ;
  StatusBar1.Panels[2].Text := '' ;

  case Operacao of

    opmOK :
       AModalResult := MessageDlg( Mensagem, mtInformation, [mbOK], 0);

    opmYesNo :
       AModalResult := MessageDlg( Mensagem, mtConfirmation, [mbYes,mbNo], 0);

    opmExibirMsgOperador, opmRemoverMsgOperador :
         lMensagemOperador.Caption := Mensagem ;

    opmExibirMsgCliente, opmRemoverMsgCliente :
         lMensagemCliente.Caption := Mensagem ;

    opmDestaqueVia :
       begin
         OldMensagem := lMensagemOperador.Caption ;
         try
            lMensagemOperador.Caption := Mensagem ;
            pMensagemOperador.Visible := True ;
            pMensagem.Visible         := True ;

            { Aguardando 3 segundos }
            Fim := IncSecond( now, 3)  ;
            repeat
               sleep(200) ;
               lMensagemOperador.Caption := Mensagem + ' ' + IntToStr(SecondsBetween(Fim,now));
               Application.ProcessMessages;
            until (now > Fim) ;

         finally
            lMensagemOperador.Caption := OldMensagem ;
         end;
       end;
  end;

  pMensagemOperador.Visible := (lMensagemOperador.Caption <> '') ;
  pMensagemCliente.Visible  := (lMensagemCliente.Caption <> '') ;

  pMensagem.Visible := pMensagemOperador.Visible or pMensagemCliente.Visible;
  Application.ProcessMessages;
end;

 

[EMBarbosa]

3 minutos atrás, Daniel Simoes disse:

IncSecond, no Lazarus, pertence a DateUtils.pas

No Delphi também é isso. Basta o DSilva adicionar na uses a unit DateUtils.

[DSilva]

Sim, vc tinha razao, agora ta resolvido. compilou era isso ai. 

obrigado por me ajudarem 

abraço a todos.