| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите создать прокрутку файла... [D7, XP]

NikitaVer ©   (2007-10-28 18:27:00) 

Я создал прогу чтобы она могла открыть и читать видео файлы.И я не знаю еще создать еще чтобы файл можно было прокрутить до определенного момента.

вот код:

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   MediaPlayer1: TMediaPlayer;
   Panel1: TPanel;
   Panel2: TPanel;
   MainMenu1: TMainMenu;
   OpenDialog1: TOpenDialog;
   N1: TMenuItem;
   N3: TMenuItem;
   N4: TMenuItem;
   N5: TMenuItem;
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   procedure N3Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure N5Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
 private
   { Private declarations }
   procedure EnableBattons(State:Boolean);
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);
begin
EnableBattons(false);
if not OpenDialog1.Execute then exit;

try
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
except
Application.MessageBox('Îøèáêà îòêðûòèÿ ôàéëà', 'Îøèáêà!!!');
exit;
end;
EnableBattons(true);
end;

procedure TForm1.EnableBattons(State: Boolean);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Play;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.Pause;
end;

end.

---

AIK   (2007-10-28 18:37:00) [1]

Кидаем на форму ScrollBar или TrackBar или что душе угодно

там где ты успешно открываеш файл:

> procedure TForm1.N3Click(Sender: TObject);
> begin
> EnableBattons(false);
> if not OpenDialog1.Execute then exit;
>
> try
> MediaPlayer1.FileName:=OpenDialog1.FileName;
> MediaPlayer1.Open;

scrollBar1.Position:=MediaPlayer1.Position;
.......

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
 var ScrollPos: Integer);
begin
MediaPlayer1.Position:=scrollBar1.position;
Mediaplayer1.Play; {можно и без этого но тогда при перемотки медиа будет останавливаться}
end;

---

Palladin   (2007-10-28 18:28:00) [2]

> И я не знаю еще создать еще чтобы файл можно было прокрутить
> до определенного момента

А зачем тебе это? И зачем кому то код котроый ты привел?

---

Наверх