TIOBE: Delphi is on its way out

[[rretamar]]

Si HOY quiero desarrollar una aplicación para LINUX (y que a la postre pueda recompilar en Windows con no demasiados cambios) ya tengo el lenguaje de programación: Object Pascal y ya tengo la herramienta: Free Pascal / Lazarus. Y este último no es lo que era hace dos o tres años: ahora funciona muy bien, ha mejorado mucho. Más viendo que la plataforma LINUX no está ni cerca entre las prioridades de Embarcadero (todavía me acuerdo de algunos mensajes de Andreano despotricando contra este SO...y contra Firebird).

Y sobre el pago de licencias, pagué tanto la licencia de mi Windows como la de Delphi, aunque mi trabajo principal no es de desarrollador de software, pero lo necesitaba para un proyecto y ahí está. Pero eso no quita que no tenga que buscar otras alternativas (Libres en este caso) que llenen huecos a los que Delphi no llega.

[[egostar]]

Empezado por rretamar

Si HOY quiero desarrollar una aplicación para LINUX (y que a la postre pueda recompilar en Windows con no demasiados cambios) ya tengo el lenguaje de programación: Object Pascal y ya tengo la herramienta: Free Pascal / Lazarus. Y este último no es lo que era hace dos o tres años: ahora funciona muy bien, ha mejorado mucho. Más viendo que la plataforma LINUX no está ni cerca entre las prioridades de Embarcadero (todavía me acuerdo de algunos mensajes de Andreano despotricando contra este SO...y contra Firebird).

Y sobre el pago de licencias, pagué tanto la licencia de mi Windows como la de Delphi, aunque mi trabajo principal no es de desarrollador de software, pero lo necesitaba para un proyecto y ahí está. Pero eso no quita que no tenga que buscar otras alternativas (Libres en este caso) que llenen huecos a los que Delphi no llega.

Y yo no estoy diciendo lo contrario, sólo respondí a tu comentario "No veo que tenga mucho sentido un firemonkey para Linux." yo sostengo que cuando eso sea posible tendrá mucho sentido.

El asunto de licenciamiento o gratuidad no es el tema de mi respuesta, eso lo decide cada uno de acuerdo a sus necesidades.

Saludos

[DarkDudae]

Interesante debate, sin duda alguna. Recientemente he estado probando Firemonkey, y bueno, es cierto que está bastante limitado y que no es tan poderoso como Coccoa en algunos aspectos.

No obstante, investigando un poco, llegué al estupendo blog de un koreano llamado Simon Choi, donde se explica cómo usar las herramientas de X-Code / Coccoa desde RAD Studio:

Primeramente, agregamos al uses de nuestro formulario las librerias de Coccoa y Objective-C, y definimos algunos detalles sobre las clases de estos objetos en la plataforma nativa:

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, FMX.Platform.iOS,
  //
  System.TypInfo,
  Macapi.ObjectiveC,Macapi.ObjCRuntime,
  iOSapi.CocoaTypes,iOSapi.foundation,iOSapi.uikit,iOSapi.CoreGraphics,
  FMX.Layouts, FMX.Memo;

type
  //
  IBtnDelegate = interface(NSObject)
    procedure BtnPressed; cdecl;
  end;
  //
  TBtnDelegate = class(TOCLocal)
   Private
    Finx   : Integer;
    FMemo  : TMemo;
   Public
    constructor Create( inx : integer; memo : TMemo );
    function  GetObjectiveCClass : PTypeInfo; override;
    procedure BtnPressed; cdecl;
  end;

  // protocol -----------------------------------------------------------------
  mycalcEvent = interface(IObjectiveC)
   procedure oncalcEventA(inx :Integer; ext1 : Integer); cdecl;
   procedure oncalcEventB(inx :Integer; ext1 : Integer); cdecl;
  end;
  //
  TmycalcEvent = class(TOCLocal,mycalcEvent)
  private
  public
   procedure oncalcEventA(inx :Integer; ext1 : Integer); cdecl;
   procedure oncalcEventB(inx :Integer; ext1 : Integer); cdecl;
  end;

Luego, podemos crear por ejemplo un botón usando estas clases/APIs en runtime, eso sí, acomodándonos a la estructura de la API de Apple que nos resumió hace algunos post el compañero mamcx (target, action, event, delegate):

procedure TForm1.Btn_CreateBtnClick(Sender: TObject);
begin
 Btn := TUIButton.Wrap( TUIButton.OCClass.buttonWithType(UIButtonTypeRoundedRect) );
 //
 Btn.setFrame ( CGRectMake(40,130,170,40) );
 Btn.setTitle (NSStr('iOS UIButton'),UIControlStateNormal);
 //
 BtnDelegate := TBtnDelegate.Create(10,Memo1);
 Btn.addTarget( BtnDelegate.GetObjectID,       // target
                sel_getUid('BtnPressed'),      // action
                UIControlEventTouchDown);      // event
 //
 WindowHandleToPlatform(Self.Handle).View.addSubview(Btn);
end;

Está claro que no es un proceso muy "amigable", pero sinceramente, he hecho algún que otro programa con X-Code y lo cierto es que no difiere excesivamente a lo planteado en este post (con la salvedad de que tenemos que "sufrir" con Objective-C).

No creo que pase mucho tiempo antes de que alguna compañía (o la propia Embarcadero) "encapsule" estos procedimientos en algún set de componentes y nos brinde gran parte de las virtudes de las APIs de Apple sin renunciar a la comodidad y estilo de Delphi.

Os adjunto el código fuente completo (puesto que sólo he agregado en el post los puntos básicos), y os invito a que le echéis un vistazo al blog que os comentaba donde podréis encontrar este y otros muchos ejemplos:

http://blog.naver.com/simonsayz

Un saludo

[Casimiro Noteví]

.............