DSDL
1.0.0
DSDL - SDL para Delphi? é uma poderosa estrutura nativa da Delphi que integra os recursos robustos do SDL3 e suas bibliotecas relacionadas com recursos aprimorados, como animação de tempo de execução da Spine , reprodução de vídeo MPEG-1 e suporte de E/S baseado em ZIP . Esta biblioteca foi projetada para ajudar os desenvolvedores a criar jogos 2D modernos e de alto desempenho e aplicativos multimídia com eficiência.
SDL_IOStream do SDL.Caso de uso:
Caso de uso:
.json e .atlas .Caso de uso:
Caso de uso:
Caso de uso:
Clone ou faça o download do repositório:
git clone https://github.com/your-repo/dsdl.git
cd dsdlAdicione os arquivos da biblioteca ao seu projeto Delphi:
DSDL.pas (ou unidades relevantes) na sua fonte de projeto.Compile e execute seu projeto.
Aqui está como você inicializa uma janela, carrega ativos e usa a estrutura:
Inicializando o SDL e criando uma janela
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 ;Carregando animações da coluna
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 ;Tocando vídeos 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 ;Lendo de arquivos ZIP protegidos por senha
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 projeto usa as seguintes bibliotecas de código aberto:
DSDL é distribuído sob o? Licença de cláusula BSD-3 , permitindo redistribuição e uso em formulários de origem e binária, com ou sem modificação, sob condições específicas. Consulte o arquivo de licença para obter mais detalhes.
Agradecimentos especiais aos mantenedores de:
Explore a discussão aprofundada sobre o DSDL, seus recursos e seus casos de uso.
Carregue a animação da coluna do ZipFile
Reprodução de vídeo do zipfile
As contribuições para o DSDL são altamente encorajadas. Sinta -se à vontade para enviar problemas, sugerir novos recursos ou criar solicitações de puxar para expandir os recursos e a robustez do mecanismo de script.
Com o DSDL , você pode criar jogos e aplicativos 2D modernos e robustos sem esforço. Esteja você animando personagens, transmitindo vídeos ou gerenciando recursos seguros, o DSDL você cobriu! ?
Feito com ❤️ em Delphi
