Midi-Dateien abspielen (ohne MP)

[d3g]

Fehler 263 ist MCIERR_INVALID_DEVICE_NAME.

Probiere mal:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
const 
  FileName = 'C:\YourFile.mid'; 
begin 
  MCISendString(PChar('open ' + FileName + ' type sequencer alias sound'), nil, 0, Handle);
  MCISendString('play sound notify', nil, 0, Handle);
end;

[Marvel]

Nee. geht auch nicht...

Für das Handle muss ich nich zufällig was anderes einsetzen?!

Hab wieder die Werte ausgeben lassen:
erste Zeile: 259
zweite Zeile: 300

wo guckst du da nach? Könnte ich ja auch machen...

[d3g]

Zitat von Marvel:

Für das Handle muss ich nich zufällig was anderes einsetzen?!

Nein.

Zitat von Marvel:

Hab wieder die Werte ausgeben lassen:
erste Zeile: 259

MCIERR_UNRECOGNIZED_KEYWORD. Hat FileName Leerzeichen? Wenn ja, versuch mal (normale) Anführungszeichen drumherum zu setzen.

Zitat von Marvel:

zweite Zeile: 300

MCIERR_NOTIFY_ON_AUTO_OPEN. Ist auch logisch.

Zitat:

wo guckst du da nach?

Hier.

[Marvel]

Erstmal das: Meine Fresse bist du genial. Ich hab zwar nich so richtig die Ahnung, warum, aber wenn ich nen Filename ohne Leerzeichen hab, gehts.

DANKEDANKEDANKE

Aber ich weiß nich, wie du das mit den Anführungszeichen meinst...
- File" "Name
- "FileName"

oder wie meinst du das. Meinst du mit normalen Anführungszeichen überhaupt die " ???

Nochmal danke. Du bist der Größte!!!

[d3g]

Zitat von Marvel:

Ich hab zwar nich so richtig die Ahnung, warum, aber wenn ich nen Filename ohne Leerzeichen hab, gehts.

Ist FileName z.B. 'Ich habe mehrere Leerzeichen.mid', dann evauiert der gesamte Commandsting zu 'open Ich habe mehrere Leerzeichen.mid type sequencer alias sound'. Da ein Wort immer ein Parameter sein muss, wird der Interpreter mit "habe", "mehrere" und "Leerzeichen.mid" wenig anfangen können.

Wenn du den Commandstring wie folgt übergibst, dann wird '"Ich habe mehrere Leerzeichen.mp3"' als ein Parameter aufgefasst.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  FileName = '"Ich habe mehrere Leerzeichen.mid"';
begin
  MCISendString(PChar('open ' + FileName + ' type sequencer alias sound'), nil, 0, Handle);
  MCISendString('play sound notify', nil, 0, Handle);
end;

[Marvel]

Ok. gut. das ist verständlich.
Noch mal danke. Ich meld mich, wenn mir noch was einfällt. Werd dich weiterempfehlen.

[koarlheinz]

ich habe alles so gemacht wie hier beschrieben.
es kommt keine fehlermeldung und es wird keinen sound ausgegeben.

muss ich vorher irgend eine komponente installiert haben oder sonstige treiber?

[d3g]

Nein (ich wüsste zumindest nicht, dass man Windows ohne MCI-Treiber installieren könnte). Auch bei dir wüsste ich gerne

1.) welche Version du jetzt benutzt hast und
2.) was der Rückgabewert von MCISendString() ist.

[koarlheinz]

Ich verwende die Delphi 7 Enterprice Edition.
Naja was soll denn mcisednstring zurückgeben.

Bitte für Anfänger erklären

[d3g]

Es ging mir nicht um deine Delphi-Version. Poste bitte den Code, so wie du ihn in deinem Programm verwendest.

MCISendString() ist eine Funktion. Ich wüsste gerne, welchen Wert der Integer i hat, wenn du ihm mit i := MCISendString({...}); den Rückgabewert der Funktion zuweist.