DeAudioPlayer play back set from concrete position

Please discuss general Delphi programming topics here.

DeAudioPlayer play back set from concrete position

Postby zaplik » August 14th, 2007, 1:34 pm

Hallo, how with DeAudioPlayer play back set from concrete position? How position extend at spooling out?

Martin
zaplik
Active Member
Active Member
 
Posts: 7
Joined: May 20th, 2005, 1:03 pm

Postby Kambiz » August 14th, 2007, 3:17 pm

Sorry, I couldn't get the question. Could you please explain with an example?
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2429
Joined: March 7th, 2003, 7:10 pm

Postby Johnny_Bit » August 14th, 2007, 5:51 pm

wow, englisz langłicz!

I decipher: play from given position

that second one I didn't catch
Thou shalt write the code, not connect the bricks.
Johnny_Bit
VIP Member
VIP Member
 
Posts: 455
Joined: June 15th, 2003, 9:56 am

Postby zaplik » August 15th, 2007, 8:22 am

Sorry for my English, it is not my langue. Recording has length 1 minutes . I need start play up from 30 seconds. How with it does? Following code for TMEDIAPLAYER:

Code: Select all
procedure TCRForm.JvSlider1StopChanged(Sender: TObject);
begin
  if (MediaPlayer.Mode=mpOpen)or(MediaPlayer.Mode=mpPlaying)or(MediaPlayer.Mode=mpPaused) then
  begin
    MediaPlayer.Position:=JvSlider1.Position;//<<<<<<<<<<< How???
    Label3.Caption := MS2Str(MediaPlayer.Position, msHMS{msAh});
    MediaPlayer.Play;
  end;
end;

This code I need re-write using TDeAudioOut.
zaplik
Active Member
Active Member
 
Posts: 7
Joined: May 20th, 2005, 1:03 pm

Postby Kambiz » August 15th, 2007, 11:50 am

All audio player components (TAudioPlayer, TStockAudioPlayer, and TLiveAudioPlayer) have a Position property that you can use it like Position property of MediaPlayer. The value of Position property is in milliseconds.
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2429
Joined: March 7th, 2003, 7:10 pm

Postby cozturk » August 17th, 2007, 5:44 pm

Maybe:

"De" means another component which not freeware . (droppy eyes etc..)
cozturk
Moderator
Moderator
 
Posts: 63
Joined: June 30th, 2005, 5:39 am
Location: Istanbul - Turkiye

Postby Kambiz » August 17th, 2007, 10:50 pm

cozturk wrote:Maybe:

"De" means another component which not freeware . (droppy eyes etc..)


You are right. Even without "De", TAudioOut is an abstract class in the Wave Audio package.
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2429
Joined: March 7th, 2003, 7:10 pm

Postby Kambiz » August 17th, 2007, 10:59 pm

Here is the link to the source files of the components that zaplik is talking about. :)
http://leenover.homeip.net/delphi/Projects/lnDS/

I didn't look at the code yet, but seems to be a DirectSound project.
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2429
Joined: March 7th, 2003, 7:10 pm

Postby Johnny_Bit » August 18th, 2007, 6:11 am

welll then... this has to be moved.
Thou shalt write the code, not connect the bricks.
Johnny_Bit
VIP Member
VIP Member
 
Posts: 455
Joined: June 15th, 2003, 9:56 am


Return to Delphi Programming

Who is online

Users browsing this forum: No registered users and 8 guests

cron