घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मीडिया";
वर्तमान संग्रह: 2002.12.05;
डाउनलोड करें: [xml.tar.bz2];

नीचे

मीडियाप्लेयर और तारकोल इसी तरह की शाखाएँ खोजें


Groove   (2002-06-19 15:37) [0]

Здрасте! Как сделать зависимыми друг от друга позицию трэка в медиаплеере и позицию трэкбара? Заранее спасибо



SI-riuss   (2002-06-20 11:08) [1]

Я уже писал подобную программку, но, к сожалению, утерял исходник, поэтому объясню на пальцах.
Прямой зависимости не поставишь, поэтому:
После загрузки файла в медиаплеер:
TrackBar1.Max:=MediaPlayer1.TrackLength;
TrackBar1.Frequency:=TrackBar1.Max div 10;
Можешь вместо 10 поставить другое число - количество шкалы TrackBar1.
При воспроизведении ставишь зависимость:
TrackBar1.Position:=MediaPlayer1.TrackPosition;
При перетаскивании ручки трекбара, соответственно, наоборот:
MediaPlayer1.TrackPosition:=TrackBar1.Position;
Ну и далее все в таком же духе...



Neolord   (2002-07-02 04:58) [2]

मैं जोड़ूंगा - ऑनबार इवेंट में एक ट्रैकबार है



gusd   (2002-08-08 17:39) [3]

При воспроизведении ставишь зависимость:
TrackBar1.Position:=MediaPlayer1.TrackPosition;

А при воспроизведении постоянно обновлять ползунок?
Timerом чтоли? И ещё -> если ползунок каким то образом двигается при воспроизведении(допустим Timerом) TrackBar1.Position:=MediaPlayer1.TrackPosition; то срабатывает событие Trackbara onchange
MediaPlayer1.TrackPosition:=TrackBar1.Position;


Gusd!



Groove   (2002-08-08 20:22) [4]

Здрасте. Но при проигрывании передвигается трэкбар, значит onchange тоже сработает, тоесть
двигать его рукой = воспроизведение
нужно сделать как-то процидуры OnMouseDown и OnMouseUp



SI-riuss   (2002-08-10 11:12) [5]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TrackBar1.Position:=MediaPlayer1.Position;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
MediaPlayer1.Position:=TrackBar1.Position;
end;

У меня все работает...



Groove   (2002-08-11 15:14) [6]

А у меня нет, HEEEEELLLLLPPPPP!!!!!!!!!!



SI-riuss   (2002-08-12 01:03) [7]

Не скули, погоди, давай разберемся.
Организуй код в таком виде:
procedure TForm1.FormCreate(Sender: TObject);
begin
With MediaPlayer1 do
begin
Filename:="S:\ser1.avi";
Open;
TrackBar1.Max:=MediaPlayer1.Length;
TrackBar1.Frequency:=TrackBar1.Max div 10;
Play;
end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
MediaPlayer1.Position:=TrackBar1.Position;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TrackBar1.Position:=MediaPlayer1.Position;
end;

Что тебе выдает комп?



GIL   (2002-08-12 05:14) [8]

यह मेरे लिए तब तक काम नहीं करता जब तक कि मुझे ऑनमाउन्डडाउन / अप इवेंट्स के साथ ट्रैकबेर नहीं मिला, और फिर यह सब सिर्फ चॉकलेट बन गया, जो प्रोग्राम के घटकों या पाठ को साझा करना चाहता है, जिस तरह से कंप्यूटर को स्वेट्रकर कहा जाता है जहां से मैंने इसे डाउनलोड किया है - मुझे याद नहीं है, क्षमा करें।



Groove   (2002-08-12 13:26) [9]

Я переделал стандартный компонент, добавил onmouseup и onmousedown всё решилось моментально!!!



Thor   (2002-08-12 18:00) [10]

GIL делись компонентом и текстом
мыль на tho234@ngs.ru заранее пасибо



Thor   (2002-08-12 19:03) [11]

SI-riuss и у меня этот способ не идет пишет
При инициализации MCI обнаружена неполадка



GIL   (2002-08-12 21:35) [12]

unit play;

इंटरफेस

का उपयोग करता है
विंडोज, संदेश, SysUtils, कक्षाएं, ग्राफिक्स, नियंत्रण, प्रपत्र, संवाद,
StdCtrls, swTrackBar, ExtCtrls, MPlayer;

टाइप
TForm1 = वर्ग (TForm)
MediaPlayer1: TMediaPlayer;
टिमरएक्सन्यूएमएक्स: टीटीमेर;
swTrackBar1: TswTrackBar;
Button1: TButton;
प्रक्रिया Button1Click (प्रेषक: Tobject);
प्रक्रिया Timer1Timer (प्रेषक: Tobject);
procedure swTrackBar1MouseDown(Sender: TObject; Button: TMouseButton;
शिफ्ट: TShiftState; एक्स, वाई: इंटेगर);
procedure swTrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
शिफ्ट: TShiftState; एक्स, वाई: इंटेगर);
प्रक्रिया फॉर्म क्रिएट (प्रेषक: TObject);
procedure swTrackBar1Change(Sender: TObject);
निजी
{निजी घोषणाएँ}
सार्वजनिक
{सार्वजनिक घोषणाएँ}
अंत;

था
Form1: TForm1;
clicked:boolean;

कार्यान्वयन

{$ R * .DFM}

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
शुरू करना
mediaplayer1.filename:="D:\music\2 Pac - Changes.mp3";
mediaplayer1.open;
swtrackbar1.Max:=mediaplayer1.Length div 10;
टाइमर xNUMX.enabled: = true;
mediaplayer1.play;
अंत;

प्रक्रिया TForm1.Timer1Timer (प्रेषक: TObject);
शुरू करना
if not clicked then swtrackbar1.position:=mediaplayer1.position;
if mediaplayer1.position=mediaplayer1.length then begin mediaplayer1.close;timer1.enabled:=false; end;
अंत;

procedure TForm1.swTrackBar1MouseDown(Sender: TObject;
बटन: TMouseButton; शिफ्ट: TShiftState; एक्स, वाई: इंटेगर);
शुरू करना
clicked:=true;
अंत;

procedure TForm1.swTrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
शिफ्ट: TShiftState; एक्स, वाई: इंटेगर);
शुरू करना
mediaplayer1.position:=swtrackbar1.position;
mediaplayer1.play;
clicked:=false;
अंत;

प्रक्रिया TForm1.FormCreate (प्रेषक: TObject);
शुरू करना
clicked:=false;
अंत;

procedure TForm1.swTrackBar1Change(Sender: TObject);
शुरू करना
if clicked then mediaplayer1.position:=swtrackbar1.position;
अंत;

समाप्त।



SI-riuss   (2002-08-14 14:40) [13]

Тогда у меня уникальный комп. (AutoOpen должен быть false).
मैं कुछ नहीं समझता ...



Groove   (2002-08-14 16:26) [14]

Чё уникального? Должнобыть AutoOpen=false. После Mediaplayer1.filename:="Например C:\1.mp3";
должнобыть
Mediaplayer1.open;
вот и всё, всё рулит =))



SI-riuss   (2002-08-14 20:16) [15]

Ну все верно. Должно работать. Я не понял, почему у кого-то не идет. Специально написал код с нулевой установки компонентов. Без всяких Properties-изменений...



Thor   (2002-08-19 12:00) [16]

Люди нужно чтобы прогресс индикатор был не только для одного файла, т.е. файл выбираешь на форме с помощью компонентов, че тогда делать с
mediaplayer1.filename:="D:\music\2 Pac - Changes.mp3";

धन्यवाद



SI-riuss   (2002-08-19 21:52) [17]

Ну, например, если вызвать диалоговое окно:
procedure TForm1.OpenClick(Sender: TObject);
begin
OpenDialog1.DefaultExt := "mp3";
OpenDialog1.Filename := "*.mp3";
if OpenDialog1.Execute then
begin
MediaPlayer1.Filename := OpenDialog1.Filename;
MediaPlayer1.Open;
TrackBar1.Max:=MediaPlayer1.Length;
TrackBar1.Frequency:=TrackBar1.Max div 10;
MediaPlayer1.Play;
end;
end;

Ну и остальное то же самое.

Не забудь поставить на форму компоненту OpenDialog :))



पन्ने: 1 पूरी शाखा

मंच: "मीडिया";
वर्तमान संग्रह: 2002.12.05;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.6 एमबी
समय: 0.029 c
7-14840
kofman
2002-10-05 20:40
2002.12.05
समय क्षेत्र कैसे निर्धारित करें?


1-14598
OGR
2002-11-27 15:32
2002.12.05
एक स्ट्रिंग से n अंतिम वर्ण कैसे निकालें?


3-14422
7Up
2002-11-15 12:51
2002.12.05
TTable में अपनी खुद की तालिका कैसे बनाएं?


6-14722
पिटोन x
2002-10-09 09:22
2002.12.05
नेटवर्क पर कंप्यूटर के नामों की सूची कैसे खोजें?


3-14432
यूरी
2002-11-18 11:07
2002.12.05
DBGrid में कर्सर स्थिति कैसे बचाएं?





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский