AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

Ein Thema von SgtSilver · begonnen am 8. Jan 2007 · letzter Beitrag vom 21. Dez 2014
Antwort Antwort
Seite 4 von 4   « Erste     234
Benutzerbild von 010101
010101

Registriert seit: 27. Nov 2014
34 Beiträge
 
#31

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 7. Dez 2014, 19:34
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.
  Mit Zitat antworten Zitat
Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#32

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 7. Dez 2014, 19:53
... 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.
  Mit Zitat antworten Zitat
Benutzerbild von 010101
010101

Registriert seit: 27. Nov 2014
34 Beiträge
 
#33

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 9. Dez 2014, 19:22
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.

  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#34

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 9. Dez 2014, 20:34
Sowas gehört NICHT in Create...sondern in FormActivate

Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
begin
Midi('awt');
end;
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#35

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 10. Dez 2014, 08:57
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.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
Benutzerbild von 010101
010101

Registriert seit: 27. Nov 2014
34 Beiträge
 
#36

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 11. Dez 2014, 19:41
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
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#37

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 12. Dez 2014, 19:33
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.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#38

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 19. Dez 2014, 13:30
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.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
Benutzerbild von 010101
010101

Registriert seit: 27. Nov 2014
34 Beiträge
 
#39

AW: MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

  Alt 21. Dez 2014, 15:21
@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...

Geändert von 010101 (22. Dez 2014 um 11:45 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:42 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