AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
Liste der Anhänge anzeigen (Anzahl: 1)
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. :?:
Anhang 42275 @bug ja... eine temp hat doch ein anderer pc auch, oder was meinst du. |
AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
Zitat:
Wenn es dir nur darum geht, dass du alles als eine Datei verteilen kannst, dann ist das kein Problem. |
AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
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. :roll: |
AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
Sowas gehört NICHT in Create...sondern in FormActivate
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
begin Midi('awt'); end; |
AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
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.
|
AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
Zitat:
@hathor thanks lg |
AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
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.
|
AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
So, also nochmal von vorne. Dein Problem ist die Endlosschleife:
Delphi-Quellcode:
Lässt du diesen Teil und diesen hier:
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
Delphi-Quellcode:
weg, macht die Funktion was du willst.
mciSendString('stop mySound', nil, 0, 0);
mciSendString('close mySound', nil, 0, 0); if FileExists(tmpPath) then // temporäre Datei löschen DeleteFile(tmpPath); Wenn du auf die aktuelle Position nicht verzichten kannst, musst du diesen Teil in einen Thread (oder Timer) auslagern. |
AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen
@Zacherl :-D
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:
ich will den code nicht gleich wieden zur sau machen.
mciSendString(PChar('open sequencer!' + tmpPath + ' alias mySound'), nil, 0, 0);
mciSendString('play mySound' , nil, 0, 0); besten dank nochmal :thumb: edit:
Delphi-Quellcode:
repeat geht nicht...
mciSendString('play mySound repeat' , nil, 0, 0);
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:15 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz