Undeklarierter Bezeichner (MediaPlayer)

[a.def]

Hallo.

Als erstes: mach mal das var in procedure playSound() weg.
Als zweites ein paar Fragen die nix mit dem Problem zu tun haben:
- wo ist DataLink in Button1 deklariert?
- warum übergibst du den String nicht direkt an playSound() so wie unten zu sehen
und
- warum stellst du Klammern um den String bei der Deklaration?

Delphi-Quellcode:

 procedure TForm1.playSound(DataLink: string);
 begin
  MediaPlayer1.FileName := DataLink;
  MediaPlayer1.Play;
 end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 playSound('C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\spasti alter.mp3');
end;

[Mavarik]

Zitat von a.def:

Als erstes: mach mal das var in procedure playSound() weg.

Wieso?

ok ggf. Const aber weg... eher nicht...

[a.def]

Zitat von Mavarik:

Zitat von a.def:

Als erstes: mach mal das var in procedure playSound() weg.

Wieso?

ok ggf. Const aber weg... eher nicht...

Hast recht. Aber var ist doch total unnötig. const ist da schon besser. Also entweder nix oder const aber nicht var.

[haentschman]

Hallo und willkommen hier...

Ich würde das File als Konstante anlegen. Wenn du mal an verschieden Stellen den gleichen Sound hast, brauchtst nur die Konstante ändern.

Delphi-Quellcode:

const
  conSoundBlubb = 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\spasti alter.mp3'
  conSoundBla = 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\spasti neuer.mp3'
.
.
.
procedure TForm1.playSound(DataLink: string);
 begin
  MediaPlayer1.FileName := DataLink;
  MediaPlayer1.Play;
 end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 playSound(conSoundBla);
end; 
.
procedure TForm1.Button6Click(Sender: TObject);
begin
 playSound(conSoundBla);
end;
.
procedure TForm1.Button7Click(Sender: TObject);
begin
 playSound(conSoundBlubb);
end;

PS: Gewöhne dir gleich zu Anfang an, vernünftige Bezeichnungen für die Komponenten, Variablen, Objekte etc. zu verwenden.

[Sveni795]

Zitat von a.def:

Hallo.

Als erstes: mach mal das var in procedure playSound() weg.
Als zweites ein paar Fragen die nix mit dem Problem zu tun haben:
- wo ist DataLink in Button1 deklariert?
- warum übergibst du den String nicht direkt an playSound() so wie unten zu sehen
und
- warum stellst du Klammern um den String bei der Deklaration?

Delphi-Quellcode:

 procedure TForm1.playSound(DataLink: string);
 begin
  MediaPlayer1.FileName := DataLink;
  MediaPlayer1.Play;
 end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 playSound('C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\spasti alter.mp3');
end;

Vielen Dank für die Antworten.

Die vielen Formatfehler etc kommen einfach daher das ich eigentlich nur C gelernt habe und mich nun in Pascal einarbeite. Das wird besser.

Wenn ich den String direkt übergebe sagt mir der Compiler es seien zu viele Parameter

DataLink ist global deklariert

Das mit den Klammern habe ich nicht verstanden. Sorry

[haentschman]

Hallöle...
statt:

Delphi-Quellcode:

DataLink := ('C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\xx.mp3');
...

das:

Delphi-Quellcode:

DataLink := 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\xx.mp3';
...

[a.def]

Zitat von Sveni795:

Zitat von a.def:

Hallo.

Als erstes: mach mal das var in procedure playSound() weg.
Als zweites ein paar Fragen die nix mit dem Problem zu tun haben:
- wo ist DataLink in Button1 deklariert?
- warum übergibst du den String nicht direkt an playSound() so wie unten zu sehen
und
- warum stellst du Klammern um den String bei der Deklaration?

Delphi-Quellcode:

 procedure TForm1.playSound(DataLink: string);
 begin
  MediaPlayer1.FileName := DataLink;
  MediaPlayer1.Play;
 end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 playSound('C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\spasti alter.mp3');
end;

Vielen Dank für die Antworten.

Die vielen Formatfehler etc kommen einfach daher das ich eigentlich nur C gelernt habe und mich nun in Pascal einarbeite. Das wird besser.

Wenn ich den String direkt übergebe sagt mir der Compiler es seien zu viele Parameter

DataLink ist global deklariert

Das mit den Klammern habe ich nicht verstanden. Sorry

Guck dir meinen Beitrag nochmal an und hau die globale Variable weg die brauchst du nicht.

[Sveni795]

Wahnsinn dieses Feedback

So ich habe nun die Ratschläge angenommen und entsprechend angepasst:

Code:

  const
    conSoundxx = 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\xx.mp3';

procedure TTabbedForm.Button1Click(Sender: TObject);
begin
  TTabbedForm.playSound(conSoundxx);
end;

procedure TTabbedForm.playSound(DataLink: string);
 begin
  MediaPlayer1.FileName := DataLink;
  MediaPlayer1.Play;
 end;

Die Variable "DataLink" gibt es nun nicht mehr global, die habe ich gelöscht.
Die wird doch jetzt nur noch local verwendet.

Das Problem, dass der Mediaplayer nicht bezeichnet ist, ist jetzt weg. Aber er mag die "Const" nicht.
Diese habe zu viele Parameter!?

[Mavarik]

Zitat von Sveni795:

Aber er mag die "Const" nicht.
Diese habe zu viele Parameter!?

Hast Du Const auch in der Deklaration angegeben? Also einmal "oben" und "unten"?

[a.def]

Zitat:

Aber er mag die "Const" nicht.

So etwas musst du dir unbedingt abgewöhnen. Das ist genau wie... "Mein PC geht nicht" oder "... funktioniert nicht".