DElphi player

@NTC Inc · Регистрация: 27.02.2014

Author24 — интернет-сервис помощи студентам

Не могу запрограммировать по полной плеер .кто может помогите с уважением( и заранее спасибо (Игорь)) .
http://yadi.sk/d/Iu958pmAJeBJy

raxp · 27.02.2014, 17:38

1- что значит "по полной", задавайте конкретные вопросы и очерчивайте конкретные проблемы
2- и что там, на какахостинге? В чем проблема приложить к посту?

@NTC Inc · 27.02.2014, 18:29 **[ТС]**

Мне нужно в видеоплеере 1 плей лист на большое количество тегов, 2 сделать поддержку форматов основных ;и т д 4. а также плавную загрузку видео +5 буфер для скорости самой программы
все файлы программы(http://yadi.sk/d/zaZcdwGxJeXmY)

raxp · 27.02.2014, 20:14

1 плей лист на большое количество тегов

на какое большое количество?

2 сделать поддержку форматов основных ;

каких основных? Это определяется технологией доступа к данным. Не видно вашего кода.

и т д

и так далее что?

4. а также плавную загрузку видео

что вы подразуемваете под плавной загрузкой видео?

+5 буфер для скорости

буфер для скорости чего?

все файлы программы

вопрос не изменился, что мешает приложить тут?

@NTC Inc · 28.02.2014, 12:59 **[ТС]**

Треков до 500 . основные форматы AVI MP4 ACC MP3 и другие , чтобы программа могла понимать отдельно аудио и видео форматы и соответствующее окно открывать либо окно аудио либо окно видео. ИТД - чтобы все компоненты работали Плавно и загрузка была равномерной относительно других элементов . Плавная загрузка видео - видео не должно замедлятся или наоборот . + чтобы шла перемотка видео позиции и смотреть можно с любого места видео . чтобы показывало точную длину видео или музыки в формате 00:00:00 . буфер или по другому кусок памяти(нужный для корректной работы программы и её быстродействия) который не сама операционная определяет а программа.
что мешает-там не то что мне нужно

raxp · 28.02.2014, 14:49

основные форматы AVI MP4 ACC MP3 и другие , чтобы программа могла понимать отдельно аудио и видео форматы

тогда только одна рекомендация - использовать DirectShow, будет воспроизводиться все на что есть кодек в ОС. Что у вас использовано - не видно.

и соответствующее окно открывать либо окно аудио либо окно видео.

добавляете фильтр по расширению файла, либо анализируете граф фильтров при ручном построении.

ИТД - чтобы все компоненты работали Плавно и загрузка была равномерной относительно других элементов .

какие компоненты?

Плавная загрузка видео - видео не должно замедлятся или наоборот .

WinOS не система реального времени, приоритет может быть уделен другому процессу и ничего с этим вы не сделаете. Что до замедения и ускорения видео, то для этого, скажем в DirectShow, используется специальный интерфейс IMediaPosition и его метод put_Rate(), так что вам это не грозит.

+ чтобы шла перемотка видео позиции и смотреть можно с любого места видео .IMediaPosition

для этого у того же интерфейса IMediaPosition есть методы get_Duration(), get_CurrentPosition() и set_CurrentPosition()/

чтобы показывало точную длину видео или музыки в формате 00:00:00 .

используете форматирование из миллисекунд через Format().

буфер или по другому кусок памяти(нужный для корректной работы программы и её быстродействия) который не сама операционная определяет а программа.

вообще ни о чем.

что мешает-там не то что мне нужно

в третий раз повторяю вопрос: "что мешает выложить код или приложить код в посту?". Для этого используйте кнопку "скрепка" в редакторе поста.

@NTC Inc · 28.02.2014, 15:03 **[ТС]**

извините до меня дошло вот код

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, MPlayer, ComCtrls,MMSystem, jpeg,shellapi,
  Menus, Unit7, Buttons;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Panel2: TPanel;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button5: TButton;
    TrackBar1: TTrackBar;
    Image1: TImage;
    Timer3: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    ProgressBar1: TProgressBar;
    MediaPlayer1: TMediaPlayer;
    Image2: TImage;
    TrackBar2: TTrackBar;
    Timer4: TTimer;
    Label3: TLabel;
    Timer5: TTimer;
    Button4: TButton;
    ProgressBar2: TProgressBar;
    Timer6: TTimer;
    Button6: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Button7: TButton;
    Panel3: TPanel;
    ListBox1: TListBox;
    Timer7: TTimer;
    Image3: TImage;
    Image4: TImage;
    Label4: TLabel;
    Label5: TLabel;
    Image5: TImage;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
    procedure TrackBar2Change(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button6Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer7Timer(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
 
    
  private
    { Private declarations }
     procedure WMDropFiles( var Msg:TWMDropFiles);message WM_DropFiles;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  PC:string;
  stroc2,stroc3,ctroc4:string;
  CFileName:array[0..MAX_Path] of char;
  i,v,a,b,c,l,w,w1,r,t,ta,mn,nm,ib:integer;
  p,f,y,j,VR,stroc,stroc1,zx:string;
implementation
 
uses unit3,unit2,unit4,unit8, Unit9,unit6,unit10;
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
panel1.Height:=0;
timer1.Enabled:=false;
 
end;
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
zx:='AVN Player -';
ib:=0;
nm:=0;
mn:=0;
panel3.Width:=0;
keypreview:=true;
ta:=0;
dragacceptfiles(handle,true);
w1:=1;
w:=0;
i:=0;
v:=0;
a:=0;
b:=0;
c:=0;
l:=0;
Panel2.Height:=0;
 trackbar2.Height:=0;
progressbar2.Width:=0;
button6.Height:=0;
 
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 
panel1.Height:=60;
timer2.Enabled:=false;
 
end;
 
procedure TForm1.Panel2Click(Sender: TObject);
begin
 
if v=0 then
begin
if form2.Button2.Enabled=false then
begin
r:=1024;
t:=600;
end;
if form2.Button3.Enabled=false then
begin
r:=1024;
t:=768;
end;
if form2.Button4.Enabled=false then
begin
r:=1200;
t:=720;
end;
if form2.Button5.Enabled=false then
begin
r:=1200;
t:=1088;
end;
if form2.Button7.Enabled=false then
begin
r:=1920;
t:=1080;
end;
if form2.Button11.Enabled=false then
begin
r:=1024;
t:=500;
end;
timer1.Enabled:=true;
panel2.Align:=alClient;
v:=1;
mediaplayer1.DisplayRect:=rect(0,0,r,t);
end
else
begin
timer2.Enabled:=true;
panel2.Align:=alNone;
panel2.Height:=377;
panel2.Width:=681;
v:=0;
mediaplayer1.DisplayRect:=rect(0,0,681,377);
end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
MediaPlayer1.Pause;
if c=0 then
begin
timer3.Enabled:=false;
timer4.Enabled:=false;
c:=1;
end
else
if c=1 then
begin
timer3.Enabled:=true;
timer4.Enabled:=true;
c:=0;
end;
 
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var u:string;
begin
 ib:=ib+1;
timer3.Enabled:=false;
timer4.Enabled:=false;
label1.Caption:='';
label2.Caption:='';
a:=0;
b:=0;
f:='.avi';
p:='.mp4';
mediaplayer1.Refresh;
panel1.Align:=alnone;
panel1.Height:=65;
panel2.Height:=0;
opendialog1.FileName:='';
if opendialog1.Execute then
begin
j:=opendialog1.FileName;
progressbar1.Position:=0;
MediaPlayer1.FileName:=opendialog1.FileName;
u:=extractfileext(opendialog1.FileName);
if u=p then
begin
button6.Height:=33;
r:=1024;
t:=768;
trackbar2.Height:=0;
panel2.Height:=337;
mediaplayer1.Refresh;
MediaPlayer1.Display:=panel2;
mediaplayer1.Open;
mediaplayer1.DisplayRect:=Rect(0,0,681,377);
end
else
mediaplayer1.Open;
progressbar1.Max:=mediaplayer1.Length;
mediaplayer1.Refresh;
trackbar2.Max:=mediaplayer1.Length;
end;
if u=f then
begin
r:=1024;
t:=768;
trackbar2.Height:=0;
panel2.Height:=337;
mediaplayer1.Refresh;
MediaPlayer1.Display:=panel2;
mediaplayer1.Open;
mediaplayer1.DisplayRect:=Rect(0,0,681,377);
end;  { процедура открытия проверки сопостовления}
listbox1.Items.Add(extractfilename(j));
if ib=1 then
begin
 
stroc:=j;
end;
if ib=2 then
begin
stroc1:=j;
end;
if ib=3 then
begin
stroc3:=j;
end;
if ib=4 then
begin
stroc2:=j;
end;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
a:=0;
b:=0;
MediaPlayer1.Stop;
MediaPlayer1.FileName:=j;
mediaplayer1.Open;
timer3.Enabled:=false;
label1.Caption:='';
label2.Caption:='';
progressbar1.Position:=0;
timer4.Enabled:=false;
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
var l:longword;
begin
progressbar2.Width:=185;
l:=6500*(TrackBar1.Position);
l:=l+(l shl 16);
waveOutSetVolume(WAVE_MAPPER,l);
timer6.Enabled:=true;
progressbar2.Max:=trackbar1.Max;
progressbar2.Position:=trackbar1.Position;
end;
 
 
 
procedure TForm1.Button5Click(Sender: TObject);
begin
form3.Show;
 
end;
 
procedure TForm1.Timer3Timer(Sender: TObject) ;
begin
progressbar1.Position:=mediaplayer1.Position;
 
if progressbar1.Position=progressbar1.Max  then
begin
progressbar1.Position:=0;
timer3.Enabled:=false;
timer4.Enabled:=false;
a:=0;
b:=0;
label1.Caption:='';
label2.Caption:='';
end;
end;
 
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
var s,x,q:string;
begin
 MediaPlayer1.Display:=panel2;
panel2.Height:=337;
x:=extractFileext(j);
 
s:='.mp3';
 
q:=extractfilename(j);
if x=s then
begin
trackbar2.Height:=33;
panel2.Height:=0;
panel1.Align:=alclient;
end;
 
 
 
 
 timer5.Enabled:=true;
timer4.Enabled:=true;
timer3.Enabled:=true;
mediaplayer1.Play;
label3.Caption:=q;
if x=p then
begin
timer5.Enabled:=false;
mediaplayer1.DisplayRect:=rect(0,0,681,377);
end;
end;
 
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
mediaplayer1.Position:=trackbar2.Position;
label1.Caption:='';
label2.Caption:='';
timer4.Enabled:=false;
mediaplayer1.Play;
end;
 
procedure TForm1.Timer4Timer(Sender: TObject);
begin
a:=a+1;
if a=60 then
begin
a:=0;
b:=b+1;
end;
label1.Caption:=inttostr(a);
label2.Caption:=inttostr(b);
end;
 
procedure TForm1.Timer5Timer(Sender: TObject);
begin
Application.ProcessMessages;
label3.Left:=label3.Left+1;
if label3.Left=1000  then
begin
label3.Left:=0;
end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
form2.button2.Enabled:=true;
form2.button3.Enabled:=true;
form2.button4.Enabled:=true;
form2.button5.Enabled:=true;
form2.button7.Enabled:=true;
form2.button11.Enabled:=true;
form2.Show;
end;
 
procedure TForm1.Timer6Timer(Sender: TObject);
begin
w:=w+1;
if w=3 then
begin
progressbar2.Width:=0;
timer6.Enabled:=false;
w:=0;
end;
end;
 
procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 
if Button=mbMiddle then
begin
form2.Show;
end;
if button=mbRight then
begin
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.y);
 
end;
 
 
end;
 
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var u:string;
begin
ib:=ib+1;
timer3.Enabled:=false;
timer4.Enabled:=false;
label1.Caption:='';
label2.Caption:='';
a:=0;
b:=0;
mediaplayer1.Refresh;
panel1.Align:=alnone;
panel1.Height:=65;
panel2.Height:=0;
opendialog1.FileName:='';
p:='.mp4';
try
if dragQueryfile(Msg.Drop,0,CFileName,Max_Path)>0 then
begin
 
PC:=CfileName;
 
 
Msg.Result:=0;
end;
finally
DragFinish(msg.Drop);
end;
progressbar1.Position:=0;
j:=string(PC);
mediaplayer1.FileName:=j;
mediaplayer1.Open;
listbox1.Items.Add(extractfilename(j));
if ib=1 then
begin
 stroc:=j;
end;
if ib=2 then
begin
stroc1:=j;
end;
if ib=3 then
begin
 stroc3:=j;
end;
if ib=4 then
begin
stroc2:=j;
end;
u:=extractfileext(j);
if u=p then
begin
r:=1024;
t:=768;
trackbar2.Height:=0;
panel2.Height:=337;
mediaplayer1.Refresh;
MediaPlayer1.Display:=panel2;
mediaplayer1.Open;
mediaplayer1.DisplayRect:=Rect(0,0,681,377);
button6.Height:=33;
button7.Click;
end;
progressbar1.Max:=mediaplayer1.Length;
trackbar2.Max:=mediaplayer1.Length;
 
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
if MediaPlayer1.FileName<>'' then
begin
j:=mediaplayer1.FileName;
form1.Button3.Click;
form8.Label2.Caption:=j;
mediaplayer1.FileName:='';
mediaplayer1.Refresh;
mediaplayer1.Close;
form9.MediaPlayer5.FileName:=j;
j:='';
form8.Timer1.Enabled:=true;
form1.Hide;
form8.Show;
 
end;
 
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
if opendialog1.Execute=true then
begin
 
button3.Click;
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
button7.Click;
mediaplayer1.DisplayRect:=rect(0,0,r,t);
end;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
var s,x,q:string;
begin
 MediaPlayer1.Display:=panel2;
panel2.Height:=337;
x:=extractFileext(j);
 
s:='.mp3';
 
q:=extractfilename(j);
if x=s then
begin
trackbar2.Height:=33;
panel2.Height:=0;
panel1.Align:=alclient;
end;
 
 
 
 
 timer5.Enabled:=true;
timer4.Enabled:=true;
timer3.Enabled:=true;
mediaplayer1.Play;
form1.Caption:=ZX+q;
label3.Caption:=q;
if x=p then
begin
if form10.CloseQuery=true then
begin
form1.Show;
form10.Hide;
form10.Close;
 
 
 
end;
timer5.Enabled:=false;
mediaplayer1.DisplayRect:=rect(0,0,681,377);
end;
 
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key=Vk_F1) then
begin
ShellExecute(Handle,nil,PChar(j),nil,nil,SW_Normal);
button3.Click;
end;
if (Key=Vk_F2) then
begin
form6.Show;
end;
if (Key=Vk_F3)  then
begin
form4.Label2.Caption:=extractfilename(j);
form4.Label4.Caption:=extractfileext(j);
form4.Label6.Caption:=extractfilepath(j);
form4.Show;
end;
end;
 
procedure TForm1.Timer7Timer(Sender: TObject);
begin
mn:=mn+4;
panel3.Width:=mn;
if mn=160 then
begin
timer7.Enabled:=false;
mn:=0;
end;
end;
 
procedure TForm1.Image3Click(Sender: TObject);
begin
if   nm=0 then
begin
timer7.Enabled:=true;
nm:=1;
end
else
if nm=1 then
begin
timer7.Enabled:=false;
nm:=0;
panel3.Width:=0;
end;
end;
 
procedure TForm1.Panel3Click(Sender: TObject);
begin
if   nm=0 then
begin
timer7.Enabled:=true;
nm:=1;
end
else
if nm=1 then
begin
timer7.Enabled:=false;
nm:=0;
panel3.Width:=0;
end;
end;
 
procedure TForm1.Image4Click(Sender: TObject);
begin
if   nm=0 then
begin
timer7.Enabled:=true;
nm:=1;
end
else
if nm=1 then
begin
timer7.Enabled:=false;
nm:=0;
panel3.Width:=0;
end;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
label3.Caption:='';
if listbox1.ItemIndex=0 then
begin
button3.Click;
mediaplayer1.FileName:=stroc;
j:=stroc;
mediaplayer1.Open;
label3.Caption:=extractfilename(stroc);
button7.Click;
end;
if listbox1.ItemIndex=1 then
begin
button3.Click;
mediaplayer1.FileName:=stroc1;
j:=stroc1;
mediaplayer1.Open;
label3.Caption:=extractfilename(stroc1);
button7.Click;
end;
if listbox1.ItemIndex=2 then
begin
button3.Click;
mediaplayer1.FileName:=stroc3;
j:=stroc3;
mediaplayer1.Open;
label3.Caption:=extractfilename(stroc3);
button7.Click;
end;
if listbox1.ItemIndex=3 then
begin
button3.Click;
mediaplayer1.FileName:=stroc2;
j:=stroc2;
mediaplayer1.Open;
label3.Caption:=extractfilename(stroc2);
button7.Click;
end;
end;
 
 
procedure TForm1.Image2Click(Sender: TObject);
begin
form10.Show;
form1.Hide;
end;
 
procedure TForm1.Image5Click(Sender: TObject);
begin
form10.Show;
form1.Hide;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
listbox1.Items.Clear;
stroc:='';
ib:=0;
stroc2:='';
stroc1:='';
stroc3:='';
end;
 
end.

raxp · 28.02.2014, 16:08

1- используйте теги для оформления кода, ваш код нечитаем.
2- использованный вами компонент-обертка tmediaplayer над методами MCI не обеспечит ваши запросы и переделке подлежит практически всё, используйте DirectShow или ActiveX WindowsMediaPlayer.

@NTC Inc · 01.03.2014, 11:45 **[ТС]**

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, MPlayer, ComCtrls,MMSystem, jpeg,shellapi,
  Menus, Unit7, Buttons;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Panel2: TPanel;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button5: TButton;
    TrackBar1: TTrackBar;
    Image1: TImage;
    Timer3: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    ProgressBar1: TProgressBar;
    MediaPlayer1: TMediaPlayer;
    Image2: TImage;
    TrackBar2: TTrackBar;
    Timer4: TTimer;
    Label3: TLabel;
    Timer5: TTimer;
    Button4: TButton;
    ProgressBar2: TProgressBar;
    Timer6: TTimer;
    Button6: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Button7: TButton;
    Panel3: TPanel;
    ListBox1: TListBox;
    Timer7: TTimer;
    Image3: TImage;
    Image4: TImage;
    Label4: TLabel;
    Label5: TLabel;
    Image5: TImage;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
    procedure TrackBar2Change(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button6Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer7Timer(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
 
    
  private
    { Private declarations }
     procedure WMDropFiles( var Msg:TWMDropFiles);message WM_DropFiles;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  PC:string;
  stroc2,stroc3,ctroc4:string;
  CFileName:array[0..MAX_Path] of char;
  i,v,a,b,c,l,w,w1,r,t,ta,mn,nm,ib:integer;
  p,f,y,j,VR,stroc,stroc1,zx:string;
implementation
 
uses unit3,unit2,unit4,unit8, Unit9,unit6,unit10;
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
panel1.Height:=0;
timer1.Enabled:=false;
 
end;
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);// основные переменные
begin
zx:='AVN Player -';
ib:=0;
nm:=0;
mn:=0;
panel3.Width:=0;
keypreview:=true;
ta:=0;
dragacceptfiles(handle,true);
w1:=1;
w:=0;
i:=0;
v:=0;
a:=0;
b:=0;
c:=0;
l:=0;
Panel2.Height:=0;
 trackbar2.Height:=0;
progressbar2.Width:=0;
button6.Height:=0;
 
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 
panel1.Height:=60;
timer2.Enabled:=false;
 
end;
 
procedure TForm1.Panel2Click(Sender: TObject); // уменьшение расширение видео окна  и его основные функции
begin
 
if v=0 then
begin
if form2.Button2.Enabled=false then
begin
r:=1024;
t:=600;
end;
if form2.Button3.Enabled=false then
begin
r:=1024;
t:=768;
end;
if form2.Button4.Enabled=false then
begin
r:=1200;
t:=720;
end;
if form2.Button5.Enabled=false then
begin
r:=1200;
t:=1088;
end;
if form2.Button7.Enabled=false then
begin
r:=1920;
t:=1080;
end;
if form2.Button11.Enabled=false then
begin
r:=1024;
t:=500;
end;
timer1.Enabled:=true;
panel2.Align:=alClient;
v:=1;
mediaplayer1.DisplayRect:=rect(0,0,r,t);
end
else
begin
timer2.Enabled:=true;
panel2.Align:=alNone;
panel2.Height:=377;
panel2.Width:=681;
v:=0;
mediaplayer1.DisplayRect:=rect(0,0,681,377);
end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject); // пауза
begin
MediaPlayer1.Pause;
if c=0 then
begin
timer3.Enabled:=false;
timer4.Enabled:=false;
c:=1;
end
else
if c=1 then
begin
timer3.Enabled:=true;
timer4.Enabled:=true;
c:=0;
end;
 
 
end;
 
procedure TForm1.Button1Click(Sender: TObject); // открытие файла
var u:string;
begin
 ib:=ib+1;
timer3.Enabled:=false;
timer4.Enabled:=false;
label1.Caption:='';
label2.Caption:='';
a:=0;
b:=0;
f:='.avi';
p:='.mp4';
mediaplayer1.Refresh;
panel1.Align:=alnone;
panel1.Height:=65;
panel2.Height:=0;
opendialog1.FileName:='';
if opendialog1.Execute then
begin
j:=opendialog1.FileName;
progressbar1.Position:=0;
MediaPlayer1.FileName:=opendialog1.FileName;
u:=extractfileext(opendialog1.FileName);
if u=p then
begin
button6.Height:=33;
r:=1024;
t:=768;
trackbar2.Height:=0;
panel2.Height:=337;
mediaplayer1.Refresh;
MediaPlayer1.Display:=panel2;
mediaplayer1.Open;
mediaplayer1.DisplayRect:=Rect(0,0,681,377);
end
else
mediaplayer1.Open;
progressbar1.Max:=mediaplayer1.Length;
mediaplayer1.Refresh;
trackbar2.Max:=mediaplayer1.Length;
end;
if u=f then
begin
r:=1024;
t:=768;
trackbar2.Height:=0;
panel2.Height:=337;
mediaplayer1.Refresh;
MediaPlayer1.Display:=panel2;
mediaplayer1.Open;
mediaplayer1.DisplayRect:=Rect(0,0,681,377);
end;  { процедура открытия проверки сопостовления}
listbox1.Items.Add(extractfilename(j));
if ib=1 then
begin
 
stroc:=j;
end;
if ib=2 then
begin
stroc1:=j;
end;
if ib=3 then
begin
stroc3:=j;
end;
if ib=4 then
begin
stroc2:=j;
end;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject); // стоп 
begin
a:=0;
b:=0;
MediaPlayer1.Stop;
MediaPlayer1.FileName:=j;
mediaplayer1.Open;
timer3.Enabled:=false;
label1.Caption:='';
label2.Caption:='';
progressbar1.Position:=0;
timer4.Enabled:=false;
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
var l:longword;
begin
progressbar2.Width:=185;
l:=6500*(TrackBar1.Position);
l:=l+(l shl 16);
waveOutSetVolume(WAVE_MAPPER,l);
timer6.Enabled:=true;
progressbar2.Max:=trackbar1.Max;
progressbar2.Position:=trackbar1.Position;
end;
 
 
 
procedure TForm1.Button5Click(Sender: TObject); // внешняя программа
begin
form3.Show;
 
end;
 
procedure TForm1.Timer3Timer(Sender: TObject) ;// элемент времени видео
begin
progressbar1.Position:=mediaplayer1.Position;
 
if progressbar1.Position=progressbar1.Max  then
begin
progressbar1.Position:=0;
timer3.Enabled:=false;
timer4.Enabled:=false;
a:=0;
b:=0;
label1.Caption:='';
label2.Caption:='';
end;
end;
 
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;//кнопка play
  var DoDefault: Boolean);
var s,x,q:string;
begin
 MediaPlayer1.Display:=panel2;
panel2.Height:=337;
x:=extractFileext(j);
 
s:='.mp3';
 
q:=extractfilename(j);
if x=s then
begin
trackbar2.Height:=33;
panel2.Height:=0;
panel1.Align:=alclient;
end;
 
 
 
 
 timer5.Enabled:=true;
timer4.Enabled:=true;
timer3.Enabled:=true;
mediaplayer1.Play;
label3.Caption:=q;
if x=p then
begin
timer5.Enabled:=false;
mediaplayer1.DisplayRect:=rect(0,0,681,377);
end;
end;
 
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
mediaplayer1.Position:=trackbar2.Position;
label1.Caption:='';
label2.Caption:='';
timer4.Enabled:=false;
mediaplayer1.Play;
end;
 
procedure TForm1.Timer4Timer(Sender: TObject);
begin
a:=a+1;
if a=60 then
begin
a:=0;
b:=b+1;
end;
label1.Caption:=inttostr(a);
label2.Caption:=inttostr(b);
end;
 
procedure TForm1.Timer5Timer(Sender: TObject);// бегущая строка 
begin
Application.ProcessMessages;
label3.Left:=label3.Left+1;
if label3.Left=1000  then
begin
label3.Left:=0;
end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
form2.button2.Enabled:=true;
form2.button3.Enabled:=true;
form2.button4.Enabled:=true;
form2.button5.Enabled:=true;
form2.button7.Enabled:=true;
form2.button11.Enabled:=true;
form2.Show;
end;
 
procedure TForm1.Timer6Timer(Sender: TObject);
begin
w:=w+1;
if w=3 then
begin
progressbar2.Width:=0;
timer6.Enabled:=false;
w:=0;
end;
end;
 
procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton; // функция видео окна 
  Shift: TShiftState; X, Y: Integer);
begin
 
if Button=mbMiddle then
begin
form2.Show;
end;
if button=mbRight then
begin
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.y);
 
end;
 
 
end;
 
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);// перенос на форму
var u:string;
begin
ib:=ib+1;
timer3.Enabled:=false;
timer4.Enabled:=false;
label1.Caption:='';
label2.Caption:='';
a:=0;
b:=0;
mediaplayer1.Refresh;
panel1.Align:=alnone;
panel1.Height:=65;
panel2.Height:=0;
opendialog1.FileName:='';
p:='.mp4';
try
if dragQueryfile(Msg.Drop,0,CFileName,Max_Path)>0 then
begin
 
PC:=CfileName;
 
 
Msg.Result:=0;
end;
finally
DragFinish(msg.Drop);
end;
progressbar1.Position:=0;
j:=string(PC);
mediaplayer1.FileName:=j;
mediaplayer1.Open;
listbox1.Items.Add(extractfilename(j));
if ib=1 then
begin
 stroc:=j;
end;
if ib=2 then
begin
stroc1:=j;
end;
if ib=3 then
begin
 stroc3:=j;
end;
if ib=4 then
begin
stroc2:=j;
end;
u:=extractfileext(j);
if u=p then
begin
r:=1024;
t:=768;
trackbar2.Height:=0;
panel2.Height:=337;
mediaplayer1.Refresh;
MediaPlayer1.Display:=panel2;
mediaplayer1.Open;
mediaplayer1.DisplayRect:=Rect(0,0,681,377);
button6.Height:=33;
button7.Click;
end;
progressbar1.Max:=mediaplayer1.Length;
trackbar2.Max:=mediaplayer1.Length;
 
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
if MediaPlayer1.FileName<>'' then
begin
j:=mediaplayer1.FileName;
form1.Button3.Click;
form8.Label2.Caption:=j;
mediaplayer1.FileName:='';
mediaplayer1.Refresh;
mediaplayer1.Close;
form9.MediaPlayer5.FileName:=j;
j:='';
form8.Timer1.Enabled:=true;
form1.Hide;
form8.Show;
 
end;
 
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
if opendialog1.Execute=true then
begin
 
button3.Click;
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
button7.Click;
mediaplayer1.DisplayRect:=rect(0,0,r,t);
end;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
var s,x,q:string;
begin
 MediaPlayer1.Display:=panel2;
panel2.Height:=337;
x:=extractFileext(j);
 
s:='.mp3';
 
q:=extractfilename(j);
if x=s then
begin
trackbar2.Height:=33;
panel2.Height:=0;
panel1.Align:=alclient;
end;
 
 
 
 
 timer5.Enabled:=true;
timer4.Enabled:=true;
timer3.Enabled:=true;
mediaplayer1.Play;
form1.Caption:=ZX+q;
label3.Caption:=q;
if x=p then
begin
if form10.CloseQuery=true then
begin
form1.Show;
form10.Hide;
form10.Close;
 
 
 
end;
timer5.Enabled:=false;
mediaplayer1.DisplayRect:=rect(0,0,681,377);
end;
 
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key=Vk_F1) then
begin
ShellExecute(Handle,nil,PChar(j),nil,nil,SW_Normal);
button3.Click;
end;
if (Key=Vk_F2) then
begin
form6.Show;
end;
if (Key=Vk_F3)  then
begin
form4.Label2.Caption:=extractfilename(j);
form4.Label4.Caption:=extractfileext(j);
form4.Label6.Caption:=extractfilepath(j);
form4.Show;
end;
end;
 
procedure TForm1.Timer7Timer(Sender: TObject);
begin
mn:=mn+4;
panel3.Width:=mn;
if mn=160 then
begin
timer7.Enabled:=false;
mn:=0;
end;
end;
 
procedure TForm1.Image3Click(Sender: TObject);
begin
if   nm=0 then
begin
timer7.Enabled:=true;
nm:=1;
end
else
if nm=1 then
begin
timer7.Enabled:=false;
nm:=0;
panel3.Width:=0;
end;
end;
 
procedure TForm1.Panel3Click(Sender: TObject);
begin
if   nm=0 then
begin
timer7.Enabled:=true;
nm:=1;
end
else
if nm=1 then
begin
timer7.Enabled:=false;
nm:=0;
panel3.Width:=0;
end;
end;
 
procedure TForm1.Image4Click(Sender: TObject);
begin
if   nm=0 then
begin
timer7.Enabled:=true;
nm:=1;
end
else
if nm=1 then
begin
timer7.Enabled:=false;
nm:=0;
panel3.Width:=0;
end;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
label3.Caption:='';
if listbox1.ItemIndex=0 then
begin
button3.Click;
mediaplayer1.FileName:=stroc;
j:=stroc;
mediaplayer1.Open;
label3.Caption:=extractfilename(stroc);
button7.Click;
end;
if listbox1.ItemIndex=1 then
begin
button3.Click;
mediaplayer1.FileName:=stroc1;
j:=stroc1;
mediaplayer1.Open;
label3.Caption:=extractfilename(stroc1);
button7.Click;
end;
if listbox1.ItemIndex=2 then
begin
button3.Click;
mediaplayer1.FileName:=stroc3;
j:=stroc3;
mediaplayer1.Open;
label3.Caption:=extractfilename(stroc3);
button7.Click;
end;
if listbox1.ItemIndex=3 then
begin
button3.Click;
mediaplayer1.FileName:=stroc2;
j:=stroc2;
mediaplayer1.Open;
label3.Caption:=extractfilename(stroc2);
button7.Click;
end;
end;
 
 
procedure TForm1.Image2Click(Sender: TObject);
begin
form10.Show;
form1.Hide;
end;
 
procedure TForm1.Image5Click(Sender: TObject);
begin
form10.Show;
form1.Hide;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
listbox1.Items.Clear;
stroc:='';
ib:=0;
stroc2:='';
stroc1:='';
stroc3:='';
end;
 
end.

@NTC Inc 0 / 0 / 0 Регистрация: 27.02.2014 Сообщений: 5
		1
	DElphi player 27.02.2014, 17:18. Показов 1630. Ответов 8 Метки нет (Все метки) Не могу запрограммировать по полной плеер .кто может помогите с уважением( и заранее спасибо (Игорь)) . http://yadi.sk/d/Iu958pmAJeBJy 0

raxp 10231 / 6609 / 498 Регистрация: 28.12.2010 Сообщений: 21,156 Записей в блоге: 1
	27.02.2014, 17:38	2
	1- что значит "по полной", задавайте конкретные вопросы и очерчивайте конкретные проблемы 2- и что там, на какахостинге? В чем проблема приложить к посту? 0

@NTC Inc 0 / 0 / 0 Регистрация: 27.02.2014 Сообщений: 5
	27.02.2014, 18:29 [ТС]	3
	Мне нужно в видеоплеере 1 плей лист на большое количество тегов, 2 сделать поддержку форматов основных ;и т д 4. а также плавную загрузку видео +5 буфер для скорости самой программы все файлы программы(http://yadi.sk/d/zaZcdwGxJeXmY) 0

raxp 10231 / 6609 / 498 Регистрация: 28.12.2010 Сообщений: 21,156 Записей в блоге: 1
	27.02.2014, 20:14	4
	1 плей лист на большое количество тегов на какое большое количество? 2 сделать поддержку форматов основных ; каких основных? Это определяется технологией доступа к данным. Не видно вашего кода. и т д и так далее что? 4. а также плавную загрузку видео что вы подразуемваете под плавной загрузкой видео? +5 буфер для скорости буфер для скорости чего? все файлы программы вопрос не изменился, что мешает приложить тут? 0

@NTC Inc 0 / 0 / 0 Регистрация: 27.02.2014 Сообщений: 5
	28.02.2014, 12:59 [ТС]	5
	Треков до 500 . основные форматы AVI MP4 ACC MP3 и другие , чтобы программа могла понимать отдельно аудио и видео форматы и соответствующее окно открывать либо окно аудио либо окно видео. ИТД - чтобы все компоненты работали Плавно и загрузка была равномерной относительно других элементов . Плавная загрузка видео - видео не должно замедлятся или наоборот . + чтобы шла перемотка видео позиции и смотреть можно с любого места видео . чтобы показывало точную длину видео или музыки в формате 00:00:00 . буфер или по другому кусок памяти(нужный для корректной работы программы и её быстродействия) который не сама операционная определяет а программа. что мешает-там не то что мне нужно 0

raxp 10231 / 6609 / 498 Регистрация: 28.12.2010 Сообщений: 21,156 Записей в блоге: 1
	28.02.2014, 14:49	6
	основные форматы AVI MP4 ACC MP3 и другие , чтобы программа могла понимать отдельно аудио и видео форматы тогда только одна рекомендация - использовать DirectShow, будет воспроизводиться все на что есть кодек в ОС. Что у вас использовано - не видно. и соответствующее окно открывать либо окно аудио либо окно видео. добавляете фильтр по расширению файла, либо анализируете граф фильтров при ручном построении. ИТД - чтобы все компоненты работали Плавно и загрузка была равномерной относительно других элементов . какие компоненты? Плавная загрузка видео - видео не должно замедлятся или наоборот . WinOS не система реального времени, приоритет может быть уделен другому процессу и ничего с этим вы не сделаете. Что до замедения и ускорения видео, то для этого, скажем в DirectShow, используется специальный интерфейс IMediaPosition и его метод put_Rate(), так что вам это не грозит. + чтобы шла перемотка видео позиции и смотреть можно с любого места видео .IMediaPosition для этого у того же интерфейса IMediaPosition есть методы get_Duration(), get_CurrentPosition() и set_CurrentPosition()/ чтобы показывало точную длину видео или музыки в формате 00:00:00 . используете форматирование из миллисекунд через Format(). буфер или по другому кусок памяти(нужный для корректной работы программы и её быстродействия) который не сама операционная определяет а программа. вообще ни о чем. что мешает-там не то что мне нужно в третий раз повторяю вопрос: "что мешает выложить код или приложить код в посту?". Для этого используйте кнопку "скрепка" в редакторе поста. 0

raxp 10231 / 6609 / 498 Регистрация: 28.12.2010 Сообщений: 21,156 Записей в блоге: 1
	28.02.2014, 16:08	8
	Сообщение было отмечено NTC Inc как решение Решение 1- используйте теги для оформления кода, ваш код нечитаем. 2- использованный вами компонент-обертка tmediaplayer над методами MCI не обеспечит ваши запросы и переделке подлежит практически всё, используйте DirectShow или ActiveX WindowsMediaPlayer. 1

	01.03.2014, 11:45

DElphi player

Решение