Syntax SendMCICommand

[EWeiss]

Er wirft einen Fehler und zwar dann wenn man nicht vorher auf create geklickt hat
und die Datei abspielen will.

Ansonsten!
Ich höre Sound..

Du kannst ja mal folgendes ersetzen..

constructor Create(fileName: string; dtype: string; autoplay: Bool);

Delphi-Quellcode:

constructor TMCIPlayer.Create(fileName: string; dtype: string; autoplay: Bool);
 var
   lResult: cardinal;

 begin

  //init variables
   paused := FALSE;
   resultSize := 255;

   // We want to play a File.
   command := PWideChar('open "' + fileName + '" type ' + dtype + ' alias mciplayer wait');
   lResult := mciSendString(command, return, resultSize, 0);

   myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Meine.mp3', 'mpegvideo', False);

Sollte spielen .. bzw wie schon gesagt geht dein *.wav auch.

gruss

[Dunkelbunt27]

Zitat:

Er wirft einen Fehler und zwar dann wenn man nicht vorher auf create geklickt hat
und die Datei abspielen will.

Soweit war ich zum Glück auch schon

Zitat:

Ansonsten!
Ich höre Sound..

Hast du mal die Datei ausprobiert die ich angehängt habe? Ich höre auch nach deinem Änderungsvorschlag keinen Sound, egal wie laut ich mein System drehe

Zitat:

myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Meine.mp3', 'mpegvideo', False);

Sollte spielen .. bzw wie schon gesagt geht dein *.wav auch.

Ich schätze mal ich müsste dann statt mpegvideo waveaudio schreiben, richtig?

Desweiteren, wie kann man dabei die Lautstärke beeinflussen?

gruß

[EWeiss]

Zitat:

Ich schätze mal ich müsste dann statt mpegvideo waveaudio schreiben, richtig?

Ja wenn du weiterhin Wave Dateien abspielen willst.
Mir ging es darum das du mal ne einfache MP3 Testen tust..

Zitat:

Hast du mal die Datei ausprobiert die ich angehängt habe?

Ohne den Quelltext geöffnet zu haben getetstet!
War ja nur eine Datei unter Sounds und die funktioniert bei mir.

Zitat:

Desweiteren, wie kann man dabei die Lautstärke beeinflussen?

Das tust du doch schon im anderen Sample.

Delphi-Quellcode:

  Pfad := ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav';
  myMCIPlayer := TMCIPlayer.Create(Pfad, 'waveaudio', False);

hättest du ruhig lassen können

gruss

[Dunkelbunt27]

Zitat:

Ja wenn du weiterhin Wave Dateien abspielen willst.
Mir ging es darum das du mal ne einfache MP3 Testen tust..

Ja, ich will nur wave Dateien abspielen.

Zitat:

War ja nur eine Datei unter Sounds und die funktioniert bei mir.

Warum höre ich dann bei menem eigenen Programm keinen Sound!?

Zitat:

Zitat:

Desweiteren, wie kann man dabei die Lautstärke beeinflussen?

Das tust du doch schon im anderen Sample.

Wie meinst du das?

Aktuell sieht's jetzt so aus:

Delphi-Quellcode:

Pfad := ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav';
myMCIPlayer := TMCIPlayer.Create(Pfad, 'waveaudio', False);

Wie gewohnt aber kein Sound... Ich habs auch mit mpegvideo und ner *.mp3 versucht, aber da auch kein Ton...

[EWeiss]

Zitat:

Wie meinst du das?

Du veränderst doch schon über Spin die lautstärke in dem alten Sample oder nicht?

Zitat:

Wie gewohnt aber kein Sound... Ich habs auch mit mpegvideo und ner *.mp3 versucht, aber da auch kein Ton...

Dann ist irgend etwas in deinem System nicht in Ordnung bei mir gehts.

Kannst nur hoffen das es jemand anderer hier im forum nochmal testet.

Geht alles hier mp3 und wave

gruss

[Dunkelbunt27]

Zitat:

Du veränderst doch schon über Spin die lautstärke in dem alten Sample oder nicht?

Ah okay, gut, stimmt natürlich.

Zitat:

Dann ist irgend etwas in deinem System nicht in Ordnung bei mir gehts.
Kannst nur hoffen das es jemand anderer hier im forum nochmal testet.
Geht alles hier mp3 und wave

Ein bisschen beunruhigend, mal schauen wie es sich auf anderen PC's verhält.

Riesen Dank für deine Hilfe erstmal

[EWeiss]

Zitat:

Riesen Dank für deine Hilfe erstmal

Kein Problem mach ich gern wenn ich kann

gruss