[SOLVED] Window SDL2 Drop Files

[Pe3s]

Hello forumers, what do I need to do to make sdl window support file drop ?

[metis]

Add a SDL-EventLoop, like...

Code: [Select]

uses
  sdl2, …

var
  aSdlEvent: TSDL_Event;
...

while True do
begin

  SDL_WaitEvent(@aSdlEvent);

  case aSdlEvent.type_ of

    SDL_DROPFILE:
    begin
      ...
    end;

  end;

end;


[Pe3s]

@metis you can combine code with sdl drop files

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of string);
2. var
3.   i: Integer;
4. begin
5.   for i:= Low(FileNames) to High(FileNames) do
6.   OpenVideo(FileNames[i]);
7. end;  
8.  

[metis]

@Pe3s

Your Code is for how to do it with a LCL-Form, but You asked how to do it with a SDL2-Window. 

[Pe3s]

@metis is it possible to write a video file renderer to support LCLForm?

[metis]

@Pe3s

If I get You right, you're asking, if it is possible to write a VideoPlayer, that runs inside a LCL-Form.

Yes, it is with a little Help of a VideoPlayback-Library, or (better ) with my FFmpeg-based Audio/Video-RenderingEngine 'FFPlay4Laz':
The latest Version with SDL2 is here, the latest Version with FFPlay4Laz-Library and Demo-LCL-GUI (but still SDL1) is here.

[Pe3s]

@metis, Thank you 

[Pe3s]

@metis, Hello, you need to write some procedure for this method that handles dropping files, because it doesn't work with Dropfiles?

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of string);
2. var
3.   aSdlEvent: TSDL_Event;
4. begin
5.   while True do
6.   begin
7.     SDL_WaitEvent(@aSdlEvent);
8.     case aSdlEvent.type_ of
9.       SDL_DROPFILE: begin
10.         OpenVideo(FileNames[0]);
11.       end;
12.     end;
13.   end;
14. end;
15.  

[metis]

See here, and GoTo "For how it's done, take a Look at that MediaPlayer's BasicStructure (Projectname: 'FFPlay4Laz')".
There You will find the complete FPC-Code to open SDL1- resp. SDL2-Windows and write EventLoops for them.
For the Dropfile-Event in particular, see here.

And, don't mix up
DropFile on a LCL-Form (that's, what You're trying all the Time ) with
DropFile on a SDL-Window (that's, what You've been asking for in Your OP).

[Pe3s]

Probably that's why I think wrong because the sdl window is displayed on the lcl form.
Regards

[metis]

Obviously, You attempt to code a VideoPlayer.
Why don't You simply take e.g. the VLC-Component as explained here:
http://lazplanet.blogspot.com/2018/01/how-to-make-simple-video-player-in.html.
It comes together with a complete Lazarus-Project - see the Attachment.
(I took out the Executable to get under the 500KB-Limit for Attachments.)

[Pe3s]

@metis, However, I will read more about SDL. Thank you for your patience. Regards

[metis]

You're welcome. 

Start with the Tutorials by 'Free Pascal meets SDL':
https://www.freepascal-meets-sdl.net/sdl-tutorials/

[Pe3s]

Hello @Metis, I looked at the source of your gui project and there is code to handle the drop file from the panel where the movie is displayed
What am I doing wrong that my code doesn't work?

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of string);
2. begin
3.   if (Application.GetControlAtMouse.Name = 'pnlScreen') then
4.   begin
5.     OpenVideo(FileNames[0]);
6.   end;
7. end;
8.  

[metis]

This Way, the first String in the Array of FileNames, that is dropped on Your LCL-Form is passed to 'OpenVideo()'.
But, what happens then in Your Code ?
What is 'OpenVideo()' doing ? (more than "it opens the video", please)

Hint:
This Code only works as long as the SDL-Window is not captured by the FFPlay4Laz-GUI.
Then, the Code above receives the FileNames, which are dropped on the captured SDL-Window.
(Note: This is not implemented in the FFPlay4Laz1-GUI, but it's proyected in the FFPlay4Laz2-GUI.)

Tip:
To answer to Your Questions, I/we need much more Infos.
It would be much easier, if You attach (Parts of) Your Code.