Hi Community
Ich möchte ein video mit vlc starten über einen Button in Delphi
dabei soll
vlc auf fullscream gestellt werden
dann soll das video abgespielt werden
anschließend soll vlc wieder geschlossen werden.
ich habe schon etwas über ShellExecute gelesen aber ich bekomme das nicht hin und ich finde auch keine richtigen Themen die mir wirklich helfen
das habe ich gefunden aber es geht nicht richtig
tvlcplugin wird nicht gefunden
und ich weiss jetzt auch nicht wo ich das plugin in delphi finde...
Delphi-Quellcode:
uses
Windows, Variants, Forms, Classes, Controls, StdCtrls, OleCtrls,
AXVLC_TLB;
type
TForm1 = class(TForm)
VLCPlugin31: TVLCPlugin3;
btnVideo1: TButton;
procedure btnVideo1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type
VLCPlaylistMode = TOleEnum;
const
VLCPlayListInsert = $00000001;
VLCPlayListReplace = $00000002;
VLCPlayListAppend = $00000004;
VLCPlayListGo = $00000008;
VLCPlayListCheckInsert = $00000010;
procedure TfrmTag1.btnVideo1Click(Sender: TObject);
begin
if VLCPlugin31.Visible = True then
begin
VLCPlugin31.Visible := False;
VLCPlugin31.Width := 0;
VLCPlugin31.Height := 0;
VLCPlugin31.stop; {PROBLEM---PROBLEM---PROBLEM}
end
else
begin
VLCPlugin31.Width := 320;
VLCPlugin31.Height := 240;
VLCPlugin31.Top := 48;
VLCPlugin31.Left := 568;
VLCPlugin31.Visible := True;
VLCPlugin31.addTarget('..\Videos\BKDMDL.mpg', null, VLCPlayListInsert, 0);
VLCPlugin31.play;
end;
end;
ich habe bestimmt einfach nur einen dummen fehler ....
pls help me