DSDL
1.0.0
DSDL - SDL para Delphi? es un poderoso marco nativo de Delphi que integra las características robustas de SDL3 y sus bibliotecas relacionadas con capacidades mejoradas como la animación de tiempo de ejecución de la columna , la reproducción de video MPEG-1 y el soporte seguro de E/S basado en ZIP . Esta biblioteca está diseñada para ayudar a los desarrolladores a construir juegos modernos y de alto rendimiento y aplicaciones multimedia de manera eficiente.
SDL_IOStream de SDL.Caso de uso:
Caso de uso:
.json y .atlas .Caso de uso:
Caso de uso:
Caso de uso:
Clon o descargar el repositorio:
git clone https://github.com/your-repo/dsdl.git
cd dsdlAgregue los archivos de la biblioteca a su proyecto Delphi:
DSDL.pas (o unidades relevantes) en la fuente de su proyecto.Compilar y ejecutar su proyecto.
Así es como inicializa una ventana, carga activos y usa el marco:
Inicializar SDL y crear una ventana
uses
DSDL;
var
Window: PSDL_Window;
Renderer: PSDL_Renderer;
begin
if SDL_Init(SDL_INIT_VIDEO) <> 0 then
Exit;
Window := SDL_CreateWindow( ' DSDL Window ' , 100 , 100 , 800 , 600 , SDL_WINDOW_SHOWN);
Renderer := SDL_CreateRenderer(Window, - 1 , SDL_RENDERER_ACCELERATED or SDL_RENDERER_PRESENTVSYNC);
// Your code goes here...
SDL_DestroyWindow(Window);
SDL_Quit;
end ;Cargando animaciones de columna
var
Atlas: PspAtlas;
SkeletonData: PspSkeletonData;
Drawable: PspSkeletonDrawable;
begin
Atlas := spAtlas_createFromFile( ' data/spineboy-pma.atlas ' , Renderer);
SkeletonData := spSkeletonJson_readSkeletonDataFile(Atlas, ' data/spineboy-pro.json ' );
Drawable := spSkeletonDrawable_create(SkeletonData);
Drawable^.Skeleton^.X := 400 ;
Drawable^.Skeleton^.Y := 500 ;
// Update and draw skeleton
spSkeletonDrawable_update(Drawable, DeltaTime, SP_PHYSICS_UPDATE);
spSkeletonDrawable_draw(Drawable, Renderer);
end ;Reproduciendo videos MPEG-1
begin
// Load and play a video file from the ZIP archive.
SDL_LoadPlayVideoFromZipFile(LRenderer, ' Data.zip ' , ' res/videos/sample01.mpg ' , 0.1 , - 1 );
...
// Update video playback timing.
SDL_UpdateVideo(SDL_GetFramerateDuration());
...
// Render the video content.
SDL_RenderVideo(LRenderer, 0 , 0 , 0.5 );
end ;Lectura de archivos zip protegidos con contraseña
var
LRenderer: PSDL_Renderer;
LTexture: PSDL_Texture;
begin
...
// Load an image texture from the ZIP archive.
LTexture := IMG_LoadTexture_IO(LRenderer, SDL_IOFromZipFile( ' Data.zip ' ,
' res/images/cute_kitten.jpg ' ), True);
...
SDL_DestroyTexture(LTexture);
end ; uses
DSDL;
var
LWindow: PSDL_Window; // Pointer to the SDL window.
LRenderer: PSDL_Renderer; // Pointer to the SDL renderer.
LAtlas: PspAtlas; // Atlas for Spine animation textures.
LSkeletonJson: PspSkeletonJson; // JSON parser for Spine skeleton data.
LSkeletonData: PspSkeletonData; // Spine skeleton data.
LAnimationStateData: PspAnimationStateData; // State data for animation transitions.
LDrawable: PspSkeletonDrawable; // Drawable object for the Spine skeleton.
LEvent: SDL_Event; // Event structure for SDL event handling.
LQuit: Boolean; // Flag to control the main loop.
LLastFrameTime, LNow: UInt64; // Variables for frame timing.
LDeltaTime: Double; // Time elapsed between frames.
begin
// Initialize SDL video subsystem.
if not SDL_Init(SDL_INIT_VIDEO) then
begin
Writeln( ' Error: ' , SDL_GetError); // Print SDL initialization error.
Exit; // Exit if initialization fails.
end ;
// Create an SDL window with the specified title and size.
LWindow := SDL_CreateWindow( ' DSDL: Load spine animation from file ' , 800 , 600 , 0 );
if LWindow = nil then
begin
Writeln( ' Error: ' , SDL_GetError); // Print window creation error.
SDL_Quit; // Clean up SDL resources.
Exit;
end ;
// Create an SDL renderer for the window with OpenGL backend.
LRenderer := SDL_CreateRenderer(LWindow, ' opengl ' );
if LRenderer = nil then
begin
Writeln( ' Error: ' , SDL_GetError); // Print renderer creation error.
SDL_DestroyWindow(LWindow); // Destroy the created window.
SDL_Quit; // Clean up SDL resources.
Exit;
end ;
// Load the Spine animation atlas.
LAtlas := spAtlas_createFromFile( ' res/spine/spineboy/spineboy-pma.atlas ' , LRenderer);
// Create a skeleton JSON parser and scale the skeleton.
LSkeletonJson := spSkeletonJson_create(LAtlas);
LSkeletonJson.scale := 0.5 ;
// Read skeleton data from the JSON file.
LSkeletonData := spSkeletonJson_readSkeletonDataFile(LSkeletonJson,
' res/spine/spineboy/spineboy-pro.json ' );
// Create animation state data and set default transition mix.
LAnimationStateData := spAnimationStateData_create(LSkeletonData);
LAnimationStateData.defaultMix := 0.2 ;
// Create a drawable skeleton object and set its initial position.
LDrawable := spSkeletonDrawable_create(LSkeletonData, LAnimationStateData);
LDrawable.usePremultipliedAlpha := - 1 ; // Enable premultiplied alpha.
LDrawable.skeleton^.x := 400 ; // Set X position.
LDrawable.skeleton^.y := 500 ; // Set Y position.
// Set the skeleton to its setup pose.
spSkeleton_setToSetupPose(LDrawable.skeleton);
// Perform an initial skeleton update.
spSkeletonDrawable_update(LDrawable, 0 , SP_PHYSICS_UPDATE);
// Set initial animation state: 'portal' followed by 'run' (looped).
spAnimationState_setAnimationByName(LDrawable.animationState, 0 , ' portal ' , 0 );
spAnimationState_addAnimationByName(LDrawable.animationState, 0 , ' run ' , - 1 , 0 );
// Initialize the quit flag and timing variables.
LQuit := False;
LLastFrameTime := SDL_GetPerformanceCounter;
// Main event loop.
while not LQuit do
begin
// Poll SDL events.
while SDL_PollEvent(@LEvent) do
begin
// Exit the loop if a quit event is detected.
if LEvent.& type = SDL_EVENT_QUIT then
begin
LQuit := True;
Break;
end ;
end ;
// Clear the screen with a specified color.
SDL_SetRenderDrawColor(LRenderer, 94 , 93 , 96 , 255 );
SDL_RenderClear(LRenderer);
// Calculate delta time (time between frames) for smooth animation.
LNow := SDL_GetPerformanceCounter;
LDeltaTime := (LNow - LLastFrameTime) / SDL_GetPerformanceFrequency;
LLastFrameTime := LNow;
// Update the skeleton animation based on delta time.
spSkeletonDrawable_update(LDrawable, LDeltaTime, SP_PHYSICS_UPDATE);
// Draw the updated skeleton on the renderer.
spSkeletonDrawable_draw(LDrawable, LRenderer);
// Present the rendered frame to the window.
SDL_RenderPresent(LRenderer);
end ;Este proyecto utiliza las siguientes bibliotecas de código abierto:
DSDL se distribuye bajo el? Licencia de cláusula BSD-3 , que permite redistribución y uso en formularios de origen y binaria, con o sin modificación, en condiciones específicas. Consulte el archivo de licencia para obtener más detalles.
Un agradecimiento especial a los mantenedores de:
Explore la discusión en profundidad sobre DSDL, sus características y sus casos de uso.
Cargar animación de columna desde Zipfile
Reproducción de video de Zipfile
Las contribuciones a DSDL están muy alentadas. No dude en enviar problemas, sugerir nuevas funciones o crear solicitudes de extracción para expandir las capacidades y la robustez del motor de secuencias de comandos.
Con DSDL , puede construir juegos y aplicaciones sólidos y modernos de 2D sin esfuerzo. Ya sea que esté animando personajes, transmitiendo videos o administrando recursos seguros, ¡DSDL lo tiene cubierto! ?
Hecho con ❤️ en Delphi
