-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
20. Mai 2012
Noch so ganz nebenbei, kann man seperat von den anderen PlayMySound-Befehlen ein paar SND_SYNC machen? Und gibt es eine Möglichkeit, ohne Mediaplayer mehrere Sounds gleichzeitig zu spielen? Weil ich muss das ja meinem Lehrer abgeben und der hat die Player bestimmt nicht :D
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
@Himitsu Das mit dem IF und ELSE hab ich nur zum Test gemacht, das hab ich schon längst entfernt. Das Problem lag an der Datei selber, die wurde auf 32-Bit umgewandelt, was komischerweise nicht funktioniert. Wenn man die WAVE-Datei auf 16-Bit umwandelt klappt es.
Noch so ganz nebenbei, kann man seperat von den anderen PlayMySound-Befehlen ein paar SND_SYNC machen? Und gibt es eine Möglichkeit,...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Danke,Danke,Danke!!!! Jetzt klappt es! Ich habe das mit einem Programm konvertiert, welches automatisch die Audiodatei in 32 Bit umgewandelt hat, es klappt aber nur mit 16 Bit. Direkt auf 16 Bit umgewandelt, und siehe da, es klappt! Danke, echt. Ich hab den Thread erst gestern aufgemacht und schon gibt es über 40 Antworten. Das nenn ich mal ein richtiges Forum :D
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Okay, bei Avicodec steht im Register "A.1 Codec - Name" MS PCM. Was bedeutet das? :D
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Okay, du hast recht. Habs mal mit ner Windows-eigenen WAV versucht und hat direkt geklappt. Das heißt, es liegt an der Datei. Ich habe die übrigens vom MP3 in WAV umgewandelt mit "ABC Amber Audio Converter" aber ich hab gedacht das wär nicht so wichtig. Kennst du nebenbei ein gutes MP3 to WAV Converter-Programm?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Ja, wird abgespielt.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Tut sich nichts, immer noch der Fehlerton...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Die Datei existiert und heißt auch nicht Modem.wav.wav. Ich weiß echt nicht, wieso Lazarus so spinnt... Die Datei ist vorhanden, der Pfad ist auch richtig, aber irgendetwas will nicht...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Naja, klappt leider weiterhin nicht...
Mein Vater sagt (er war mal Programmierer, ist aber was länger her :D), der Dateipfad müsste nicht von "C:" aus starten, sondern vom Projektordner. Stimmt das?
Und wie verfahre ich jetzt mit dem Fehler? :? (Tut mir leid, dass ich Druck mache, aber ich habe nicht mehr viel Zeit :/ )
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
@Dalai Ich hab jetzt das hier mal ergänzt (zu Testzwecken) procedure PlayMySound(SndName: String); //uses mmSystem
var
FilePath: String;
begin
FilePath := ExtractFilePath(ParamStr(0)) + SndName + '.wav';
ShowMessage(FilePath);
if FileExists(FilePath) then
//SndPlaySound(PAnsiChar(FilePath), SND_ASYNC ); //Alternative
PlaySound(PChar(FilePath), hInstance, SND_ASYNC or...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
@Dalai Der Dateipfad ist richtig, habs mit dem Explorer ausprobiert. Und sorry, dann hab ichs ausversehen nach dem IF Satz hingeschrieben :)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
project1
C:\Users\Filip\Documents\Schule\Physik und Technik\Physik und Technik\PT-Projekt\Programm\Modem.wav
@BUG Das steht in der Message. Eigentlich der Dateipfad, wo die Datei enthalten ist. Ich versteh es echt nicht...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
@p80286: Ich find die Option nicht... Ich habe jetzt aber den Befehl "ShowMessage(FilePath) Mal VOR den "IF" Satz getan und siehe da: Er erscheint. Wenn er aber im IF Satz steht, passiert nichts. Was muss ich jetzt machen? :?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Sollte das bei Programmstart angezeigt werden? Bei mir tut sich nichts... Kann ich das auch mit dem Befehl "Panel2.Caption:='...'" machen ?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
@Dalai Okay, hab den Code hinzugefügt und es passiert nichts neues. Würde das jetzt heißen, dass kein Pfad erstellt wird?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
@Dalai Okay, danke für die Erklärung :) Werde es mal gleich ausprobieren.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Ich verstehe noch nicht ganz, was der bewirken soll.
Ich hab mal Zeile 40 markiert, und dann F9 gedrückt. Dann hat sich das Programm gestartet und danach hat das Programm wieder zur Unit gewechselt. Es hat als erstes "begin" grün markiert (falls es nicht grün ist, wisst ihr, dass ich eine Rot-Grün Sehschwäche hab :D), dann die nächste Zeile "FilePath := ....", dann wieder die nächste "if..."...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
@Dalai Hab mal den Debugger laufen lassen (F8) und der hat ganz normal compiliert. Dann hab ich F7 ausprobiert und dann haben sich ganz viele andere Units geöffnet. Ich bin überhaupt nicht zu meinen Programmcodes gekommen :?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
10. Mai 2012
Ich weiß echt nicht, was ich falsch mache.
Ich hab mir grade den Anhang von @Popov runtergeladen. Hat alles geklappt. Nur wenn ich das mache, klappt es wieder nicht!
Hier mein Code:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
9. Mai 2012
Danke nochmal für die Antworten.
@himitsu Also könnte ich das nicht mitten beim Programmieren "testen" ?
@Popov Ich habe den Sound in meinem Projektordner und hab jetzt mal den Code ausprobiert, aber ich bekomme die Fehlermeldung "Error: Illegal Expression" (bei Lazarus). Wird das erst mit der .exe-Kompilierung funktionieren, also kann man das nicht "testen"?
PS: Sorry, dass ich mich so...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
9. Mai 2012
Danke für deine Antwort. :)
Muss man für den ExtractFilePath(Application.Exename) Code das Projekt zu einer .exe komprimieren oder geht das auch so?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Windowscratcher,
9. Mai 2012
Hallo Leute. Ich bin in der 9. Klasse und wir programmieren gerade mit Delphi (manchmal mit Lazarus), d.h. ich habe wenig Erfahrung mit Delphi ;)
Unser Lehrer hat uns jetzt ein "Projekt" aufgegeben, in dem wir ein Programm nach unserem Belieben schreiben sollen (Ich mache eine interaktive Geschichte :D). Ich will z.B. bei Programmstart einen Sound abspielen lassen. Hab im Internet auch schon...