MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

[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.




@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;

[Zacherl]

Ich sehe eine fette repeat .. until Schleife in der Funktion. Logisch, dass die das Formular blockiert, wenn du sie nicht in einem extra Thread startest.

[010101]

Zitat von Zacherl:

Ich sehe eine fette repeat .. until Schleife in der Funktion. Logisch, dass die das Formular blockiert, wenn du sie nicht in einem extra Thread startest.

ich würde dich bitten mir den code mal in dem download zu korrigieren das ich mir den mal in ruhe ansehen kann.

@hathor

thanks



lg

[Zacherl]

Ich habe momentan keine Zeit mich genauer mit deinem Code zu beschäftigen. Aber wenn du eine "Endlosschleife" im Hautpthread ausführst, dann ist klar, dass dein Programm nicht mehr reagiert. Deshalb solltest du die komplette Funktion in einen extra Thread auslagern.

[Zacherl]

So, also nochmal von vorne. Dein Problem ist die Endlosschleife:

Delphi-Quellcode:

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

Lässt du diesen Teil und diesen hier:

Delphi-Quellcode:

mciSendString('stop mySound', nil, 0, 0);
  mciSendString('close mySound', nil, 0, 0);

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

weg, macht die Funktion was du willst.

Wenn du auf die aktuelle Position nicht verzichten kannst, musst du diesen Teil in einen Thread (oder Timer) auslagern.

[010101]

@Zacherl

danke dir für diese lösung, funktioniert erstmal perfect. die position ist nicht so wichtig, dass löschen wäre nicht übel gewesen aber egal...

hast du noch ne idee um nen loop/repeat hier einzubauen,

Delphi-Quellcode:

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

ich will den code nicht gleich wieden zur sau machen.

besten dank nochmal




edit:

mciSendString('play mySound repeat' , nil, 0, 0); repeat geht nicht...