www - Conéctate a través de Bluetooth con Delphi XE7 usando una impresora portátil

zebra qln420 manual

Question

Estoy tratando de comunicarme con una impresora Sewoo LK-P32 a través de Bluetooth. Para esto estoy usando Delphi XE7 . Hice algunos ejemplos que vienen con Delphi y no estoy teniendo éxito. Puse la impresora emparejada en la tableta y aún así no puedo imprimir continuamente.

Cuando imprimo algo, tengo que reiniciar la aplicación, para poder imprimir algo nuevamente. Debajo de mis fuentes

¿Alguien podría ayudarme? ¿Apoyo en este tema? Me queda poco tiempo para probar otras tecnologías.

Método que inicia la comunicación con la impresora.

procedure TForm2.ButtonClickStart(Sender: TObject);
var
  Msg, Texto: string;
  I, B: Integer;
  BluetoothAdapter: TBluetoothAdapter;
  ListaDeAparelhosPareados: TBluetoothDeviceList;
  LServices: TBluetoothServiceList;
begin
  try
    Memo1.Lines.Add(''Ponto 1'');
    FBluetoothManager := TBluetoothManager.Current;
    if FBluetoothManager = nil then
      Memo1.Lines.Add(''FBluetoothManager esta nulo'');

    Memo1.Lines.Add(''Ponto 2'');
    BluetoothAdapter := FBluetoothManager.CurrentAdapter;
    if BluetoothAdapter = nil then
    Memo1.Lines.Add(''BluetoothAdapter esta nulo'');

    ListaDeAparelhosPareados := BluetoothAdapter.PairedDevices;
    Memo1.Lines.Add(''Ponto 3'');
    if ListaDeAparelhosPareados = nil then
      Memo1.Lines.Add(''ListaDeAparelhosPareados esta nulo'');

    for I := 0 to ListaDeAparelhosPareados.Count - 1 do
    begin
      LDevice := ListaDeAparelhosPareados[I] as TBluetoothDevice;
      if LDevice.IsPaired then
      begin
        LServices := LDevice.GetServices;
        for B := 0 to LServices.Count - 1 do
        begin
          ServiceGUI := GUIDToString(LServices[B].UUID);
          Guid := LServices[B].UUID;
          ServiceName := LServices[B].Name;
          Memo1.Lines.Add(LServices[B].Name + '' --> '' + ServiceGUI);
          Memo1.GoToTextEnd;
        end;
      end;
    end;
  except
   on E: Exception do
   begin
     Msg := E.Message;
     Memo1.Lines.Add(''Erro ao Conectar na Impressora: '' + Msg);
     Memo1.GoToTextEnd;
   end;
 end;
end;

Método que envía el texto a la impresora.

procedure TForm2.ButtonClickSendText(Sender: TObject);
var
  FSocket: TBluetoothSocket;
  ToSend: TBytes;
  Msg, Texto: String;
begin
  try
    Memo1.Lines.Add(''Aparelho pareado:'' + BoolToStr(LDevice.IsPaired));

    Memo1.Lines.Add(''Dados do Guid:'' + GUIDToString(Guid));
    FSocket := LDevice.CreateClientSocket(Guid, true);
    if FSocket = nil then
    Memo1.Lines.Add(''FSocket nulo'');

    Memo1.Lines.Add(''Criou Bluetooth Cliente.'');
    Memo1.GoToTextEnd;
    if FSocket <> nil then
    begin
      // FSocket.Connect;
      FSocket.Connect;
      Memo1.Lines.Add(''Criou socket cliente com o ServerSocket'');
      Texto := #27 + ''|cA'' + ''Teste'' + #13#10;
      ToSend := TEncoding.UTF8.GetBytes(Texto);
      FSocket.SendData(ToSend);
      Memo1.Lines.Add(''Enviou '' + Texto + '' para a impressora.'');
    end
    else
    begin
      Memo1.Lines.Add(''FSocket nulo.'');
    end;

  except
    on E: Exception do
    begin
      Msg := E.Message;
      Memo1.Lines.Add(''Erro ao Conectar na Impressora: '' + Msg);
      Memo1.GoToTextEnd;
    end;
  end;
end; 

Answer 1

En tu bucle, sigues asignando a lDevice . Si hay un segundo dispositivo no emparejado, entonces el lDevice lo señala. Necesita Exit superior una vez que haya detectado que está emparejado.

Además, personalmente no me gusta plantear excepciones deliberadamente. Si una instancia de clase es nula, entonces debería salir, nolt profundiza en ella ...

Por ejemplo

if FBluetoothManager = nil then
begin
  Memo1.Lines.Add(''FBluetoothManager esta nulo'');
  Exit;
end;

Answer 2

Volví a crear su programa y obtengo el mismo problema, pero cambiar su código, ahora funciona bien para mí.

El problema esta aqui

if FSocket <> nil then
begin
  // FSocket.Connect;
  FSocket.Connect;
  Memo1.Lines.Add(''Criou socket cliente com o ServerSocket'');
  Texto := #27 + ''|cA'' + ''Teste'' + #13#10;
  ToSend := TEncoding.UTF8.GetBytes(Texto);
  FSocket.SendData(ToSend);
  Memo1.Lines.Add(''Enviou '' + Texto + '' para a impressora.'');
end

Primero, recomiendo agregar Fsocket como propiedad privada y crear SOLO UN objeto fsocket. Por lo tanto, su código cambiará a

if (Assigned(LDevice)) And (Assigned(FSocket))
then Begin
     if Not FSocket.Connected
     then FSocket.Connect
     End
Else Begin
     FSocket := LDevice.CreateClientSocket(Guid, True);
     Memo1.Lines.Add(''Device Socked created to ''+LDevice.DeviceName);
     FSocket.Connect;
     End;

Después de conectarse, puede llamar a un TTimer para enviar lo que desea, o crear un método para verificar si Fsocket está conectado.

if Assigned(FSocket)
then Begin
     if FSocket.Connected
     then Begin
          Texto := #27 + ''|cA'' + ''Teste'' + #13#10;
          ToSend := TEncoding.UTF8.GetBytes(Texto);
          FSocket.SendData(ToSend);

          Sleep(100);
          End;
     End;

Además, puede agregar una suspensión entre 2 comandos, para asegurarse de que la impresora reciba y ejecute los datos.

En mi caso utilicé un módulo Bluetooth hc-06 de ancho Arduino.