MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

[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

[010101]

Zitat von 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

der code ist doch noch viel gewaltiger...

[010101]

ich möchte nicht den code von der ersten seite nehmem.

@deddy h

kannst du mir den code mal bitte so korigieren das er ohne warnung funktioniert.


implementation

{$R Midi.res}

Delphi-Quellcode:

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;

aufruf:

Midi('awt');

.rc awt MIDIFILE "test.mid"



lg

[turboPASCAL]

Probier es mal hiermit ( siehe Anhang ).

[010101]

danke dir. schöne anwendung und schöne musik (morgen kommt der...) passt jetzt prima.

es soll aber ne interne midi resource(hintergrund musik)sein, auch wenn das nicht so das gelbe ist.

vielleicht korrigiert mir deddy h den code ja noch, auch wenn er nicht viel von der variante hält.

[BUG]

Zitat von 010101:

es soll aber ne interne midi resource

Dir ist aber bewusst, das der Code die MIDI-Datei in die Datei ~tmpFile01 auspackt, diese dann abspielt und dann die Datei wieder löscht

[DeddyH]

Es ist doch schon 2 mal gesagt worden: das Create gehört vor das try.

Delphi-Quellcode:

if FindResource(hInstance, PChar(aResName), 'MIDIFILE') <> 0 then
  begin // Ist die Ressource verfügbar
    Stream := TResourceStream.Create(hInstance, aResName, 'MIDIFILE'); // Stream erstellen
    try      
      Stream.SaveToFile(tmpPath); // temporäre Datei speichern
    finally
      Stream.Free;
    end;
  end