Conectando Impresora por Bluetooth = Error Socket

[jhonalone]

Bueno.

Se me olvidaba deciros, que al compilar da un mensaje de error que no sé por qué, pero que no afecta al funcionamiento de la apk. Dice "Error: Field Form1.Impresora does not have a corresponding component. Remove the declaration?"
No hace falta que os diga que debéis responder "No"

Además, podéis quitar el componente "BlueToothLE1", ya que lo puse para hacer unas pruebas, pero funciona exactamente igual sin él.

Saludos de nuevo.

[Neftali [Germán.Estévez]]

Gracias por la explicación y el ejemplo.

[[AgustinOrtu]]

Empezado por jhonalone

Bueno.

Se me olvidaba deciros, que al compilar da un mensaje de error que no sé por qué, pero que no afecta al funcionamiento de la apk. Dice "Error: Field Form1.Impresora does not have a corresponding component. Remove the declaration?"
No hace falta que os diga que debéis responder "No"

Además, podéis quitar el componente "BlueToothLE1", ya que lo puse para hacer unas pruebas, pero funciona exactamente igual sin él.

Saludos de nuevo.

No debería suceder lo que describes. Eso significa que hay algún problema de sincronización entre el .pas y el .dfm (no he descargado el proyecto)

Por lo general pasa si se editan a mano algunos archivos y se eliminan referencias; también puede pasar el algún copia-pega o deshacer que falla. Lo que podés hacer para solucionarlo es, seleccionar el componente impresora, hacerle un cortar (control + x) y pegarlo: al insertar el componente nuevamente, Delphi va a volver a generar las referencias necesarias.

Te lo digo porque es como que el form no conoce al componente, entonces si tenés configurada algunas propiedades y/o eventos en diseño te podés llegar a encontrar con problemas raros en tiempo de ejecución

Si lo que propongo arriba no lo soluciona yo reconstruiría el proyecto entero, antes de que se haga más grande

[jhonalone]

Gracias, Agustín, por tu interés.

No me había preocupado por el tema, porque no me daba error en tiempo de ejecución. Y porque este proyecto era sólo para conectar con la impresora por Bluetooth.
Pero ahora he intentado resolverlo. No ha funcionado corta/pega.
Pero he visto que ¡SOY UN ANIMAL...! Tenía declarada la variable "Impresora : TBluetoothDevice;" ¡por encima de la directiva private!.

Bueno, a lo que vamos.
¡He conseguido escribir en la impresora las Ñs y los acentos.!.
Resulta que los códigos de Escape para manipular la impresora deben ir codificados en ASCII, el juego de caracteres debe ser WPC1252(Latin-1) y el texto enviado a la impresora debe ir codificado en Unicode. Al menos en mi impresora...

Dejo las modificaciones en el código del proyecto por si interesan a alguien.

Código Delphi [-]
if FSocket.Connected
     then Begin
          Texto := #27 + #64;
          BytesEnviados := TEncoding.ASCII.GetBytes(Texto);
          FSocket.SendData(BytesEnviados);
          Texto := #27 + 't' + #16; // Selecciona juego de caracteres WPC1252(Latin-1)
          BytesEnviados := TEncoding.ASCII.GetBytes(Texto);
          FSocket.SendData(BytesEnviados);
          Texto := #27 + '!' +#0; //  Tamaño normal de la fuente
          BytesEnviados := TEncoding.ASCII.GetBytes(Texto);
          FSocket.SendData(BytesEnviados);
          Texto := #27 + 'Hola mundo con ñ y Ñ,  hola España CAÑÍ' + #10; // Envia el escrito y alimenta una línea
          // Texto := #27 +Edit1.Text + #10; // Envia el escrito y alimenta una línea
          BytesEnviados := TEncoding.Unicode.GetBytes(Texto);
          FSocket.SendData(BytesEnviados);

          Sleep(200);
          End;

Saludos a todos.