AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Mp3 einbinden

Offene Frage von "PudelDesTodes"
Ein Thema von PudelDesTodes · begonnen am 16. Dez 2006 · letzter Beitrag vom 21. Dez 2006
 
Gentleman

Registriert seit: 29. Sep 2004
302 Beiträge
 
Turbo Delphi für Win32
 
#12

Re: Mp3 einbinden

  Alt 18. Dez 2006, 19:08
Also angenommen du hast die Mp3-Datei im selben Verzeichnis liegen, wie auch deine Exe-Datei, dann machst du folgendes:
  • Du suchst dir den Pfad der Programmdatei, da du den ja ganz einfach rausbekommen kannst ... Das ganze geht folgendermaßen:
    Application.Exename, der Rückgabewert dieser Funktion ist der gesamte Pfad zur Programmdatei, also z.B. "C:\Programme\MeinProgramm\MP3.exe"
  • Da du aber nur den Pfad zur Programmdati brauchst (weil deine Mp3-Datei im selben Verzeichnis liegt) suchst du dir nur den Pfad, ohne Dateiname:
    ExtractFilePath(Application.Exename) diese Funtion liefert dir nur den Pfad, im Beispiel wäre es also "C:\Programme\MeinProgramm\"
  • Den Dateinamen der Mp3 zu dem gerade herausgefunden Pfad hinzufügen, dass heißt also du packst einfach Pfad und bekannten Dateinamen in einen String:
    ExtractFilePath(Application.Exename) + 'meine_mp3.mp3';
    Ergebnis: "C:\Programme\MeinProgramm\meine_mp3.mp3"
  • Das Ganze musst du nun einfach als FileName für den Mediaplayer zuweisen, also:
    MP.FileName:= ExtractFilePath(Application.Exename) + 'meine_mp3.mp3';

Gruß,
Lennard
Lennard
Der Vorteil der Klugheit besteht darin, dass man sich dumm stellen kann. Das Gegenteil ist schon schwieriger. (Kurt Tucholsky)
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz