Forum: Multimedia
by Zacherl,
19. Dez 2014
So, also nochmal von vorne. Dein Problem ist die Endlosschleife:
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...
Forum: Multimedia
by Zacherl,
12. Dez 2014
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.
Forum: Multimedia
by Zacherl,
10. Dez 2014
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.