Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi möglichst einfach MIDI abspielen (https://www.delphipraxis.net/99907-moeglichst-einfach-midi-abspielen.html)

Florian H 19. Sep 2007 12:59


möglichst einfach MIDI abspielen
 
Aloha,

wieder mal ein MIDI-Abspiel-Problem... ich würde gern im Hintergrund meiner Software ein MIDI-file abspielen , einfach als Loop durchlaufen lassen, ohne große Steuerung.
Für andere Soundausgaben nutze ich die BASS.dll, allerdings kann die MIDI nur mit Plugin und 10-30MB großer Soundfont abspielen - darauf würde ich dann doch lieber verzichten...
Auch der TMediaPlayer wäre für mich nicht erste Wahl, da dieser das Programm denke ich doch unnötig aufbläht.

Gibts denn sonst noch eine Möglichkeit, ohne großen Ressourcenverbrauch MIDIs abzuspielen?


grüßle
flo

hathor 19. Sep 2007 14:18

Re: möglichst einfach MIDI abspielen
 
Nimm doch einfach den MIDIPLAYER - kannst in Deinem Programm aufrufen mit shellexecute...:

http://ftp.lanet.lv/ftp/mirror/x2ftp...e/vrmms112.zip

blackdrake 26. Sep 2007 09:28

Re: möglichst einfach MIDI abspielen
 
MIDI Player mit ShellExecute aufrufen? Macht doch keinen Sinn als Hintergrundmusik z.B. in einem Spiel.

Wenn du direkt und ohne TMediaPlayer arbeiten willst, verwende "MCISendString". Damit kannst du direkt mit der Soundkarte kommunizieren und WAVE's oder MIDI's abspielen. Aber um das Loop beim MIDI musst du dich leider selbst kümmern.

http://www.swissdelphicenter.ch/de/showcode.php?id=1127

Ein paar Befehle:

Open, Close, Play, Stop, Rewind

Unit MMSystem muss eingebunden sein.

Wenn du nähere Fragen zu MCISendString hast, frage einfach.

Gruß
blackdrake

Florian H 26. Sep 2007 10:02

Re: möglichst einfach MIDI abspielen
 
Das ist eine schöne Lösung, danke :)

Mit mciSendString hab ich früher sogar mal gearbeitet .. gna ^^


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:46 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