Función desde ActionScrip2 a Delphi

[German]

Se que el tema es antiguo, pero no me he resistido a responder. Yo lo que hubiera hecho, para no complicarme la vida, es hacer la interfaz en Flash y utilizar las funciones que ya tienes, y mostrarlo en Delph (te puedes comunicar con el archivo flash desde Delphi y al revés)i. Se que en la actualidad Flash está tocado de muerte (según parece morirá definitivamente en 2020), pero se pueden hacer interfaces interesantes con él:



Por si alguien quiere descargarse el programa:

Desde DROPBOX
Desde MEGA
Desde MEDIAFIRE

Salu2.

[jhonalone]

Gracias, Germán.

Quizás todavía pudiera utilizar estas funciones, si supiera cómo conectar Delphi y Flash.
Pero no tengo ni idea de cómo se utiliza Flash.
No sé, si como dices, las funciones quedarían incluídas en el código del programa de Delphi.
Si esto no fuera así, no interesaría tener que acompañar el programa con los ficheros Flash.

Gracias por tu respuesta. Un saludo.

[German]

Puedes utilizar el componente SmartFlash de Almdev para tener el archivo Flash embebido en el EXE. Dispone de un método "CallFunction" para poder utilizar una función que incluya el archivo flash desde delphi, o "SetVariable" que cambia variables del archivo Flash desde Delpi también.

Además la interfaz respeta la transparencia del archivo Flash, como en el programa de ejemplo que puse:



Salu2.

[jhonalone]

Hola, Germán.
He descargado SmartFlash de prueba.
Tiene 5 componentes, que soportan solamente Windows, no Android, ni FMX.
Aún así no he conseguido encontrar, en ninguno de los componentes, las funciones que indicas.
No me resuelve nada si sólo funciona en Windows.
Agradezco infinito tu esfuerzo.
Saludos.

[German]

Lo siento, no he leído en ninguno de los mensajes que lo necesitaras para Android o FMX, supuse que era para Windows. En cuanto a las funciones que comenté, básicamente se utilizan 3 componentes... tsfFlashList que contiene el/los archivos Flash embebidos, tsfLayeredFlashForm para convertir el Form y respetar las transparencias del archivo Flash, y tsfFlashPlayer que es el que muestra el archivo Flash y es el que contiene las funciones para comunicarte con Flash. La idea en principio seria utilizar la interfaz y funciones ya creadas (en vez de tener que trasladarlo) y mostrar el resultado en un EXE de Delphi, aunque ya no se si era eso lo que buscabas.

[jhonalone]

Hola Germán.
Toda la razón. Nunca dije que lo intentaba usar multiplataforma. Lo siento.
Mi primera intención era traducir la función a Delphi para usarla en cualquier plataforma.
Estoy probando los componentes en Delphi XE5, (aunque ahora trabajo con Delphi 10 Seattle, para no contaminarlo con componentes de terceros)

He reportado dos dudas al soporte de SmartFlash y estas han sido sus respuestas:

Pregunta: "It is possible to use with FMX?"
Respuesta: "It only for VCL."

Pregunta: "Is it possible incorporate .FLA files?"
Respuesta: "No. You can't use fla."

La cuestión queda muy clara. Las dos funciones están en un archivo .FLA.

Me he bajado de la red un tutorial de Actionscript 2.

Ahora que tengo un poco más de tiempo, voy a intentar traducir las funciones a Delphi. Si lo consigo, las pondré en el foro por si alguien está interesado.

Gracias especialmente a Germán por su ayuda.
Saludos cordiales.

[[maeyanes]]

Hola...

Hacer una "traducción" de AS2 a Delphi no es tan simple. Muchas de las cosas que se pueden hacer en AS2, no son tan sencillas de realizar en Delphi, un ejemplo es la asignación de valores a un arreglo, en AS2 al hacer:

a = [];

a[10] = 534;

AS2 automáticamente agrega los elementos del 0 al 9 para completar el arreglo, cosa que con Delphi no se puede y te produce un error de Índice fuera de rango.

Dicho lo anterior, adjunto un archivo comprimido con dos clases, una unidad y un archivo .txt que es el código "traducido" de las dos funciones de AS2.

Las dos clases son TSudokuGenerator y TSudokuSolver, y como su nombre los indican, una se usa para generar los Sudokus y la otra para resolverlos.

La clase TSudokuGenerator contiene un método público Generate(const Level: Integer) al cual se le pasa como parámetro el nivel del Sudoku que se desea generar y al finalizar la ejecución de este método, en la propiedad Sudoku se puede acceder al Sudoku generado.

La clase TSudokuSolver se usa para resolver Sudokus y contiene un método Solve(const ASudoku: String) que recibe el Sudoku generado por la clase anterior y devuelve en la propiedad Sudoku el Sudoku ya resuelto.

Un par de capturas de pantalla:






Saludos...