Problemer med mediaplayer

extractfilepath(Application.exename)+\'elektronik.wav\';

hvor skal jeg skrive den kode jeg synes ikke det virker hvis jeg skriver den i FileName i højre side

mediaplayer1.filename :=  extractfilepath(Application.exename)+\'elektronik.wav\'; 

skal jeg ikke bare dobbeltklikke på mediaplayeren og så skrive det der. Det virker sq ik

nej. på din forms oncreate event skriver du:
mediaplayer1.filename :=  extractfilepath(Application.exename)+\'elektronik.wav\'; 

jeg har flere forskellige mediaplayer.
MediaPlayer1
og
MediaPlayer2
kan det være derfor det ikke virker

unit Unit5;

interface

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

type
  Telektronik = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Image1: TImage;
    GroupBox2: TGroupBox;
    Image2: TImage;
    GroupBox3: TGroupBox;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Memo1: TMemo;
    Memo2: TMemo;
    MediaPlayer1: TMediaPlayer;
    MediaPlayer2: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    billedenr : Integer;
  end;

var
  elektronik: Telektronik;

implementation

{$R *.DFM}

procedure Telektronik.Button1Click(Sender: TObject);
begin
    elektronik.Close;
end;

procedure Telektronik.BitBtn3Click(Sender: TObject);
begin
  if CheckBox1.State = cbChecked then CheckBox1.State := cbUnchecked;
    label1.Caption := \'Hvad er elektronik ?\';
    Memo1.Visible := True;
    MediaPlayer2.Rewind;
    MediaPlayer1.Play;
end;

procedure Telektronik.BitBtn4Click(Sender: TObject);
begin
    if CheckBox1.State = cbChecked then CheckBox1.State := cbUnchecked;
    Label1.Caption := \'Uddannelsen\';
    Memo1.Visible := False;
    MediaPlayer1.Rewind;
    MediaPlayer2.Play;
end;


procedure Telektronik.BitBtn2Click(Sender: TObject);
begin
  MediaPlayer2.Play; 
end;

procedure Telektronik.BitBtn1Click(Sender: TObject);
begin
  MediaPlayer1.Play;
end;

procedure Telektronik.BitBtn8Click(Sender: TObject);
begin
    MediaPlayer2.Rewind;
end;

procedure Telektronik.BitBtn7Click(Sender: TObject);
begin
  MediaPlayer1.Rewind;
end;

procedure Telektronik.FormShow(Sender: TObject);
begin
    MediaPlayer1.Play;
end;

procedure Telektronik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    MediaPlayer1.Rewind;
    MediaPlayer2.Rewind;
end;

procedure Telektronik.CheckBox1Click(Sender: TObject);
begin
    MediaPlayer1.Pause;
    MediaPlayer2.Pause;
end;


procedure Telektronik.FormCreate(Sender: TObject);
begin
mediaplayer1.filename := extractfilepath(Application.exename)+\'elektronik.wav\';
mediaplayer2.filename := extractfilepath(Application.exename)+\'Uddannelse.wav\';
billedenr := 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'1.bmp\');
  2 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'2.bmp\');
end;
end;

procedure Telektronik.BitBtn6Click(Sender: TObject);
begin
billedenr := billedenr + 1;
if billedenr = 3 then billedenr := 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'1.bmp\');
  2 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'2.bmp\');
end;
end;

procedure Telektronik.BitBtn5Click(Sender: TObject);
begin
billedenr := billedenr - 1;
if billedenr = 0 then billedenr := 2;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'1.bmp\');
  2 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'2.bmp\');
end;
end;

end.

hmm du siger lyden ligger i dit program dir...
Prøv lige det her på en onclick:
showmessage(extractfilepath(Application.exename)+\'elektronik.wav\');

onclick på formen eller mediaplayerne

hvad for nogle fejl får du når du compiler?

Application.CreateForm(Tprogrammering, programmering);

fejl i denne linje

der er vel et eller andet der går i konflikt med hinanden eller hva

unit Unit5;

interface

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

type
  Telektronik = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Image1: TImage;
    GroupBox2: TGroupBox;
    Image2: TImage;
    GroupBox3: TGroupBox;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Memo1: TMemo;
    Memo2: TMemo;
    MediaPlayer1: TMediaPlayer;
    MediaPlayer2: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    billedenr : Integer;
  end;

var
  elektronik: Telektronik;

implementation

{$R *.DFM}

procedure Telektronik.Button1Click(Sender: TObject);
begin
    elektronik.Close;
end;

procedure Telektronik.BitBtn3Click(Sender: TObject);
begin
  if CheckBox1.State = cbChecked then CheckBox1.State := cbUnchecked;
    label1.Caption := \'Hvad er elektronik ?\';
    Memo1.Visible := True;
    MediaPlayer2.Rewind;
    MediaPlayer1.Play;
end;

procedure Telektronik.BitBtn4Click(Sender: TObject);
begin
    if CheckBox1.State = cbChecked then CheckBox1.State := cbUnchecked;
    Label1.Caption := \'Uddannelsen\';
    Memo1.Visible := False;
    MediaPlayer1.Rewind;
    MediaPlayer2.Play;
end;


procedure Telektronik.BitBtn2Click(Sender: TObject);
begin
  MediaPlayer2.Play;
end;

procedure Telektronik.BitBtn1Click(Sender: TObject);
begin
  MediaPlayer1.Play; 
end;

procedure Telektronik.BitBtn8Click(Sender: TObject);
begin
    MediaPlayer2.Rewind;
end;

procedure Telektronik.BitBtn7Click(Sender: TObject);
begin
  MediaPlayer1.Rewind;
end;

procedure Telektronik.FormShow(Sender: TObject);
begin
    MediaPlayer1.Play;
end;

procedure Telektronik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    MediaPlayer1.Rewind;
    MediaPlayer2.Rewind;
end;

procedure Telektronik.CheckBox1Click(Sender: TObject);
begin
    MediaPlayer1.Pause;
    MediaPlayer2.Pause;
end;


procedure Telektronik.FormCreate(Sender: TObject);
begin
MediaPlayer1.filename := extractfilepath(Application.exename)+ \'elektronik.wav\';
MediaPlayer2.filename := extractfilepath(Application.exename)+ \'uddannelse.wav\';
billedenr := 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'1.bmp\');
  2 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'2.bmp\');
end;
end;

procedure Telektronik.BitBtn6Click(Sender: TObject);
begin
billedenr := billedenr + 1;
if billedenr = 3 then billedenr := 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'1.bmp\');
  2 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'2.bmp\');
end;
end;

procedure Telektronik.BitBtn5Click(Sender: TObject);
begin
billedenr := billedenr - 1;
if billedenr = 0 then billedenr := 2;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'1.bmp\');
  2 : Image2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'2.bmp\');
end;
end;

end.



Mit code ser sådan ud er der nogen der kan hjælpe.

du skriver kun navnet på wav filen i filename.
så søger den efter filen i det aktuelle bibliotek,
hvor din exefil er.

Fejler den på denne linje:
Application.CreateForm(Tprogrammering, programmering);
?

Så fjern den, du har sikkert omdybt eller fjernet et eller andet. Ellers må du skriver selve fejlmeddelsen til os, det gør det lidt lettere at debugge!

betingelsen for at det virker er at du lægger dine
wav filer i samme mappe som dit program

Det var jo lige det der skulle til
taktak stone ;)

Whaattt???

doh

klix...kig på det accep. svar!

du skriver kun navnet på wav filen i filename.
så søger den efter filen i det aktuelle bibliotek,
hvor din exefil er.