MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

[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

[010101]

ist jetzt ohne warnmeldung, aber die form bleibt nach dem test (grüner pfeil) immer noch weg und der debugger läuft und man muss abbrechen.


debugger.jpg

@bug ja... eine temp hat doch ein anderer pc auch, oder was meinst du.

[BUG]

Zitat von 010101:

... eine temp hat doch ein anderer pc auch, oder was meinst du.

Jup, ich hab es nur erwähnt, weil du mehrfach betont hast, dass du es aus der Ressource abspielen willst.
Wenn es dir nur darum geht, dass du alles als eine Datei verteilen kannst, dann ist das kein Problem.

[010101]

hallo,

ich habe jetzt mal alles zum downloaden in eine leere form gepackt, da es noch nicht richtig funktioniert.

http://www.xup.to/dl,11603826/_midi_play.rar/

die warnmeldung ist weg dank deddyh, aber beim test hängt dann alles, und man muss abbrechen.

wäre toll wenn es jemand in der form zu laufen bringt. guckt bitte mal drüber.

[hathor]

Sowas gehört NICHT in Create...sondern in FormActivate

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
Midi('awt');
end;