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.


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;

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