Erro AcbrPosPrinter - Porta bluetooth

[rodrigofernandes]

Estou utilizando Delphi Berlin.

Para fazer uma simulação estou usando o projeto de exemplo do AcbrPosPrinter.

No projeto tem o seguinte código para localizar portas de impressão:

  cbxPorta.Items.Clear;
  ACBrPosPrinter1.Device.AcharPortasSeriais( cbxPorta.Items );

Fiz a seguinte alteração para tentar localizar portas via bluetooth:

  cbxPorta.Items.Clear;
  ACBrPosPrinter1.Device.AcharPortasBlueTooth( cbxPorta.Items );

Ao executar o exemplo ocorre o erro abaixo:

 

Aguardo uma ajuda para solução deste desafio, fazendo o mesmo neste em outros projetos ocorre o mesmo erro.

 

Obrigado

 

 

 

[Daniel Simoes]

Qual o Sistema Operacional ?

Vá com o Debug e veja o ponto exato do problema...

[rodrigofernandes]

Windows Server 2012

o Erro esta na linha

  ACBrPosPrinter1.Device.AcharPortasBlueTooth( cbxPorta.Items );

 

[Daniel Simoes]

Claro que sim... mas entre nela com o F7... e vá mais a fundo..

[rodrigofernandes]

[Daniel Simoes]

Não compreendi sua msg, em qual linha, da imagem, ocorreu o problema ?

[rodrigofernandes]

  for DevBT in fsBluetooth.PairedDevices do
    if TodasPortas or IsPrinterDevice(DevBT) then
      AStringList.Add('BTH:'+DevBT.DeviceName {+ ' - ' + IntToStr(DevBT.ClassDevice)});

 

Erro no for

[Daniel Simoes]

em qual das 3 linhas ?

[rodrigofernandes]

Na primeira no for 

[Daniel Simoes]

3 horas atrás, rodrigofernandes disse:

  for DevBT in fsBluetooth.PairedDevices do

Isso pode indicar que não existem nenhum dispositivo pareado...

tente esse ajuste:

procedure TACBrDeviceBlueTooth.AcharPortasBlueTooth(const AStringList: TStrings;
  TodasPortas: Boolean);
var
  DevBT: TBluetoothDevice;
begin
  GravaLog('AcharPortasBlueTooth');
  AtivarBlueTooth;
  if (fsBluetooth.PairedDevices <> nil) then
    for DevBT in fsBluetooth.PairedDevices do
      if TodasPortas or IsPrinterDevice(DevBT) then
        AStringList.Add('BTH:'+DevBT.DeviceName {+ ' - ' + IntToStr(DevBT.ClassDevice)});
end;

 

[rodrigofernandes]

Ele da a mensagem de erro na linha

  if (fsBluetooth.PairedDevices <> nil) then

[Daniel Simoes]

Então talvez o Suporte a Bluetooth para Windows 32 Não funcione na sua  versão de Delphi 

[rodrigofernandes]

Estou usando o Delphi Berlin 10.1.

Tem alguma outra sugestão  ? Você tentou utilizar o processo em outra versão do Delphi ?

[Daniel Simoes]

Eu uso sem problemas em Delphi Rio 10.3.3. Windows e Android 

 

[Juliomar Marchetti]

1 hora atrás, rodrigofernandes disse:

Estou usando o Delphi Berlin 10.1.

Tem alguma outra sugestão  ? Você tentou utilizar o processo em outra versão do Delphi ?

Não suporta legal. eu acho que na versão Rio ele veio melhorado