23 replies to this topic

[genriquez]

En este momento estamos trabajando con bluetooth para android como puerto Serial, es bastante fácil controlar dispositivos con Bluetooth, hemos diseñado tanto el hardware como el software.

Les comparto el componente y un ejemplo para la transmisión de datos vía bluetooth como puerto serial.


TBLUEPORT COMPONENT

El TBluePort es un componente que permite la conexión de manera sencilla desde Android a dispositivos Bluetooth en configuración de puerto serial.  Encapsula el API de Android utilizando la librería Androidapi.JNI.BluetoothAdapter publicada por  RedTitan Technology 2013, http://www.delphigea...0/10162/go.aspx

Propiedades
IsEnabled: Campo Booleano que permite determinar si el dispositivo Bluetooth está activo en el sistema, es una propiedad de solo lectura.
Ej.  If BluePort1.IsEnabled then…

PortList: Campo de tipo TStringList, retorna una lista de los dispositivos Bluetooth disponibles, en formato nombre=MAC,  cada elemento de esta lista se puede utilizar como información para asignar el puerto.

delphi

Ej.
procedure TForm4.FormCreate(Sender: TObject);
begin
   If BluePort1.IsEnabled then
      ListBox1.Items.text := BluePort1.PortList.text;
end;

Active: Permite conectar o desconectar del puerto previamente seleccionado.
Ej.  BluePort1.Active := True;
Ej.  If BluePort1.Active then…

Port: Especifica el nombre del puerto y la dirección MAC correspondiente al dispositivo bluetooth, el campo es de tipo texto y debe tener la forma  nombrepuerto=MACAddress, en su defecto puede contener solamente la MAC.
Ej.  BluePort1.Port := ‘BOLUTEC=00:15:FF:F3:PE:38’

SleepTime: Corresponde al tiempo en milisegundos que espera la multitarea de lectura antes de revisar el Puerto nuevamente.




Eventos:
OnAfterClose: Este evento responde a la acción de desconectar el puerto asignando False a la propiedad Active,  no reconoce la desconexión del puerto por perdida de la conectividad con el dispositivo bluetooth asociado.
Ej.

delphi

procedure TForm4.BluePort1AfterClose(Sender: TObject);
begin
   Toast('se ha desconectado de ' + BluePort1.Port + ')');
   BtnConnect.Enabled := Not BluePort1.Active;
   BtnDisconnect.Enabled := BluePort1.Active;
end;

OnAferOpen: El evento se dispara al realizar la conexión y únicamente si la conexión fue exitosa, en este caso la propiedad Active ya se encuentra en True.
Ej.

delphi

procedure TForm4.BluePort1AfterOpen(Sender: TObject);
begin
   Toast('se ha conectado a ' + BluePort1.Port + ')');
   BtnConnect.Enabled := Not BluePort1.Active;
   BtnDisconnect.Enabled := BluePort1.Active;
 
end;

OnBeforeClose: Evento que responde a la orden de desconectarse,  cambiando la propiedad Active a False.
Ej.

delphi

procedure TForm4.BluePort1BeforeClose(Sender: TObject);
begin
   Toast('se está desconectado de ' + BluePort1.Port + ')');
end;

OnBeforeOpen: Evento que responde a la orden de conectarse, cambiando la propiedad Active a True.
Ej.

delphi

procedure TForm4.BluePort1BeforeOpen(Sender: TObject);
begin
   Toast('Conectando a ' + BluePort1.Port + ')');
end;

OnDataRx: Existe una multitarea que revisa el stream de entrada del puerto en Android, en caso de encontrarse información, la almacena en un Array of Bytes de tipo TBytes o TArray<System.Byte>.
Ej.

delphi

procedure TForm4.BluePort1DataRx(Data: TArray<System.Byte>; len: Integer);
Var
   S: String;
   I: Integer;
Begin
   //Convierte el array en un string
 
   S := '';
   For I := 0 to len - 1 do
   begin
      S := S + Chr(Data[I]);
   end;
 
   //Actualiza los componentes visuales.
 
   tThread.Queue(Nil,
      procedure
      begin
         Try
            Memo1.Lines.BeginUpdate;
            Memo1.Lines.text := Memo1.Lines.text + S;
         Finally
            Memo1.Lines.EndUpdate
         End;
      end);
 
end;

OnDataTx: El evento se ejecuta justo antes de enviar la información al puerto.

Ej.

delphi

procedure TForm4.BluePort1DataTx(Data: TArray<System.Byte>; len: Integer);
Var
   S: String;
   I: Integer;
begin
   S := '';
   For I := 0 to len - 1 do
   begin
      S := S + Chr(Data[I]);
   end;
 
   tThread.Queue(Nil,
      procedure
      begin
         Try
            Memo1.Lines.BeginUpdate;
            Memo1.Lines.text := Memo1.Lines.text + S;
         Finally
            Memo1.Lines.EndUpdate
         End;
      end);
end;

Métodos

Procedure Write(Value: String): Permite enviar al Puerto un string,  el componente convierte cada carácter en un byte, asignándolo a una posición de un byte en el buffer de envío, por lo tanto no es necesario declarar el string de ningún tipo particular.
Ej. Blueport1.Write(‘Este es el texto a envíar’);

Procedure Write(Value: Integer):  Permite enviar un entero o byte por el Puerto serial bluetooth.
Ej. BluePort1.Write(65);

Procedure Write(Value: TBytes): Permite enviar un array de bytes al Puerto.
Ej.

delphi

BluePort1.Write(TBytes.Create($A, $45, $FF, $10));

Procedure Write(Stream: TStream):  Permite enviar el contenido de un stream directamente al puerto

delphi

procedure TForm4.BtnEnviarClick(Sender: TObject);
Var
  St : TMemoryStream;
begin
   St := TMemoryStream.Create;
   St.LoadFromFile(FileName);
   St.Position := 0;
   BluePort1.Write(St);              
end;

Espero sus comentarios y mejoras al mismo.

saludos.

[poliburro]

Gracias por compartir la información

[ELKurgan]

Gracias por el aporte

[Wilson]

Gracias Gustavo, muy buen aporte. 

[Jhonny]

¡Genial aporte!, me pregunto si es posible generar una "conexión a un dispositivo que ya está siendo usado", es decir, algo así como cuando uno conecta al celular un audífono Bluetooth y recibe una llamada... digamos que el usuario quiera grabar todas las llamadas recibidas al dichoso audífono, pero no las demás o que para alguna eventual aplicabilidad necesitemos saber que botones presiona en el audífono mientras habla.

¿Es posible hacerlo?

[genriquez]

Buena pregunta Jhonny, trataré de buscar información al respecto.

Saludos.

[FerPatto]

Un gran aporte.... felicidades...
utilizo el componente para imprimir un reporte en una impresora portatil
imprime todo bien excepto cuando se imprime el codigo de barras del reporte q esta en una bmp puedes darme una mano para poder solucionar ese punto????

[genriquez]

Hola

Has intentado hacer la impresión desde Windows con un componente de puerto serial normal como el comport?  si no te funciona desde allí es porque la impresora está esperando algunos comandos que le indiquen que va a recibir un bitmap y no un texto.

Podrías mostrar algo del código con el cual estas imprimiendo.

Saludos.

[FerPatto]

Muchas gracias por la respuesta, lo que hago es lo siguiente

1ro. Utilizo una impresora portatil SP-RMT9 China
2do utilizo el componente BluePort1 (antes utilizaba la libreria Android.JNI...)
3ro. mi codigo fuente al enviar a imprimir es el siguiente.

delphi

//esta parte funciona perfectamente envio el texto del comprobante...
   St := TMemoryStream.Create;
   St.LoadFromFile('/sdcard/Download/comprobante.txt');
   St.Position := 0;
   BluePort1.Write(St);
   St.Free;
//a continuacion simplemente cambie el archivo a enviar el codigo lo genera el app para cada movimiento
   St := TMemoryStream.Create;
   St.LoadFromFile('/sdcard/Download/cdbrr.bmp');
   St.Position := 0;
   BluePort1.Write(St);
   St.Free;
//la impresora recibe la orden ... imprime 5 caracteres basura y saca un buen tanto de papel en blanco.....

[genriquez]

Hola

Si, allí se ve el problema, estas imprimiendo un texto igual que imprimir un gráfico y no puede ser así, la impresora no sabe como imprimir un gráfico, a menos que se lo indiques de alguna manera.

No se como funciona la impresora que mencionas, pero debes buscar el manual y ver como se imprimen gráficos en ella,  en Windows es fácil, ya que existen los Drivers, pero aquí estas bajando de nivel y todo lo tienes que indicar tu.

Debe existir una secuencia de comandos que le indiquen a la impresora que vas con un bitmap.  tendrías que buscar el manual técnico de la impresora o preguntarle directamente a los fabricantes.

Saludos.

[look]

hola, esta muy interesante el componente, sinembargo he probado la demos que biene y me lanza el siguiente mensaje:

No fue posible conectarse al servicio! java.io.IOException: read failed, socket might closed or timeout, read ret: -1.

que podra ser?....
Saludos!

[genriquez]

Hola, eso no me ha pasado hasta ahora, ese tipo de error, pero es algo común no tener activo el BlueTooth, así que te recomiendo que revises si está activo y si no existe alguna otra aplicación utilizándolo.  (recomendación: reinicia el dispositivo y verifica que esté activo el bluetooth).

retroalimentanos por favor si encuentras la solución

Saludos.

[look]

Hola, eso no me ha pasado hasta ahora, ese tipo de error, pero es algo común no tener activo el BlueTooth, así que te recomiendo que revises si está activo y si no existe alguna otra aplicación utilizándolo.  (recomendación: reinicia el dispositivo y verifica que esté activo el bluetooth).

retroalimentanos por favor si encuentras la solución

Saludos.

Hola , despues de reiniciar el telefono ahora me salta este error al seleccionar un dispositivo.

No fue posible conectarse al servicio! Java.io.IOException: Service discovery failed.

No se porque me lo da, el bluetooth esta encendido.

Saludos!

[genriquez]

Hola, definitivamente el Bluetooth no está encendido o el api del dispositivo no es compatible con el componente.  (eso creo), alguien nos puede ayudar con esto? 

Que pena no poder ayudarte más, te recomiendo que pruebes en otro dispositivo, a ver si es la versión del Sistema operativo o del hardware que no es compatible.

Saludos.

[look]

Hola, definitivamente el Bluetooth no está encendido o el api del dispositivo no es compatible con el componente.  (eso creo), alguien nos puede ayudar con esto? 

Que pena no poder ayudarte más, te recomiendo que pruebes en otro dispositivo, a ver si es la versión del Sistema operativo o del hardware que no es compatible.

Saludos.

¿Podria afertar la api del android?, por cierto lo he probado en el delphi xe6, ¿Podria haber alguna incompatibilidad ?
pd: la unit toast no esta incluida , en la demo es utilizada y tube que buscar una por alli.

Saludos!

[jgarcias2]

Hola, 

 

donde esta el componente para descargar y probarlo ??

 

Gracias y saludos

[anubis]

Hola, 

 

donde esta el componente para descargar y probarlo ??

 

Gracias y saludos

 

En el primer mensaje está el enlace al componente ¿No?

 

un saludo

[jgarcias2]

Ok, gracias, si pero no funciona el link. Ya me lo ha pasado genriquez. El problema que trato de solucionar ahora es el siguiente :

 

[DCC Error] Android.JNI.Toast.pas(79): E2003 Undeclared identifier: 'SharedActivityContext'

[DCC Error] Android.JNI.Toast.pas(79): E2003 Undeclared identifier: 'StrToJCharSequence'

 

Y la verdad es que no se que hacer ya ..., os ha pasado a alguien esto ?

 

Postdata: estoy con delphi xe7, no se si será por eso ...

 

Gracias por su ayuda a genriquez 

[jgarcias2]

Queria compartir con vosotros que ya he encontrado la solucion, como estoy usando la version xe 7, a partir de la version xe6 se tiene que poner 

 

 Androidapi.Helpers

 

en uses, por que es la libreria donde se declaran las variables que me fallaban.

 

Saludos

[poliburro]

gracias por compartir la solución