Programacion Delphi: Conectar tu Aplicaciones VCL para móvil y la nube

La Biblioteca Runtime proporciona componentes aplicación de la inmovilización, dando a sus aplicaciones la capacidad de interactuar con otras aplicaciones que ejecuta en la misma máquina o en una máquina remota. La RTL ofrece soporte integrado para red (WiFi) y Bluetooth conexiones.

Utilizando aplicación tethering, puede ampliar fácilmente sus aplicaciones existentes a móvil. Con RAD Studio XE7, incluimos varios demos que muestran esta funcionalidad. Hoy en día, pensé que iba a esbozar cómo extender la funcionalidad de su aplicación tethered VCL añadiendo Baas (backend-as-a-service) de soporte de carga de imágenes.

Vamos a utilizar el siguiente escritorio VCL y FMX móvil.

demos:http://sourceforge.net/p/radstudiodemos/code/HEAD/tree/branches/RadStudio_XE7/Object%20Pascal/RTL/Tethering/PhotoWall/

http://sourceforge.net/p/radstudiodemos/code/HEAD/tree/branches/RadStudio_XE7/CPP/RTL/Tethering/PhotoWall/

Ambas demos tienen la propiedad TetheringManager AllowedAdapters conjunto con la Red. También puedes conectar tu aplicación de escritorio VCL para su aplicación móvil a través de Bluetooth.

El único código añadido a la demo que enviamos con RAD Studio XE7 es el código para cargar la imagen a la nube. Usted tendrá que poner los siguientes componentes en su formulario VCL:

TBackendFiles (conectado al componente proveedor BAAS)
Componente TProvider, como TKinveyProvider (añadido AppSecret, AppKey e información MasterKey de cuenta de proveedor BAAS)
TButton (cambió Caption a "Subir")

Para cambiar el estilo de su aplicación VCL, vaya a Proyecto-> Opciones-> Apariencia. En este caso, seleccionamos nuestro estilo Metropolis UI Oscuro.

Configure su botón de clic en evento para subir la imagen a la nube:

procedimiento TForm8.btnUploadClick (Sender: TObject);
var
  LStream: TStream;
  LFile: TBackendEntityValue;
comenzar
  LStream: = SaveImage;
  intentar
    BackendFiles1.Files.UploadFile ('mypicture55.png', LStream,
      "Image / png", LFile);
    ShowMessage ('La imagen se ha cargado');
  finalmente
    LStream.Free;
  fin;
fin;

Configure su función SaveImage:

  privado
    {declaraciones privadas}
    función SaveImage: TStream;

función TForm8.SaveImage: TStream;
comenzar
  Resultado: = TMemoryStream.Create;
  intentar
    Image1.Picture.Graphic.SaveToStream (Resultado);
  excepto
    Result.Free;
    aumentar;
  fin;
fin;