TBlueport, componente de conexión Android Bluetooth en Delphi XE5

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.delphigear.cn/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.

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.

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.

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.

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.

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.

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.

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. BluePort1.Write(TBytes.Create($A, $45, $FF, $10));

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

procedure TForm4.BtnEnviarClick(Sender: TObject);

Var

  St : TMemoryStream;

begin

   St := TMemoryStream.Create;

   St.LoadFromFile(FileName);

   St.Position := 0;

   BluePort1.Write(St);             

end;

Pueden descargar el componente desde

http://www.delphiaccess.com/forum/android/componente-de-puerto-serial-delphi-xe5-en-android/msg84173

Espero sus comentarios y mejoras del componente.

Si realizan proyectos de este tipo, favor enviar videos del uso del Bluetooth o documentos.

Gracias.

Exitoso Proceso de Certificacion en Embarcadero Developer

Hola a todos

Quiero compartir con ustedes el resultado de nuestro proceso de certificación en "Delphi Developer Certification", con los instructores del SENA (Servicio Nacional de Aprendizaje).

En este proceso intervinieron instructores del SENA quienes participaron activamente en seminarios presenciales en la Ciudad de Bogotá, Colombia y en seminarios virtuales, donde afianzaron sus conocimientos sobre la herramienta en los temas que hemos llamado los cimientos de la programación profesional.

En esta primera sesión de certificación participaron 20 instructores de los cuales todos superaron la prueba, demostrando además de los conocimientos básicos del lenguaje, las mejores prácticas de desarrollo de software profesional en RadStudio.

Esta certificación se logra gracias al convenio entre ITTools Distribuidor exclusivo para Colombia y el SENA, quienes definieron un proyecto para la innovación en sus programas de Técnicos y Tecnólogos en sistemas.

Quiero agradecer a todos los instructores por su esfuerzo y dedicación, en especial en estas últimas semanas del proceso, al SENA y a ITTools por su preocupación y apoyo logístico, técnico y profesional.

Felicitaciones a todos.

 

 

Conexión a bases de datos vía Internet

Si tienes un programa de escritorio con conexión a bases de datos Sql, es probable que en algún momento pienses en conectarlo remotamente al servidor vía internet,  ya sea porque tienes sedes en lugares geográficos diferentes, porque viajas frecuentemente o muchos otros aspectos que pueden requerir de esta infraestructura.

Esta situación solo ocurre con los programas de escritorio, ya que las Aplicaciones WEB están diseñadas para trabajar remotamente y pueden ejecutarse desde el navegador en cualquier ubicación geográfica sin problemas.

Si desean conocer las ventajas o desventajas de las Aplicaciones Nativas Vs. las Aplicaciones Web pueden revisar la siguiente entrada en este foro.

http://hyperbasesuite.blogspot.com/2013/11/aplicaciones-web-o-aplicaciones-sobre.html

 

Para conectarse a una base de datos remota vía Internet, hay 4 opciones válidas en este momento: 

1. Escritorio Remoto:- Utilizar software de escritorio remoto,  prácticamente con este software no es una conexión a base de datos remota vía Internet, pero la incluyo en el listado ya que finalmente cumple el mismo objetivo,  la gran ventaja de este modelo es la facilidad de uso, no hay que aprender nada nuevo ni realizar cambios en las aplicaciones, solo es instalar el servidor de escritorio y dar accesos a los clientes.

Desventajas hay muchas, partiendo del hecho de la seguridad ya que debes dar permisos a la sesión de Windows completamente y de allí partir a controlar los accesos a las aplicaciones, esto supone un desgaste en administración de usuarios.

Este modelo consume gran ancho de banda, porque debe transmitir el escritorio completo en forma de imágenes,  así que lo que no consume en el traslado de de datos si lo consume en el traslado de imágenes. 

 

2. Virtual Private Network:- La segunda opción es crear una VPN (Virtual Private Network) existen programas para eso y es relativamente fácil, la ventaja es que extiende la red local sobre internet, es segura y muy simple de manejar. la desventaja es que requiere instalar software de VPN en cada cliente y cuando se conecta la VPN  asigna una IP nueva al equipo dado que prácticamente cambia de red. 

Otra gran desventaja es que consume mucho ancho de banda, por lo cual es necesario tener buenos canales de comunicación, aún así no es recomendable tener muchos usuarios en este modelo, creo que más de 10 o 20 usuarios según el ancho de banda puede ser el límite en conexiones normales de internet. 

 

3. Conexión Directa a la Base de Datos:- El tercer modelo definitivamente no lo recomiendo y es solo abrir el puerto y el IP de tu base de datos a internet configurando el FireWall, primero por el aspecto de seguridad y segundo porque las bases de datos están diseñadas para trabajo en conexiones estables, así que si la conexión se cae, tu aplicación se cae inmediatamente. afectando no solo el cliente, sino también el rendimiento del servidor. ¿Que si se puede hacer?, si se puede, que lo debas hacer?, definitivamente no. 

4. Uso de un MiddleWare:- La cuarta opción y la más usada y recomendada en este momento para redes como internet, donde hay límites de la velocidad de acceso y la conexión no es estable (Se puede caer en cualquier momento), es el uso de un software mediador llamado genéricamente Middleware.

El middleware permite crear aplicaciones en 3 capas y 3 niveles, este software es quien maneja la seguridad, la conectividad y la persistencia de los datos. 

Hay varias tecnologías para hacer esto, en Delphi se conoce como DataSnap anteriormente Midas, en Microsoft se denomina tecnología Com, en Java se utiliza JBoss o Tomcat. Según la tecnología que se quiera usar se puede utilizar navegador o conexiones directas sin el navegador,

Entre las tecnologías de conexión directa encontramos el DataSnap de Embarcadero y la tecnología Com de Microsoft. Con navegadores WEB igualmente se puede implementar las 3 capas utilizando tecnologías WebServices o Rest. 

Si estás trabajando en Delphi te recomiendo la tecnología DataSnap para crear aplicaciones de este tipo, o utilizar el HyperBase server, el cual ya tiene las opciones implementadas y es solo cuestión de usarlo. 

http://www.hyper-soft.co

Paso de parámetros AnsiString y UnicodeString en DLLs

Una de mis formas preferidas de implementar funcionalidades nuevas en aplicaciones legadas (Versiones de Delphi < 2009) es el uso de los DLLs,  aunque en general prefiero no usar los Dlls para evitar problemas de versiones, es la única manera de hacerlo en algunos casos.

El paso de parámetros no es una tarea sencilla entre la aplicación y el DLL, de hecho es el mayor foco de errores después del manejo de las multitareas entre los desarrolladores principiantes en este tema.

Hoy hablaremos de la forma de enviar parámetros de tipo String entre la aplicación y una DLL, pero agregaremos un nivel mayor de complejidad al realizarlo también entre versiones diferentes de Delphi que ya han redefinido el String por una versión Multibyte  denominada UnicodeString.

Primero haremos una breve descripción de los tipos de String para que puedan entender la complejidad que esto representa aunque no ahondaremos en el tema, dado que no es el eje del presente artículo.

A partir de Delphi 2009 se realizó un cambio importante en el lenguaje, que a la fecha es la razón principal por la cual muchos desarrolladores no han migrado sus aplicaciones a las versiones recientes de Delphi.  La definición del String como variable pasó de ser un AnsiString a un UnicodeString.

En UnicodeString  cada carácter está representado por dos bytes, mientras que en un AnsiString cada carácter está representado por un byte. Veamos un ejemplo con el siguiente código

 Var
   St : String;
Begin

  St := 'Hola';

 

En Versiones anteriores a Delphi 2009 la representación en memoria de la variable St ocupa 5 bytes, uno por cada letra y un cero al final de la siguiente forma :

H

o

l

a

0

En las versiones recientes de Delphi >= 2009 físicamente ocupa 10 bytes y se representa así

$ 0	H	$ 0	o	$ 0	l	$ 0	a	$ 0	$ 0
Ch1		Ch2		Ch3		Ch4		Fin

  

No es un aspecto para preocuparse, dado que Delphi en versiones recientes maneja automáticamente las conversiones entre Ansi y unicode cuando se requiere, y en cualquiera de los casos la función Length(St) retornará el mismo valor que corresponden a la cantidad de caracteres y no a los bytes necesarios para su almacenamiento, es decir esto solo afecta el almacenamiento y las funciones que acceden al String en forma de bytes, pero no las funciones de alto nivel de tratamiento de Strings.

Así que mientras que se trabaje dentro del entorno Delphi no hay ningún inconveniente en el manejo y asignación de los diferentes tipos de String,  pero en el momento que se requiere hacer interfaces con otros programas como los Componentes COM de Microsoft o los DLL si es importante conocer las estructuras internas de las variables que se pasan como parámetros.

Para mayor información sobre los Unicode String pueden acceder al siguiente link del maestro Marco Cantú http://edn.embarcadero.com/article/38980

 

Paso de parámetros String a un DLL

Es fácil pasar parámetros simples desde una aplicación hacia una DLL, dado que su estructura es simple y pueden pasarse en los registros del procesador, es decir que "caben" en las variables del procesador y en ninguna forma tienen que apuntar a posiciones de memoria adicionales.

Sin embargo para el paso de parámetros más complejos que requieren posiciones de memoria adicionales, como el caso de los String que pueden medir varios miles de bytes, es necesario utilizar métodos adicionales de paso de dicha información.

La solución más simple es el uso de un administrador de memoria, el cual se encarga del manejo de esta situación, Delphi trae por defecto una librería denominada BORLNDMM.DLL y se incluye tanto dentro de la aplicación como del DLL una unidad denominada ShareMem, también existen otras librerías para el mismo fin en el mercado que pueden hacer mejor esta misma tarea. 

Debe tener en cuenta que si incluye la unidad ShareMem en los uses del DLL será obligatorio distribuir junto con la aplicación la librería BORLNDMM.DLL.

En caso de no utilizar estas librerías es necesario tener algunos cuidados, en primer lugar no es posible pasar el parámetros String, excepto los ShortString como parámetros, así que todos los Strings se pasarán como array de bytes o como PChar.

library Project23;

uses

  System.SysUtils,  System.Classes,  Vcl.Dialogs;

{$R *.res} 

   Procedure MuestreMensaje(Const Valor : PChar); stdcall;

   Begin

      ShowMessage(Valor);

   End; 

Exports

  MuestreMensaje; 

begin

end.

El llamado desde la aplicación puede realizarse de forma estática o dinámica, pero cualquiera que sea la forma de llamado de la función el paso de parámetros quedaría algo similar a esto:

Var

  Texto : String;

Begin

   Texto := 'Hola esta es una prueba de llamado a un DLL';

   MuestreMensaje(PChar(Texto));

 

Retorno de Strings en una función de un Dll

Este es un punto delicado en el paso de parámetros, dado que el área de memoria de la aplicación principal es independiente del área de memoria del DLL,  por lo que no necesariamente pueden compartir memoria o punteros de memoria entre los dos módulo, en especial si la carga del DLL se realizó dinámicamente utilizando la función LoadLibrary en lugar de la forma estática.

Debe tener en cuenta que la memoria de la aplicación estará disponible siempre que la aplicación esté activa, lo que no sucede con la memoria del módulo, esta se destruye al liberar la librería con FreeLibrary,  por lo tanto los swings que se creen en el módulo se perderán después del liberado, causando mal funcionamiento de la aplicación en forma aleatoria.

Por eso en el momento de retornar un String debe separarse una porción de memoria del entorno global del sistema y no del área de memoria del módulo, así que este modelo de retorno de un String está mal diseñado y puede causar errores aleatorios en la aplicación, en especial cuando se realiza una carga dinámica del módulo.

 

//  ESTE MODELO DE PROGRAMA ESTÁ MÁL DISEÑADO,

//    PRESENTA PROBLMAS DE ASIGNACIÓN DE MEMORIA

library Project24;

uses

  System.SysUtils,  System.Classes,  System.StrUtils;

{$R *.res} 

   Function InvierteString(Const Valor : PChar) : PChar; stdcall;

   Begin

      Result := PChar(ReverseString(Valor)); //Error por asignación de memoria

   End; 

Exports

  InvierteString;

begin

end.

Solución al Problema 

Se debe utilizar la función GetMem para reservar memoria suficiente para almacenar el String de retorno, copiar en esta porción de memoria el String y retornar un puntero a la posición de memoria, para esto ya he creado la siguiente función: 

const charlen = 1; //1 para AnsiString, 2 para UnicodeString 

Function StrToPChar(Res : String) : PChar;

 Var

    I : Integer;

 Begin

    I := Length(Res)*charlen;

    If I > 0 then

    Begin

       GetMem(Result,I+1);

       Result := StrPCopy(Result, Res);

    End

    Else

    Begin

       GetMem(Result,2*charlen); //string vacio debe tener al menos 2 o 4 bytes.

       Result := StrPCopy(Result,'');

    End;

 End; 

Así la función de retorno tendrá la siguiente forma

   Function InvierteString(Const Valor : PChar) : PChar; stdcall;

   Begin

      Result := StrToPChar(ReverseString(Valor));

   End; 

Mezclando versiones de Delphi

Este método funciona muy bien si tanto la aplicación como el módulo DLL están utilizando ambos el mismo modelo de String, es decir ambos utilizan AnsiString o UnicodeString, pero que sucede cuando se requiere llamar desde Delphi 7 un Dll creado en XE5?

El problema en este modelo es la representación de la variable String en cada una de las versiones, como hemos mencionado para las versiones 2009 y posteriores definir una variable String por defecto es Unicode mientras que para las versiones anteriores se representa como AnsiString.

En una versión anterior a la 2009 la constante charlen debe ser igual a 1, dado que cada carácter ocupa solamente un byte, de esta manera la función GetMem reserva la cantidad de memoria correcta del String, mientras que para versiones 2009 o posteriores será necesario asignar el charlen a 2.

Para el llamado de la función veremos dos casos, el primer caso sería llamar una DLL desarrollada en Delphi XE desde Delphi 7 y luego el caso contrario, hacer un llamado a una DLL desarrollada en XE desde Delphi 7. 

Llamar una DLL desarrollada en Delphi XE5 desde Delphi 7

Aunque el ejercicio se desarrollo en estas versiones lo que se quiere indicar es cómo hacer el llamado de una función creada en un Dll en una versión >= Delphi 2009 desde un programa desarrollado en Delphi < 2009.

Es importante hacer el cambio de tipo de String de Delphi 7 (AnsiString) a un formato de dos bytes por carácter y eso se logra de la siguiente forma:

 

Funcion  LLamaFuncionXE5(Nombre : String) : String;

Var

   P : PWideChar;

begin

   P := PWideChar(WideString(Nombre)); //Se convierte de AnsiString a WideChar

   Result := String(InvierteString(P)); //El typecast aquí es automático

 

Llamar una DLL desarrollada en Delphi 7 desde Delphi XE5

Aunque el ejercicio se desarrollo en estas versiones lo que se quiere indicar es cómo hacer el llamado de una función creada en un Dll en una versión anterior a Delphi 2009 desde un programa desarrollado en Delphi >= 2009.

 

Funcion  LLamaFuncionD7(Nombre : String) : String;

Var

   P : PAnsiChar;

begin 

   P := PAnsiChar(AnsiString(Nombre));//Se convierte de UnicodeString a AnsiChar

   Result := String(InvierteString(P)); //El typecast aquí es automático

 

Llamar una DLL desarrollada en Delphi con compatibilidad de String

Obviamente si tanto el Dll está desarrollado con la misma definición de Delphi String, no debe haber problemas, dado que existe la compatibilidad y no será necesario hacer typecast, la función quedaría de la siguiente forma

Funcion  LLamaFuncion(Nombre : String) : String;

begin

   Result := String(InvierteString(PChar(Nombre)));

 

Esta metodlogía puede ser muy útil para realizar funcionalidades que solo están disponibles en versiones recientes de Delphi especialmente en RadStudio que no es posible desarrollar en versiones anteriores a la 2009. 

Esta información es válida para DLL desarrollados en otros lenguajes como C y también para desarrollar funciones para ser ejecutadas desde otros lenguajes, dado que los DLL en Windows deben ser compatibles entre los diferentes lenguajes de programación.

 

Atte.Mg. Gustavo Enríquez

http://www.hyper-soft.co