Forum: Multimedia
Delphi
by TOmega,
15. Feb 2007
Ich behaupte nicht die Weisheit mit Löffeln gefressen zu haben, aber du hast den richtigen Quellcode schon am Anfang bekommen und dir nicht mal die Mühe gemacht zu verstehen, was dort steht, sondern hast immer gleich nach einer Minute um Hilfe gerufen. Etwas Eigeninitiative kann nicht schaden. Wenn dir immer jemand alles vorsagt, lernst du nichts.
Forum: Multimedia
Delphi
by TOmega,
15. Feb 2007
Vielleicht läuft dein Programm noch ?
Forum: Multimedia
Delphi
by TOmega,
15. Feb 2007
Noch ein Hinweis:
Setze das Timer1.Enabled:=false; an den Anfang. Bei kurzen Zeitintervallen wird sonst deine Timer Prozedur aus sich selbst heraus wieder aufgerufen.
Forum: Multimedia
Delphi
by TOmega,
15. Feb 2007
Genau so wie oben beschrieben.
Übrigens, wenn du dein Programm auf eine CD brennst sind deine Dateien ja eben nicht mehr in diesem Pfad sodern z.B. in 'E:\'
Wenn du dein Programm aus der Entwicklungsumgebung startest, gibt dir die Funktion ExtractFilePath auch den Pfad 'C:\Dokumente und Einstellungen\Jiggy\Desktop\Delphi Award 2007\Sounds' zurück, wenn du von der CD startest, dann ist das...
Forum: Multimedia
Delphi
by TOmega,
15. Feb 2007
Natürlich brauchst du den kompletten Pfad zu deiner Mediendatei, aber den richtigen. Deshalb kannst du ihn nicht fest vorgeben, sondern musst den aktuellen Pfad deiner Anwendung feststellen und den dann einsetzen. So kannst du deine Anwendung aus jedem beliebigen Ordner starten und die Funktion ExtractFilePath gibt dir den aktuellen Pfad zurück.
Forum: Multimedia
Delphi
by TOmega,
15. Feb 2007
Sieh Dir doch einfach an, was die Funktion zurückgibt. Es ist der komplette Pfad zu deinem Programm, natürlich inkl. Laufwerk. Du must nur noch den Namen der Datei dazufügen.
Forum: Multimedia
Delphi
by TOmega,
15. Feb 2007
Der Pfad zu den Sounddateien stimmt natürlich nur auf deinem eigenen PC. Auf einem anderen PC oder der CD findet der Mediaplayer deine Dateien nicht mehr.
Bestimme beim Start den aktuellen Pfad deine Anwendung.
var
Pfad : string;
...
GetDir(0,Pfad);
MediaPlayer.FileName:=Pfad+'Dateiname';