Help:ActiveX program in Delphi

All you've ever wanted to know about the ActiveX, Mozilla plugins, the web interface and various PHP extensions
p2o5
New Cone
New Cone
Posts: 2
Joined: 18 Jul 2009 15:24

Help:ActiveX program in Delphi

Postby p2o5 » 18 Jul 2009 15:33

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, AXVLC_TLB;

type
TForm1 = class(TForm)
VLCPlugin21: TVLCPlugin2;
private
id1,id2,id3 :Integer;
.......

procedure TForm1.Button1Click(Sender: TObject);
Var
op : Array of String;
begin
setlength(op,2);
op[0]:=':aspect-ratio=4:3';
op[1]:='--rtsp-tcp';
id1:=VLCPlugin21.playlist.add('file://H:/share/film/Jumper.2008.TS.XVID-PREVAiL.avi','x1',':aspect-ratio=4:3');
id2:=VLCPlugin21.playlist.add('file://H:/share/film/JS-CD1.rmvb','x2',op);
id3:=VLCPlugin21.playlist.add('http://192.168.1.1:81','x3',op);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
VLCPlugin21.playlist.playItem(id1); //Why not working!!!!!!!!!!!!!! playItem(id2),playItem(id3) are same.....
end;
.......

Return to “Web and scripting”

Who is online

Users browsing this forum: No registered users and 5 guests