Freezing in Delphi 2009 on second play

[Derek McKinnon]

I have installed VLCPlugin2 into a form in Delphi as an ActiveX. I can open a file and show it on the screen with no apparent problems.

VLC1.playlist.add(memOrigFile.Text, 'x1','play-and-stop');
VLC1.playlist.play;

The problem occurs when I then use the same code to choose a different file to load.

VLC1.playlist.add(memOrigFile.Text, 'x1','play-and-stop');
VLC1.playlist.next;
VLC1.playlist.play;

On the second run through, after running the .next command, the screen goes blank and it freezes. (Occurs regardless of if the second file is the same as the first or not).

I have tried putting the following code in front of the above code, but it doesn't help.

If VLc1.playlist.itemCount > 0 then
if VLC1.playlist.isPlaying then
VLC1.playlist.stop;

The following set of code was then tried.

VLC1.playlist.clear;
VLC1.playlist.add(memOrigFile.Text, 'x1','play-and-stop');
VLC1.playlist.play;

This code ran all the way through. However the screen was still showing the final still from the first video, and it again froze.

I then put a button on the form with the following code.

VLC1.input.position := 0.01;
VLC1.playlist.stop;
VLC1.playlist.play;

After running through one video I pressed the button. After the stop line was run (but before play) the screen went black and it froze.

It appears that there is some problem refreshing the playlist. Any thoughts welcome.

[RSATom]

what VLC version are you using?

[Derek McKinnon]

When I run VLC Media Player (stand alone) it says 1.1.11.

I'm not sure how to check inside the IDE.

[RSATom]

You should use at least vlc 2.0 nightly. ActiveX in 1.1.11 is too buggy.

[Derek McKinnon]

I have tried the following code. I can click button 3 as often as I want and it works fine (apart from a memory leak). Button 4 leads to a freeze.



procedure TTFrmMedia.Button3Click(Sender: TObject);var
Reg: TRegistry;
begin
blVLCPluginFound := false;

// Is VLC ActiveX Plugin installed on this PC?
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKeyReadOnly('\Software\Classes\VideoLAN.VLCPlugin.1\') then begin
blVLCPluginFound := true;
end;
finally
FreeAndNil(Reg);
end;

if blVLCPluginFound then begin
VLCPlugin1 := TVLCPlugin2.Create(Self);
VLCPlugin1.Parent := Self; // Means: Place the VLC-Player into Form1
VLCPlugin1.Align := alClient;
VLC1.Visible := false;
VLCPlugin1.Show;
VLCPlugin1.playlist.add(memOrigFile.Text, 'x1','play-and-stop');
// you can use any MRL with parameters instead of 'c:\video.mpg' here
VLCPlugin1.playlist.play;
end else begin
ShowMessage('I am really sorry, but VLC (or its ActiveX Plugin) is currently not installed on this PC!');
end;
end;


procedure TTFrmMedia.Button4Click(Sender: TObject);begin
if blVLCPluginFound then begin
blVLCPluginFound := false;
VLCPlugin1.playlist.stop;
FreeAndNil(VLCPlugin1);
end;

[Derek McKinnon]

Where do I get version 2.0?

[RSATom]

http://nightlies.videolan.org/build/win32/?C=M;O=D

[Derek McKinnon]

Version 2 still looks a little too much in beta for my tastes. I'm having trouble with the wrapper as well. Any other ideas?

[RSATom]

It will be good if you give me sample application for tests.

[Derek McKinnon]

Can you PM me your email address. Thanks

[RSATom]

done