/*Prog*/ Delphi-Neftalí /*finProg*/

Hace unos días se planteaba en el clubdelphi una cuestión acerca de la gestión de volúmenes en los dispositivos Android. Me llamó la atención porque días atrás me había planteado la cuestión de poder disponer de «perfiles de audio» en mi propio teléfono Android. Se trata de un Xiaomi con versión KitKat instalada y una ROM personalizada.

• ¿Cómo podemos desde Delphi acceder a los volúmenes del dispositivo para las diferentes características (música, alarmas, llamadas,…)?
• ¿Cómo podemos cambiarlos?

Esta estrada, al final la he dividido en dos. Os adjunto los links a las dos partes; Est a primera más itroductoria y la segunda más práctica y donde generamos una aplicación de ejemplo funcional.

• Cuestión de volumen… (parte I)
• Perfiles de audio (parte II)

CONTROL DE VOLUMEN

Lo primero es saber cómo podemos acceder a esta información utilizando las clases de Android. Si revisamos la API de Android llegamos a la clase AudioManager,  que es la que se encarga de estos menesteres (y algunos más).
La descripción de la clase dice lo siguiente:

«AudioManager provides access to volume and ringer mode control.»

Continuar leyendo…

Hace bastante tiempo (cuando estábamos en la facultad) con mis amigos,  nos acostumbramos a visitar la web de  “la foto del día”. Había y sigue habiendo webs de muchas temáticas, pero una de las más conocidas en aquella época era la de la NASA. Las fotos de este tipo que hoy son más habituales, entonces era difícil encontrarlas (con aquella calidad).

Actualmente la URL para acceder a “la foto del día” es esta.

http://apod.nasa.gov/apod/astropix.html

Continuar leyendo…

Pues eso, tal y como reza el título, yo ya tengo el mío.  :-D

No hace muchos días, de la mano de Danysoft (partner oficial de Embarcadero en España), se publicó el último libro de Francisco Charte; «Programación de aplicaciones Delphi con acceso a Bases de Datos».  Pues ayer ya llegó mi copia.

No puedo opiniar todavía en profundidad, pues apenas lo he ojeado por encima, pero la verdad es que tiene una pinta fantástica.

Está centrado en la librería de acceso a datos que viene actualmente con las versiones de delphi, FireDAC y que nos da acceso multiplataforma a  las Bases de Datos más utilizadas en el mercado. Más que las explicaciones que yo pueda dar, os recomiendo que reviséis el índice completo del libro que se puede descargar en PDF desde aquí.

Personalmente me han llamado la atención algunos puntos, pero que supongo que a vosotros os pueden interesar muchos otros de los que se tratan:

• Aplicaciones con Interbase embebido
• Bases de Datos en memoria con FireDAC
• Bases de Datos y Unicode
• Servicios REST
• Todo lo refrente a multiplataforma
• Configuración de FireDAC

Personalmente no he trabajado casi nada con FireDAC (en lo que se refiere a proyectos «en serio») así que aunque imagino que en su mayor parte se utilizan de forma similar a otras librerías de acceso a datos, siempre está bien tener un punto de referencia para llegar un poco más allá y profundizar un poco.

Si alguien tiene opiniones y comentarios sobre el libro y desea expresarlos, pues sois libres de participar y dar vuestra opinión aquí.

Un saludo y hasta la próxima.

Para complementar la entrada anterior (Hablando del tiempo… (OpenWeatherMap) 1/2)  y «acabarla» me queda publicar el desarrollo móvil correspondiente a la aplicación que vimos anteriormente.
Como ya os comenté en la entrada anterior, el código a utilizar es prácticamente el mismo que hemos utilizado en las aplicaciones para windows (VCL). La mayor diferencia que me he encontrado en el tratamiento de la respuesta JSON que obtenemos del servidor.

Para versiones antiguas de Delphi, podéis utilizar si lo necesitáis la misma librería que ya he recomendado aquí otras veces. Se trata de lkJSON que podéis encontrar en Sourceforge.
En las nuevas versiones de Delphi ya está disponible la unit System.JSON, con lo necesario para no utilizar librerías externas.

function TForm1.ParseTiempoCiudadesHist(AObjResp: TlkJSONobject; var ATiempoProxHoras: TTiempoProxHoras): Boolean;
var
  i, j, num, index:integer;
  oHorasList, OWList:TlkJSONlist;
  oHora, oCoord, oMain, oWind, oWeather:TlkJSONobject;
  Str:String;
begin
  // ini
  Result := False;
  // Si no está asignado salimos..
  if not Assigned(AobjResp) then begin
    Exit;
  end;
    // Si hay error no parseamos
    if IsErrorResponse(AObjResp, errCode, ErrMsg) then begin
    Exit;
  end;
 
  // proteccion para el parseo
  try
    // cod. devuelto (datos principales
    ATiempoProxHoras.Cod := errCode;
 
    num := AObjResp.IndexOfName('count');
    if (num <> -1) then begin
      num := GetAsInteger(AObjResp.Field['count'].Value);
    end;
 
    // si no hay ciudades
    if (num = 0) then begin
      MessageDlg('No hay ninguna ciudad que coincida con ese código [nombre,pais].', mtWarning, [mbOK], 0);
      Exit;
    end;
 
    // Lista de horas (Lista)
    TlkJSONBase(oHorasList) := AObjResp.Field['list'];
    // array de elementos
    SetLength(ATiempoProxHoras.TiempoHora, oHorasList.Count);
    // Quedarse con el primier elemento de la lista...
    for i := 0 to (oHorasList.Count - 1) do begin
      // datos de la primera ciudad
      TlkJSONBase(oHora) := oHorasList.Child[i];
      // datos básicos
      ATiempoProxHoras.TiempoHora[i].dt_text := GetAsString(oHora.Field['dt_txt'].Value);
      // convertir fecha-Hora
      Str := ATiempoProxHoras.TiempoHora[i].dt_text;
      ATiempoProxHoras.TiempoHora[i].dt := EncodeDateTime(
        StrToIntdef(Copy(Str, 1, 4), 0),
        StrToIntdef(Copy(Str, 6, 2), 0),
        StrToIntdef(Copy(Str, 9, 2), 0),
        StrToIntdef(Copy(Str, 12, 2), 0),
        StrToIntdef(Copy(Str, 15, 2), 0),
        StrToIntdef(Copy(Str, 18, 2), 0), 0);
 
      // Load Main
      TlkJSONBase(oMain) := oHora.Field['main'];
      ATiempoProxHoras.TiempoHora[i].Main.temp := GetAsFloat(oMain.Field['temp'].Value);
      ATiempoProxHoras.TiempoHora[i].Main.tempmin := GetAsFloat(oMain.Field['temp_min'].Value);
      ATiempoProxHoras.TiempoHora[i].Main.tempmax := GetAsFloat(oMain.Field['temp_max'].Value);
      ATiempoProxHoras.TiempoHora[i].Main.pressure := GetAsFloat(oMain.Field['pressure'].Value);
      ATiempoProxHoras.TiempoHora[i].Main.humidity := GetAsInteger(oMain.Field['humidity'].Value);
 
      // Load weather
      TlkJSONBase(OWList) := oHora.Field['weather'];
      TlkJSONBase(oWeather) := oWList.Child[0];
      ATiempoProxHoras.TiempoHora[i].Weather.id := GetAsInteger(oWeather.Field['id'].Value);
      ATiempoProxHoras.TiempoHora[i].Weather.main := GetAsString(oWeather.Field['main'].Value);
      ATiempoProxHoras.TiempoHora[i].Weather.desc := GetAsString(oWeather.Field['description'].Value);
      ATiempoProxHoras.TiempoHora[i].Weather.icon := GetAsString(oWeather.Field['icon'].Value);
    end;
 
    Result := True;
  except
    // si hay error, FALSe
    Result := False;
  end;
end;

Continuar leyendo…

Hace unos días pensaba en un tema para una nueva entrada del blog.
No tenía ideas, así que como solemos hacer aquí cuando no tenemos de qué hablar, se me ocurrió “hablar del tiempo”… (gracias a Javi desde aquí, que me fue realmente el que me puso en la pista del tema ;-) ).

Pues ya está, decidido, hablemos del tiempo.

Tenía en mente escribir sobre algunas de las novedades de las últimas versiones de RAD Studio y utilizaremos el tema para realizar algunas pruebas y demostrar cómo funcionan. Para ellos y para hablar del tiempo, vamos a utilizar en la entrada OpenWeatherMap.

¿Qué es OpenWeatherMap?

Según la web se describe como, “un servicio que provee de datos del tiempo de más de 200.000 ciudades y de todas las ubicaciones geográficas que se encuentra disponible en la web OpenWeatherMap.org y también a través de API. La idea del servicio está inspirada en OpenStreetMap y Wikipedia que ofrecen la información gratuita y disponible para todo el mundo.”

 APY Key

OpenWeatherMap es un servicuio gratuito y para poder trabajar con él, deberemos crear una cuenta y así acceder a una API Key, que es obligatoria a la hora de realizar peticiones a la web.

Para esta entrada y los ejemplos de código he dado de alta una cuenta gratuíta y he obtenido la siguiente API Key:

278857e8dee51f914026df21d0d40c19

_________________________________________________________________
NOTA (21/01/2021): Algún usuario del blog ha utilizado esta clave, en lugar de para hacer pruebas, para otros temas, de manera que desde la página de OpenWeatherMap me han informado de un tráfico excesivamente alto y de que se bloqueará esta APIKey cuando lo exceda. Siento que para los que accedéis al blog esta deje de funcionar (a ratos). Si queréis hacer pruebas debréis crear vuestra propia clave.
Desgraciadamente a veces intento facilitar las cosas a los que accedéis a estas entradas, pero hay quien prefiere no seguir las reglas y usar el camino fácil.
_________________________________________________________________

AVISO: Para seguir esta entrada y probar los ejemplos, podéis usar esta clave, pero si váis a programar aplicaciones o vuestros propios ejemplos, os aconsejo que déis de alta vuestra propia cuenta y obtengáis vuestra clave, pues en cualquier momento ésta puede dejar de estar activa.

La explicación completa de cómo utilizar el valor de la «API KEY» lo tenéis en este link.

Continuar leyendo…

Como viene siendo habitual cuando desde Embarcadero se presenta una nueva versión de Rad Studio, Danysoft realiza el «Iberian Tour» por diferentes ciudades de España para presentar las novedades del producto. Es este caso hoy día 25 se ha realizado la de Barcelona.

Podemos revisar las demos y leer algo de documentación, pero siempre es interesante asistir a una presentación en vivo. Las preguntas, las respuestas, las propias demos, el feedback y las sensaciones son diferentes a las que uno experimenta cuando está allí. Además de que como siempre he dicho, es una oportunidad para ver a diferentes amigos y excompañeros de trabajo que asisten a estas conferencias.

La presentación de hoy ha estado a cargo de Luis Navarro, Product Manager de Embarcadero.

Os adjunto algunas fotos de la presentación de hoy.

También en este link del ClubDelphi podéis ver algunas de la presentación en Valencia (que han colgado la gente de Danysoft) y os invito a que publiquéis las de las otras ciudades si es que tenéis la oportunidad de poder asistir, así como dejar vuestras impresiones si os aperetece.

En cuanto al propio RAD Studio y en concreto a Delphi, pues qué decir. La verdad es que esta versión 10 (Seatle) tiene muy buena pinta y aunque no la he probado a fondo, sigue la misma línea ascendente de las anteriores (a mi entender). Muchas mejoras enfocadas a la estabilidad y al IDE. Y una fuerte apuesta por continuar evolucionando el desarrollo en platarformas móviles (como no podía ser de otra manera) y en seguir evolucionando la VCL para engarcharse al carro de Windows 10 (y por lo que hemos visto parece que lo ha conseguido).

Os dejo el video con las novedades de esta versión por si queréis echarle un vistazo y el link a la lista de novedades (disponible en la docwiki) de esta versión.

Un saludo y hasta la próxima.

Hola a todos, después de un tiempo de inactividad en este blog.

Los que os habeis intentado conectar estos últimos días a la página, habréis notado que a estado «offline» a ratos y durante otros ha funcionado pero de forma incorrecta.

Esto es debido a que en el clubdelphi, estamos realizando estos días cambios profundos. Tanto a nivel de Hardware como a nivel de Software.
Esto afecta directamente a mi web, ya que hasta ahora estaba alojada en el mismo lugar físico que el clubdelphi y además comparte dominio/subdominio.

ACTUALIZACIÓN: A día de hoy el blog ya está instalado en el hosting definitivo (en mi caso OVH, que es el mismo que utilizamos en el clubdelphi). Espero que eso sea sinónimo de un buen funcionamiento de la web. He contratado también un dominio (http://neftali-delphi.eu/) que es el que aparece en la parte superior, aunque si accedéis a la página utilizando el de siempre (http://neftali.clubdelphi.com) sigue funcionando y os redirije al nuevo.

De forma temporal y para conseguir que al menos esté accesible para consulta, he alojado la web en un servidor gratuíto. Para ello he seleccionado Hostinguer. Mientras escojo una opción definitiva ya os aviso de que esta opción afectará al normal funcionamiento de la web.

NOTA: Ya hay quien me ha comentado que algún rato ha estado caída debido a «exceso de uso de CPU».

Esperemos que pronto pueda estar «online» de forma definitiva.

Un saludo y disculpad las posibles molestias.

A estas alturas, imagino que ya todo el mundo está al tanto de que la última versión de RAD Studio está “en la calle”.

Si estáis “online” no voy a descubrir nada nuevo con esta noticia y seguro que llego un poco tarde…  ;-D

No es esa la idea de estas líneas; Sino la de recopilar parte de la información que hay sobre XE8.

Lo primero, es revisar un poco las novedades que nos trae esta versión.

Desde la página de Embarcadero podemos revisar las más importantes.

Aquí en la página de Danysoft, también hay una lista con una breve explicación y e imágenes mostrando algunas de las más llamativas.
AÑADO: Lista más extensa publicada desde Danysoft con los cambios agrupados por plataformas o categorías. Una organización diferente.

Continuar leyendo…

Si te perdiste las sesiones de la DelphiWeek 2015, ya están disponibles todas las sesiones en esta lista de reproducción de Embarcadero Technologies.

Vale la pena revisarlas, porque algunas son muy interesantes. Hay un poco de todo, de carácter general, técnicas, algunas más “offtopic” y otras referentes a partners y componentes comerciales.

Aquí tenéis una lista completa de las sesiones:

• Delphi Week 2015 – "The Delphi Effect" with John Thomas and Brian Alexakis de Embarcadero Technologies
• Critical Information Systems CIS by Daintel ApS with Lars Dybdahl de Embarcadero Technologies
• Delphi 1 to XE7: 20 Years of Continuous Innovation by David I de Embarcadero Technologies 
• Delphi 1 running on Windows 3 11 demonstration by David I de Embarcadero Technologies 
• Tech Partner Videos – FixInsight DevArt DAC and Mitov S/W Open Wire Studio for Arduino
  de Embarcadero Technologies
• The Fun Side of Delphi with Marco Cantu de Embarcadero Technologies 
• Delphi Games with Jim McKeeth de Embarcadero Technologies
• TSmiley Component Demonstration – Nick Hodges Useless Delphi Component de Embarcadero Technologies
• Delphi Online Sites – DevMedia.com.br, DrBob42.com, LearnDelphi.TV and more de Embarcadero Technologies 
• Conversation with Cary Jensen – live from Costa Rica de Embarcadero Technologies
• Conversation with Allen Bauer – Embarcadero Chief Scientist de Embarcadero Technologies
• Conversation with Nick Hodges – author of "Coding in Delphi" de Embarcadero Technologies
• CodeMonkey in Delphi Code – Music Video by Jim McKeeth de Embarcadero Technologies
• Delphi IDE Theme Editor de Embarcadero Technologies
• Boian Mitov of Mitov Software Demos some of his components for Delphi de Embarcadero Technologies
• Conversation with Jens Fudge – DAPUG.dk and ArcherSoft.dk de Embarcadero Technologies
• Conversation with the InterBase team de Embarcadero Technologies
• WideOrbit’s use of Delphi – a conversation with Anders Ohlsson de Embarcadero Technologies
• The Making of the CodeMonkey in Delphi Code by Jim McKeeth de Embarcadero Technologies
• A Conversation with the RAD Studio Engineering Management Team de Embarcadero Technologies
• A Conversation with Sarina Dupont de Embarcadero Technologies

Espero que las encontréis interesantes.

Un saludo y hasta la próxima.

El próximo mes de Febrero se celebra el 20 aniversario de Delphi, concretamente el 14 de Febrero (no haré comentarios cursis sobre temas “románticos”, dado el día  ;-D  ).

Se celebra además a lo grande!

Desde el 9 al 13 de Febrero se celebrará la “#DelphiWeek”. Sesiones online donde se realizarán diferentes eventos; Según la agenda podremos disfrutar de:

• Entrevistas
• “Code Battles”. Batallas de código
• Delphi Games
• Funside of Delphi
• Virtual Office Tours
• Day in the Life survey
• Global celebration of all things Delphi

Supongo que durante los próximos días iremos conociendo más detalles de los diferentes eventos.

El anuncio lo ha hecho Jim McKeeth en la “community” de Embarcadero, y ya está disponible el registro para las sesiones (mañana y tarde).