Demo de la libreria Allegro.pas

[[Héctor Randolph]]

Conseguí hacerlo funcionar en Delphi 7, aquí está la prueba

Para corregir el problema con los arreglos, la explicación que da la ayuda es la siguiente:

[Error] title.pas(72): Array type required
[Error] title.pas(115): Array type required

We try to apply an index to a pointer to integer - that would be legal in C, but is not in Delphi.

In The Delphi language, we must tell the compiler that we intend P to point to an array of integers.

A continuación pongo el código que tuve que modificar:

Código Delphi [-]
//  AL_DATAFILEptr = ^AL_DATAFILE;
  AL_DATAFILE = RECORD
    dat : AL_PTR;    { pointer to the data  }
    ftype : AL_INT;    { object type  }
    size : AL_INT;    { size of the object  }
    prop : AL_DATAFILE_PROPERTYptr; { object properties  }
  END;
  type
  TDataFile_Array = array [0..80] of AL_DATAFILE; // Se declara como un arreglo
  AL_DATAFILEptr =^TDataFile_Array; // Apuntador al arreglo

Código Delphi [-]
(* information about an entire joystick *)
//  AL_JOYSTICK_INFOptr = ^AL_JOYSTICK_INFO;
  AL_JOYSTICK_INFO = RECORD
    flags : AL_INT;
    num_sticks : AL_INT;
    num_buttons : AL_INT;
    stick : ARRAY [0..(AL_MAX_JOYSTICK_STICKS)-1] OF AL_JOYSTICK_STICK_INFO;
    button : ARRAY [0..(AL_MAX_JOYSTICK_BUTTONS)-1] OF AL_JOYSTICK_BUTTON_INFO;
  END;
type
  TJoyInfo_Array = array [0..100] of AL_JOYSTICK_INFO; // Se declara como un arreglo
  AL_JOYSTICK_INFOptr = ^TJoyInfo_Array; // Apuntador al arreglo

Por último envía un error en tiempo de ejecución en la línea que pone el título en la ventana, simplemente la comenté.

Código Delphi [-]
//al_set_window_title ('Allegro.pas Demo Game');

Ahora sí puedo intentar hacer algo con la librería.

Saludos.

[Ñuño Martínez]

Gracias por la información, Hector. De momento la solución puede funcionar, aunque creo que no debería ser definitivamente así. He visto proyectos de Allegro con datafiles de más de 100 elementos.

Ya avisaré para que lo probéis y me digáis si funciona.

[[Héctor Randolph]]

Estoy de acuerdo, la solución fue provisional. En este caso pusé el número de elementos de manera arbitraria, pero antes eché un ojo sobre el archivo demo.inc para ver cuántos elementos había en el archivo demo.dat

Supongo que se tendrá que crear el arreglo dinámicamente o algo así, para ello necesitariamos saber de antemano cuántos elementos hay en el archivo DAT.

Lo importante es que ya estoy compilando y en cuanto tenga un espacio estaré jugando con la librería a ver que se me ocurre.

Nuevamente te digo Ñuño que has hecho un excelente trabajo.

Saludos