Musiktitel anzeigen

[KingofWerlte]

Helas erstmal! :hi:
so hab danach schon hier iner DP gesucht aber leider nichts gefunden! Also daher meine Frage: Ich bin grad dabei einen kleinen Mediaplayer zu programmieren. Das einzigste was mir jetzt noch fehlt ist eine Anzeige um was für ein Musikstück es sich handelt, also der Dateiname. Das ganze möchte ich in einen gesperten Edit-Feld anzeigen. Wie mache ich das?
Gegen vorschläge die das ganze in einem Label anzeigen hät ich auch nichts!
Und falls danach schonmal gefragt worden ist: Sorry beim nächsten mal guck ich nochmal genau nach :wink:
Schonmal im vorraus Danke für die eventuellen Lösungsforschläge!

[hm988]

hallo,

also vorweg ob du den Dateinamen in einem Edit Feld oder Label anzeigst, ist nur Ansichtssache.

einem Edit Feld weisst duso den Text zu:

Delphi-Quellcode:

Edit1.Text := filename;

einem Label so:

Delphi-Quellcode:

Label1.Caption := filename;

natürlich muss der Dateiname als String in der Variablen hinterlegt sein, Frage wie lädst du deine MP3`s`?
da hast du doch eigentlich schon den Dateinamen in einer Variablen oder :gruebel:

wenn du natürlich ID3 Tags auslesen willst kann ich dir leider nicht helfen.

[KingofWerlte]

also mp3's spielt er bisher noch nicht ab..das will ich aber noch ändern

[hm988]

also dann bist du noch so ziemlich Anfänger ?, na ich bin auch nicht gerade der
beste aber es wird :coder:

kannst du ier mal deinen Code posten ?, ich denke mal so können dir auch andere nicht viel weiterhelfen.
dann sieht man wenigstens so ungefähr welchen Stand du hast und wies weiter geht.

Lädst du also auch noch gar keine Files ?

[KingofWerlte]

Delphi-Quellcode:

var
  Form1: TForm1;
  SetNewPos:Boolean;

implementation

uses MPVideo;

{$R *.dfm}
procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
begin
  { Volume: 0 - 1000 }
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
if opendialog1.execute
  then mediaplayer1.filename:=opendialog1.filename;
  mediaplayer1.open;
  SetMPVolume(MediaPlayer1, 500);
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  IF Mediaplayer1.Mode=mpplaying then
    begin
      Trackbar1.Enabled:=true;
      Trackbar1.Max:=Mediaplayer1.Length;
      Trackbar1.Position:=Mediaplayer1.Position;
    end else
    begin
      Trackbar1.Enabled:=false;
      Trackbar1.Max:=0;
      Trackbar1.Position:=0;
    end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
     if csLButtonDown in TrackBar1.ControlState then
        begin
          timer1.Enabled:=false;
          SetNewPos:=True;
        end;
     if SetNewPos then begin
        if not (csLButtonDown in TrackBar1.ControlState) then
           begin
             MediaPlayer1.Position:=TrackBar1.Position;
             MediaPlayer1.Play;
             SetNewPos:=False;
             timer1.Enabled:=true;
           end;
           end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
IF Mediaplayer1.Mode=mpplaying then
    begin
      ProgressBar1.Enabled:=true;
      ProgressBar1.Max:=Mediaplayer1.Length;
      ProgressBar1.Position:=Mediaplayer1.Position;
    end else
    begin
      ProgressBar1.Enabled:=false;
      ProgressBar1.Max:=0;
      ProgressBar1.Position:=0;
    end;
end;

end.

Die Gimicks wie Farbe ändern des Hintergrunds usw. hab ich weggelassen

[Matze]

Delphi-Quellcode:

Label1.Caption := MediaPlayer1.FileName;

Könntest du bitte nöchstes mal die Delphi-Tags anstelle der Zitat-Tag verwenden, dann ist es wesentlich übersichtlicher. :)

[fkerber]

Hi!

Zitat:

Könntest du bitte nöchstes mal die Delphi-Tags anstelle der Zitat-Tag verwenden, dann ist es wesentlich übersichtlicher

Nur um Unklarheiten aus dem Weg zu schaffen:
Es waren die Code-Tags, aber die Tags für Delphi-Code wären besser von wegen der Lesbarkeit.

Ciao fkerber

[KingofWerlte]

Ok ich habs! Danke!!!! :dp:

[Matze]

Zitat:

Zitat von fkerber

Nur um Unklarheiten aus dem Weg zu schaffen:
Es waren die Code-Tags...

Es waren ursprünglich (als ich gepostet habe) noch die Quote-Tags, er hat es dann wohl in Code-Tags geändert, vorher waren es aber 100% Quote-Tags! Könnt ich jetzt drauf wetten, oder? :gruebel:

[fkerber]

Hi!

Achso, das konnte ich nicht wissen.

War ja nicht bös gemeint :cheers:

Wollte es nur gesagt haben...


Ciao fkerber