Demo de la libreria Allegro.pas

[dec]

Hola,

Echa un vistazo a este hilo Héctor.

Actualización: Ahí se ve que Seoane propuso algunas soluciones, que parecen estar implementadas ya en Allegro, empero, probando a compilar en Delphi 2007 aún aparecen los problemas que tú has mencionado Héctor, y no sé muy bien cómo podrían solucionarse, la verdad. Me temo que me he adelantado al enlazar el hilo como la solución a dichos problemas, digo.

[Ñuño Martínez]

Menos mal que no se me a ocurrido decir que estaba terminado . Ahora estoy liado con la documentación (acabo de subir nuevas secciones y correcciones ) pero cuando la termine, si no me lían con otra cosa, reviso todo lo que pongáis en este hilo a ver si puedo solucionarlo.

Por el momento, si hay problemas con los punteros a listas (Arrays), prueba poniendo el acento circunflejo a ver:

Código Delphi [-]
IF al_joy^[0].button[0].b <> 0 THEN

Puede que Free Pascal haga la conversión de forma automática pero Delphi no.

Gracias.

[[egostar]]

Bueno, les dejo mis primeras observaciones.

Estoy usando Delphi4, al abrir Allegro.dpr me mandó un error de que la línea era muy larga, verificando el archivo encontré algo curioso, tuve que invertir los caracteres de LF y CR no recuerdo ahora como estaban pero los invertí de posición y ya pude compilarlo.

Al compilarlo me mando error de que no tenia una dcu.

Por desgracia no estoy en la maquina donde hice las pruebas para darte los detalles, pero en cuanto tenga acceso a esa computadora te los dejo saber.

Salud OS

[[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