Erro ao compilar demo ACBrECF Firemonkey - Delphi Berlin

[sempredrf]

Bom dia, ao efetuar a compilação do demo ECFTeste para firemonkey no delphi berlin está dando erro na unit ACBrDevice ao efetuar acesso a function Printer

function TACBrDevice.DeduzirTipoPorta(APorta: String): TACBrDeviceType;
var
  UPorta: String;
begin
  UPorta := UpperCase(APorta);

  if APorta = '*' then
    Result := dtRawPrinter   // usará a impressora default
  else if (copy(UPorta, 1, 4) = 'TCP:') then
    Result := dtTCP
  else if (copy(UPorta, 1, 4) = 'RAW:') then
    Result := dtRawPrinter
  else if (RightStr(UPorta,4) = '.TXT') or (copy(UPorta, 1, 5) = 'FILE:') then
    Result := dtFile
  else if (copy(UPorta, 1, 3) = 'COM') or
       {$IFDEF LINUX}(pos('/dev/', APorta) = 1){$ELSE}(copy(APorta,1,4) = '\\.\'){$ENDIF} then
    Result := dtSerial
  else if (pos(UPorta,'USB|DLL') > 0) then
    Result := dtHook
  else if (Printer.Printers.IndexOf(APorta) >= 0) then
    Result := dtRawPrinter
  else
  begin
    if pos(PathDelim, APorta) > 0 then
      Result := dtFile
    else
      Result := dtRawPrinter;
  end;
end;

[dcc32 Error] ACBrDevice.pas(1011): E2029 '[' expected but '.' found
[dcc32 Warning] ACBrDevice.pas(1011): W1023 Comparing signed and unsigned types - widened both operands
[dcc32 Error] ACBrDevice.pas(1223): E2003 Undeclared identifier: 'PrinterIndex'

Gostaria de saber se tem alguém passando por isso.. ou se existe algo que possa fazer pra evitar esse erro...

Grato... 

[Juliomar Marchetti]

Bom dia!

não lembro se foi compatibilizado para firemonkey essa parte dos componentes

[sempredrf]

Ah sim... Entendi...

Grato....

[Daniel Simoes]

Tente modificar no inicio dessa Unit:

  {$ELSEIF DEFINED(FMX)}
     FMX.Printer, WinSpool,        

(adicione a chamada a WinSpool)

[Christyan Fernandes]

Bom dia, estou com o mesmo erro ao compilar meu projeto FMX.

meu repositório está atualizado e eu adicionei a diretiva FMX no projeto.

Como posso proceder?

 

Obs: Estou utilizado o Delphi XE8

Editado 16 Março, 2018 por Huiubor

[Juliomar Marchetti]

1 hora atrás, Huiubor disse:

Bom dia, estou com o mesmo erro ao compilar meu projeto FMX.

meu repositório está atualizado e eu adicionei a diretiva FMX no projeto.

Como posso proceder?

 

Obs: Estou utilizado o Delphi XE8

Bom dia

poderia anexar um mini projeto somente os fontes aqui pra poder efetuar testes?

[Christyan Fernandes]

Bom dia Juliomar,

eu testei no próprio exemplo Firemonkey e ocorreu o mesmo erro.

Eu alterei a Unit AcbrDevice para testar, e o problema está relacionado ao TPrinter.

Vou anexar a unit que alterei. Foram poucas linhas

ACBrDevice.rar

[Daniel Simoes]

Por favor verifique esse tópico: