Por donde empezar en Linux y Object Pascal

[delphiladero]

Hola, soy un entregado a Delphi desde su versión 1, (esa versión que se denominó Visual Basic Killer, que años), y antes con Turbo Pascal, durante estos, muchos, años me he peleado con el mundo por no pasar a C o C++, soy un programador de sistemas a quien no le ha hecho falta C para nada, mi frase siempre ha sido la misma "cuando encuentre algo que no sea capaz de hacer en Pascal, me pasaré a C" desde centros de emergencias hasta sistemas de testeo de vehículos han sido implementados en mi Delphi, y todo los equipos que he dirigido se han rendido a Delphi, pero .....

..... siempre he vivido en el mundo Windows, sabía que había una cosa que era Kylix y otra que era Lazarus que en principio funcionaban sobre Linux y que eran muy similares a Delphi, y que siempre tuve como asignatura ponerme con ellas pero nunca llegó el momento. Ahora ha llegado, nos ha surgdo un proyecto que se justifica muy mucho que corra en Linux, y descubro con sorpresa que Kylix no está soportado por Borland- Inprise, y que no hay forma de comprarlo (descargarlo).

Es freePascal una alternativa profesional ? Puedo descargar Kilix desde algún rincon de Internet que no haya sido eliminado por Microsoft ? Dadme una respuesta, sino 20 años de programación Pascal tendrán que rendirse a la tiranía y complejidad de C.

Perdon por la parrafada.

[[FGarcia]]

mmmm... segun la version 7 de delphi tiene incorporado a Kylix. Yo la uso pero nunca he investigado eso

FreePascal segun se es bastante robusto para proyectos profesionales y Lazarus es la alternativa del IDE de Delphi para FreePascal aunque si lo comparas con Delphi aun -dicen- adolece de muchas cosas, alguno lo compara con delphi3 -que ya era bastante poderoso-

Eso es lo que se. Alguien nos sacara de la duda.

[Ñuño Martínez]

Free Pascal es muy estable. Por lo que leo en su lista de correo hay mucha gente que lo utiliza profesionalmente.

En cuanto a Lazarus, todavía no llega a su primera versión estable (están en la 0.9.2tantos). Es bastante estable, pero todavía ha problemas en algunos aspectos. Esto se debe a que intenta establecer un método común para entornos muy diferentes entre sí (Win32, Cocoa, GTK+, Qt...) y eso cuesta. Aun así ya pueden hacerse muchas cosas.

Yo les daría una oportunidad. Ambos proyectos se lo merecen.

[roman]

A ver, una pregunta: ¿es posible usar exclusivamente FreePascal para hacer aplicaciones gráficas, o sea, prescindiendo de Lázarus?

// Saludos

[[FGarcia]]

No me quise quedar con la duda sobre tu pregunta Roman, baje e instale la version 2.2 de FP y en la carpeta Demos aparecen 4 ejemplos de aplicacion para Windows. Este es el codigo de uno de ellos Hello World.
¡No es nada divertido!

Código Delphi [-]
{
  Copyright (c) 1996 by Charlie Calvert
  Modifications by Florian Klaempfl
  Standard Windows API application written in Object Pascal.
  No VCL code included. This is all done on the Windows API
  level.
}
{$APPTYPE GUI}
{$MODE DELPHI}

program WinHello;
uses
  Strings, Windows;
const
  AppName = 'WinHello';
 
function WindowProc(Window: HWnd; AMessage: UINT; WParam : WPARAM;
                    LParam: LPARAM): LRESULT; stdcall; export;
  var
     dc : hdc;
     ps : paintstruct;
     r : rect;
begin
  WindowProc := 0;
  case AMessage of
    wm_paint:
      begin
         dc:=BeginPaint(Window,@ps);
         GetClientRect(Window,@r);
         DrawText(dc,'Hello world by Free Pascal',-1,@r,
           DT_SINGLELINE or DT_CENTER or DT_VCENTER);
         EndPaint(Window,ps);
         Exit;
      end;
    wm_Destroy:
      begin
         PostQuitMessage(0);
         Exit;
      end;
  end;
  WindowProc := DefWindowProc(Window, AMessage, WParam, LParam);
end;
 
 { Register the Window Class }
function WinRegister: Boolean;
var
  WindowClass: WndClass;
begin
  WindowClass.Style := cs_hRedraw or cs_vRedraw;
  WindowClass.lpfnWndProc := WndProc(@WindowProc);
  WindowClass.cbClsExtra := 0;
  WindowClass.cbWndExtra := 0;
  WindowClass.hInstance := system.MainInstance;
  WindowClass.hIcon := LoadIcon(0, idi_Application);
  WindowClass.hCursor := LoadCursor(0, idc_Arrow);
  WindowClass.hbrBackground := GetStockObject(WHITE_BRUSH);
  WindowClass.lpszMenuName := nil;
  WindowClass.lpszClassName := AppName;
  Result := RegisterClass(WindowClass) <> 0;
end;
 
 { Create the Window Class }
function WinCreate: HWnd;
var
  hWindow: HWnd;
begin
  hWindow := CreateWindow(AppName, 'Hello world program',
              ws_OverlappedWindow, cw_UseDefault, cw_UseDefault,
              cw_UseDefault, cw_UseDefault, 0, 0, system.MainInstance, nil);
  if hWindow <> 0 then begin
    ShowWindow(hWindow, CmdShow);
    ShowWindow(hWindow, SW_SHOW);
    UpdateWindow(hWindow);
  end;
  Result := hWindow;
end;

var
  AMessage: Msg;
  hWindow: HWnd;
begin
  if not WinRegister then begin
    MessageBox(0, 'Register failed', nil, mb_Ok);
    Exit;
  end;
  hWindow := WinCreate;
  if longint(hWindow) = 0 then begin
    MessageBox(0, 'WinCreate failed', nil, mb_Ok);
    Exit;
  end;
  while GetMessage(@AMessage, 0, 0, 0) do begin
    TranslateMessage(AMessage);
    DispatchMessage(AMessage);
  end;
  Halt(AMessage.wParam);
end.

[Casimiro Notevi]

Empezado por FGarcia

No me quise quedar con la duda sobre tu pregunta Roman, baje e instale la version 2.2 de FP y en la carpeta Demos aparecen 4 ejemplos de aplicacion para Windows. Este es el codigo de uno de ellos Hello World.
¡No es nada divertido!

¿Y para Linux?, ¿se puede?

[donald shimoda]

Empezado por FGarcia

No me quise quedar con la duda sobre tu pregunta Roman, baje e instale la version 2.2 de FP y en la carpeta Demos aparecen 4 ejemplos de aplicacion para Windows. Este es el codigo de uno de ellos Hello World.
¡No es nada divertido!

A quien se le puede ocurrir usar algo asi hoy en dia cuando con lazarus pegas los botones en el formulario y compila en 3 segundos?

Muchachos, informense, bajense lazarus y pruebenlo. Este ejemplo esta *un tantito* desactualizado. :P

--
Donald Shimoda [Team RO]

http://blogs.remobjects.com/blogs/donald

[donald shimoda]

Empezado por Ñuño Martínez

En cuanto a Lazarus, todavía no llega a su primera versión estable (están en la 0.9.2tantos).

0.9.5 ya sale la 0.9.6. Se merece que le echen un vistazo, los va a sorprender...

Yo les daría una oportunidad. Ambos proyectos se lo merecen.[/quote]

Al que le interese miren mi otro post sobre Kylix...

Saludos.

--
Donald Shimoda [Team RO]

http://blogs.remobjects.com/blogs/donald