vlc

[Darcangel]

Как-то с работай 0.8.6 разобрался но в это версии не показывает flv , звук есть и длинна файла по продолжительности , но видео нету и неработает перемотка... Если можно дать ссылку на новую версию , более познию чем 0,8,6 , к примеру 1.1.11 желательно исходник. Зарание весьма благодарен

Вот кое како код моей пока крабо разборки)

unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, VLCLib, StdCtrls, ExtCtrls;

type
TMainForm = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
vlc:integer;
function call(const func:string; value:integer):integer;
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.dfm}

function TMainForm.call(const func:string; value:integer):integer;
begin
Result:=Value;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=(vlc=0);
if CanClose then exit;
call('VLC_CleanUp',VLC_CleanUp(vlc) );
call('VLC_Destroy',VLC_Destroy(vlc) );
vlc:=0;
end;


procedure TMainForm.FormCreate(Sender: TObject);
var
err :integer;
args:array[0..1] of pchar;
val :TValue;
begin
err:=VLD_Startup;
if err<>VLD_SUCCESS then
begin
case err of
VLD_NOTFOUND: ShowMessage('Библеотека повреждена либо не верная версия!');
VLD_NOLIB : ShowMessage('Не найдена необходимая библиотека!');
end;
Application.Terminate;
exit;
end;
vlc:=call('VLC_Create',VLC_Create);
args[0]:=pchar(VLD_LibPath);
args[1]:=nil;
call('VLC_Init',VLC_Init(vlc,1,@arg s[0]));
val.AsInteger:=Panel1.Width;
call('VLC_VariableSet',VLC_Variable Set(vlc,'conf::width',val));
val.AsInteger:=Panel1.Height;
call('VLC_VariableSet',VLC_Variable Set(vlc,'conf::height',val));
val.AsInteger:=Panel1.Handle;
call('VLC_VariableSet',VLC_Variable Set(vlc,'drawable',val));
Caption:=Caption+' [engine-0.14]';
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
s:string;
begin
if not OpenDialog1.Execute then exit;
s:=UTF8Encode(OpenDialog1.FileName) ;
call('VLC_AddTarget',VLC_AddTarget( vlc,PChar(s),nil,0,PLAYLIST_APPEND, PLAYLIST_END));
call('VLC_Play',VLC_Play(vlc));
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
call('VLC_Stop',VLC_Stop(vlc));
call('VLC_PlaylistClear',VLC_Playli stClear(vlc));
end;

procedure TMainForm.Button3Click(Sender: TObject);
begin
call('VLC_AddIntf',VLC_AddIntf(vlc, nil,False,False))
end;

end.

естесвенно в исходнике прилогается фмйл VLCLib.pas

[raxp]

...как то вы невнимательны ...вот оно откуда. Да и LibVLC есть поновее http://code.google.com/p/delphivlc/s...?spec=svn3&r=3.

[Darcangel]

огромное спасиба) помогло