Lanzamiento de Delphi Community Edition

Ayer Embarcadero ha lanzado una nueva edición de Delphi llamada "Community Edition".

La diferencia más importante con respecto a la versión "Starter" es que además de ser gratuita incorpora de serie los módulos para programar aplicaciones multiplataforma (Windows, Android, iOS y macOS), acceso a Bases de Datos, IoT.

Esta versión está enfocada a desarrolladores independientes, startups, estudiantes y organizaciones sin fines de lucro con ingresos anuales menores a 5000$ o equipos con hasta 5 desarrolladores.

Según dice Embarcadero: 

 "Proporcionar a los desarrolladores herramientas de nivel profesional puede tener un costo prohibitivo antes de tener un producto para vender. Community Edition está diseñada para permitir que las personas y las startups  inicien su ciclo de desarrollo hasta que los ingresos anuales alcancen los $ 5,000, momento en el cual se puede comprar una licencia Professional Edition.
Si usted es una persona, puede usar Community Edition para crear aplicaciones para su propio uso y aplicaciones que pueda vender hasta que sus ingresos alcancen los $ 5,000 por año.

 
Si es una empresa pequeña u organización sin ingresos (o hasta $ 5,000 por año en ingresos), también puede usar Community Edition. Una vez que los ingresos totales de su empresa alcancen los $ 5,000 por año o su equipo se expanda a más de 5 desarrolladores, puede pasar a una licencia comercial sin restricciones con Professional Edition."

La política de Embarcadero es que "si tú ganas con Delphi, nosotros ganamos", para ello te ofrece gratuitamente un fabuloso producto que es la "Community Edition".

Por fin Embarcadero ha hecho caso de lo que la Comunidad de programadores habían solicitado, y estoy seguro que será el punto de inicio de un más amplio conocimiento en todo el mundo de la potencia, versatilidad y facilidad de uso de Delphi.

Espero que esta edición ayude a los nuevos desarrolladores (estudiantes, aficionados, desarrolladores open source, etc) y a cualquiera que comience en el desarrollo de apps móviles, Internet, Windows, Mac).

Community Edition ofrece la versión completa de FireMonkey y FireUI multi-device development, además de un acceso completo al IDE, acceso básico a bases de datos incluyendo IBlite para móviles.

Si quieren conocer más detalles aquí tienen algunos links que les serán útiles:

- Página de descarga de Delphi Community Edition

- Comparativa entre diferentes versiones

- Cómo instalar y activar. Detalles técnicos

Tutoriales de Marco Cantu
Part 1 – Introduction and Installation
Part 2 – Building and Debugging
Part 3 – Architecture and Layers of Code
Part 4 – Designing User Interfaces
Part 5 – Putting the Calculator Together

Guardar la base de datos de registro del sistema

Este procedimiento permite guardar la base de datos del registro del sistema:

procedure TForm1.SaveRegister(iTimeOutMs: DWORD; sFileName : SHortString);
Var
  Ticks: DWord;
  StartInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  Fin: Boolean;
Begin
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  StartInfo.cb := SizeOf(StartInfo);
 
  If CreateProcess(Nil, PChar('regedit.exe /se ' +sFileName),
    Nil, Nil, False, 0, Nil, Nil, StartInfo, ProcessInfo) Then
  Begin
    ShowMessage('Guardando la BD... ');
    Ticks := GetTickCount;
    Fin := False;
 
    Repeat
      Case WaitForSingleObject(ProcessInfo.hProcess, 200) Of
        WAIT_OBJECT_0: Fin := True;
      End;
 
      Application.ProcessMessages; //Evita que la aplicacion se bloquee
      Sleep(250);
    Until (Fin) Or (GetTickCount - Ticks > iTimeOutMs);
 
    If (Fin = False) Then
      ShowMessage('TimeOut ! No se ha terminado correctamente... ')
    Else
      ShowMessage('Se ha guardado la BD. ')
  End else
    ShowMessage('Error al inciar el guardado de la BD ! ');
end;