mal wieder ... wave dateien abspielen

[woelpi]

Hi Leute

ich hab folgendes Porblem ->

ich will in meinem chatclienten, den ich für Informatik programmieren muss, Sound-Dateien eispielen, wenn zB ne Fehlermeldung kommt.

ich hab mich hier mal so durchgelesen und geguckt wie sowas aussehen könnt

Delphi-Quellcode:

mediaplayer.FileName := pchar(ExtractFilePath(ParamStr(0))+'sounds\nana.wav');
       mediaplayer.Open;
       mediaplayer.Play;

AutoOpen steht auf "true"

So jetzt zum Problem. Ich bin mir relativ sicher das es sich um reine waves handelt (CoolEdit -> Windows PCM), aber ich bekomm nichts abgespielt, wenn ich den DeviceType auf dtWaveAudio stehen hab. Nur, wenn er auf dtAutoSelect steht bekomm ich was abgepielt.
Bei mir verursacht dies zwar keine fehlermeldung beim starten, aber dafür auf der Hälfte aller anderen Computer. Dort startet das Prog nur wenn der DeviceType auf dtWaveAudio steht(spielt aber nichts ab).

Vll kann mir einer von euch dabei weiterhelfen.

(is vll der Codec nicht der richtige???)
Danke im vorraus.

Woelpi

[Nicodius]

kannst du wenn die meldung kommt strg+c drücken und dann hier strg+v -> das machts leichter ;)



hast du die mdi unit eingebunden?

[woelpi]

sry hat ich ganz vergessen
das Problem ist nur der Fehler kam auf dem Schulrechner und noch bei einem freund der für sowas nen bischen deppert is. Ich mein aber es wäre dieser Fehler gewesen

Im Projekt blabla ist eine Exception der Klasse EMCIDeviceError aufgetreten. Meldung: "Gerät nicht geöffnet oder wird vom MCI nicht erkannt."

dieser Fehler kommt zumindest wenn ich im Debugger nach guck mit nem anderen DeviceType.
Wie gesagt ich komm an die genaue Fehlermeldung nicht mehr so schnell dran. Höchstens in ner woche wieder, wenn ich wieder Informatik hab ^^.

[woelpi]

Zitat:

hast du die mdi unit eingebunden?

ne hab ich leider nicht.
aber was ist das überhaupt für eine unit? Scheint jedenfalls nicht standartmässig enthalten. Müsst ich mir erstma besorgen, oder wird die nur etwas anderes declariert

[Nicodius]

sorry meinte mci


Hier is was

[woelpi]

sry aber vll stell ich mich jetzt nen bischen dumm an; aber ;)
müsste das nicht alles ganz einfach über den in Delphi6 integrierten MediaPlayer gehen?
Wozu brauch ich da noch ne neue Komponente?

Dein Link den du mir geschickt hast hilft mir da leider auch nicht viel weiter, da ich das ja genauso geschrieben hab.
[quote]

Delphi-Quellcode:

mediaplayer.FileName := pchar(ExtractFilePath(ParamStr(0))+'sounds\nana.wav');
       mediaplayer.Open;
       mediaplayer.Play;

[quote]
Außerdem hab ich ja eher das Problem das der nicht die von mir ausgewählten waves spielen will. Er macht ja einfach überhauptnichts wenn ich dann auf play drück, obwohl es eigentlich eine ist.
Meine Frage ist eher woran es liegen kann, dass er eine mit CoolEdit gepeicherte wave-datei nicht abspielen mag.

die Methode dtAutoselect zu wählen war eigentlich nur ne Notlösung.

[Hansa]

ich würde gar keinen Player verwenden, sondern einfach ShellExecute mit open und fertig.

[Jens Schumann]

Hallo,
ich würde weder TMediaPlayer noch Shellexecute verwenden.
Mein Vorschlag ist: Binde den Sound als Resource ein und verwende die API Funktion PlaySound
aus der unit mmsystem. Hier im Forum lassen sich dazu bestimmt viele Beispiele finden.

[Hansa]

Habe den Source durchgesucht. So geht es bei mir :

Delphi-Quellcode:

PROCEDURE WaveAbspielen (DateiName : string);
VAR flag : byte;
BEGIN
  flag:=SND_ASYNC;
  sndPlaySound(PChar (DateiName), Flag);
END;

Shellexecute braucht man anscheinend tatsächlich nicht. Was mich wundert : das da ist ja echt fast nichts. :shock:

[woelpi]

@hansa
thx deine Möglichkeit funzt bis jetzt.
Muss jetzt nur noch gucken obs bei anderen Rechner zu Fehlern kommt, so wie bei meiner ersten Methode aber ich bin zuversichtlich

@alle anderen
DANKE Leute, dass ihr euch so bemüht hab mir zu helfen!!