Otávio Brito

Será uma satisfação.

Como foi relatado na postagem de 2022 por nossa amigo Daniel Simões, o firemonkey continua sem reconhecer notações de Rede do Windows e/ou compartilhamentos criados no S.O. Windows. No momento a solução será comprar uma interface de rede pra impressora e usar a porta TCP no ACBrETQ. Porém, ainda não desisti e desejo ver funcionando o compartilhamento de impressoras do Windows no ACbrEtQ dentro do Android/Firemonkey

Encontrei uma postagem de 2022 que trata também sobre este tema, vejamos: https://www.projetoacbr.com.br/forum/topic/67132-porta-não-definida-firemonkey/#comment-437237

Peço desculpas então. Jamais tive essa intenção. Só quero contribuir e aprender com os irmãos da T.I. aqui do ACbr.

ATÉ O MOMENTO NÃO OBTIVE ÊXITO NA IMPRESSÃO DE ETIQUETAS ATRAVÉS DE APP ANDROID+ACBrETQ UTILIZANDO PORTA DE COMPARTILHAMENTO DE IMPRESORA USB ('\\192.168.0.112\ELGIN L42PRO'). ACBr interpreta assim: '\\\\192.168.0.112\\ELGIN L42PRO' e reporta: 'Porta não definida'.

Ainda não.

Descobri no debug do app android que o ACBrETQ está duplicando as barras invertidas do compartilhamento. envio assim: '\\192.168.0.112\ELGIN L42pro ' e ele interpreta assim: '\\\\192.168.0.112\\ELGIN L42pro'

Vi implementado pra Bluetooth, e pra acesso de rede local seria no AndroidManifest? Seria possível postar um exemplo dessa permissão necessária?

Tem algum exemplo no ACBr ?

Estou tentando imprimir etiquetas numa impressora ELGIN compartilhada (\\192.168.0.112\ELGIN L42pro) sem sucesso na aplicação android. Quando compilo no Win vai de boa agora no android reporta: 'Porta não definida'. with dm.ACBrETQ do begin Desativar; DPI := dpi203; Modelo := etqPpla; Porta := '\\192.168.0.112\ELGIN L42pro';//etqPorta.Text; Device.SendBytesCount := 1024000; Device.SendBytesInterval := 1; LimparMemoria := False; Temperatura := 10; Velocidade := -1; BackFeed := bfNone; Unidade := etqMilimetros; //etqDecimoDeMilimetros; MargemEsquerda := 10; Origem := ogNone; PaginaDeCodigo := pce850; Ativar; //carregando produtos dm.Qintegra.close; dm.qintegra.sql.clear; dm.qintegra.sql.Add('select * from cl00005 order by produto'); dm.qintegra.open; dm.qintegra.FIRST; WHILE NOT dm.qintegra.EOF DO BEGIN DefinirCor(0, 0, 0, 0); //clBlue ImprimirTexto(orNormal, 2, 2, 2, 3, 3, copy(dm.qintegra.FIELDBYNAME('PRODUTO').ASSTRING, 1, 30), 0, True); ImprimirTexto(orNormal, 2, 2, 1, 8, 3, dm.qintegra.FIELDBYNAME('CODPRODUTO').ASSTRING); ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, dm.qintegra.FIELDBYNAME('grade').ASSTRING, 10, becSIM); ImprimirCaixa(10,32,56,13,1,1); ImprimirTexto(orNormal, 3, 3, 2, 16, 35, 'R$'); ImprimirTexto(orNormal, 3, 4, 4, 12, 50, FORMATFLOAT('###,###,##0.00', dm.qintegra.FIELDBYNAME('VALOR').ASFLOAT)); Imprimir(StrToIntDef(dm.qintegra.FIELDBYNAME('qtde').ASSTRING, 1), 0); dm.qintegra.NEXT; END; end;