MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

[hathor]

uses MMSystem...

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var FN : String;
begin
FN:='D:\Info.mid'; // oder *.mp3
MCISendString(PChar('play ' + FN), nil, 0, 0);
end;

[DeddyH]

Und asynchron aus einer Ressource?

[hathor]

@DeddyH:
Willst Du mich beschäftigen oder was?

{$R SOUNDS.RES}

Geht aber nur mit WAV-Files:

Delphi-Quellcode:

PlaySound(PChar('ONE'),0,SND_ASYNC or SND_RESOURCE);
PlaySound(PChar('TWO'),0,SND_ASYNC or SND_RESOURCE);

[010101]

aus einer ressource.

die hier wird aber nicht richtig übergeben. die form bleibt weg und der debugger läuft. sound wird immerhin abgespielt...

Delphi-Quellcode:

uses

MMSystem;

implementation

{$R Midi.res}


procedure Midi(const aResName: String);
const
  Len: Cardinal = MAX_PATH;
  tmpFile: String = '~tmpFile01'; // Name der temporären Datei
var
  Stream: TCustomMemoryStream;
  BufLen, BufPos, tmpPath: String;
begin
  // Temp- Verzeichnis ermitteln
  SetLength(tmpPath, Len);
  GetTempPath(Len, PChar(tmpPath));
  tmpPath := StrPas(PChar(tmpPath)) + tmpFile;

  mciSendString('stop mySound', nil, 0, 0);
  mciSendString('close mySound', nil, 0, 0);
  if FileExists(tmpPath) then // temporäre Datei löschen (falls noch vorhanden)
    DeleteFile(tmpPath);

  if FindResource(hInstance, PChar(aResName), 'MIDIFILE') <> 0 then
  begin // Ist die Ressource verfügbar
    try
      Stream := TResourceStream.Create(hInstance, aResName, 'MIDIFILE'); // Stream erstellen
      Stream.SaveToFile(tmpPath); // temporäre Datei speichern
    finally
      Stream.Free;
    end;
  end
  else
  begin
    MessageBeep(MB_ICONEXCLAMATION);
    MessageDlg('Die Ressource kann nicht gefunden werden.', mtError, [mbOk], 0);
    Exit;
  end;

  mciSendString(PChar('open sequencer!' + tmpPath + ' alias mySound'), nil, 0, 0);
  mciSendString('play mySound' , nil, 0, 0);

  SetLength(BufLen, Len);
  SetLength(BufPos, Len);
  mciSendString('status mySound length', PChar(BufLen), Len, 0); // Länge der Mididatei ermitteln
  repeat
    mciSendString('status mySound position', PChar(BufPos), Len, 0); // aktuelle Position ermitteln ...
    Application.ProcessMessages;
    if Application.Terminated then
      break;
  until StrToInt(BufPos) >= StrToInt(BufLen); // ... bis Dateiende erreicht ist
  mciSendString('stop mySound', nil, 0, 0);
  mciSendString('close mySound', nil, 0, 0);

  if FileExists(tmpPath) then // temporäre Datei löschen
    DeleteFile(tmpPath);
end;



 procedure TForm1.FormCreate(Sender: TObject);
begin


Midi('awt');

end;

ja will dich beschäftigen ne muss noch irgendwo was nicht ganz stimmen....

[010101]

kann den code mal jemand bei sich probieren.

bei mir kommt ne warnung bei:

Stream.Free;
Variable 'Stream' ist möglicherweise nicht initialisiert worden.

der sound der midi funktioniert, aber die form ist nicht mehr sichtbar/ansprechbar.

[DeddyH]

Das hatte ich mit asynchron gemeint. Ich glaube kaum, dass das mit MMSystem so einfach zu machen ist, es sei denn, Du verlagerst das Abspielen selbst in einen eigenen Thread. Und zu der Warnung:

Delphi-Quellcode:

Dings := TDings.Create;
try
  MachWasMitDings;
finally
  Dings.Free;
end;

Das Erzeugen sollte vor dem Eintritt in den Ressourcenschutzblock erfolgen, sonst gibt es im Fehlerfall ja auch nichts freizugeben oder noch schlimmer: man greift auf etwas zu, was gar nicht da, aber auch nicht nil ist, das ergibt dann immer diese ekligen Schutzverletzungen.

[Bernhard Geyer]

Die erzeugung muss eine Zeile früher sein.
Wenn es hier kracht hat du ja auch kein gültiges Objekt das du im finally aufräumen könntest.

Delphi-Quellcode:

   Stream := TResourceStream.Create(hInstance, aResName, 'MIDIFILE'); // Stream erstellen
   try
      Stream.SaveToFile(tmpPath); // temporäre Datei speichern
   finally
      Stream.Free;
   end;

[010101]

ich habs jetzt ne zeile höher probiert, bekomme es nicht ohne fehler gebacken...
@deddy h wie meinst du mit asynchron?

könnt ihr bitte mal den korigierten code wie er bei euch ohne fehler funktioniert posten.

lg

[hathor]

Es ist doch alles schon im Forum vorhanden!
Muss man es 100 mal ins Forum schreiben?

http://www.delphipraxis.net/1557-mid...abspielen.html