Sign in Join
Wiki copytemporary

Multimedia Programming/de: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Multimedia Programming/de

OldNewLine
1+# Videos abspielen
2+
3+## Einen Videoplayer ausführen
4+
5+Wenn Sie die Kommandozeile und den Umgang mit Parametern kennen, können Sie TProcessUTF8 verwenden, um den Player zu starten:
6+
7+``` pascal
8+uses
9+ Classes, ..., LCLProc, UTF8Process;
10+
11+...
12+
13+implementation
14+
15+procedure TMainForm.Button1Click(Sender: TObject);
16+var
17+ Player: TProcessUTF8;
18+
19+begin
20+ Player:=TProcessUTF8.Create(nil);
21+ try
22+ Player.CommandLine := PathToPlayer + ' ' + ParametersAndMediaFile;
23+ Player.Execute;
24+ finally
25+ Player.Free;
26+ end;
27+end;
28+
29+...
30+```
31+
32+\
33+\
34+Ein Beispiel, wie man unter Linux den mplayer (oder vlc) zum wiedergeben eines Videos startet:
35+
36+``` pascal
37+uses
38+ Classes, ..., FileUtil, LCLProc, UTF8Process;
39+
40+...
41+
42+implementation
43+
44+...
45+
46+procedure TMainForm.Button1Click(Sender: TObject);
47+var
48+ Player: TProcessUTF8;
49+ Filename, PlayerPath, PlayerParams: String;
50+begin
51+ Filename := '/home/username/video.mpg';
52+ PlayerPath := FindDefaultExecutablePath('mplayer');
53+ // Alternativ kann man mit der Methode auch den Player VLC verwenden
54+ // PlayerPath := FindDefaultExecutablePath('vlc');
55+ PlayerParams := '"' + Filename + '"';
56+ Player:=TProcessUTF8.Create(nil);
57+ try
58+ Player.CommandLine := PlayerPath + ' ' + PlayerParams;
59+ Player.Execute;
60+ finally
61+ Player.Free;
62+ end;
63+end;
64+
65+...
66+```
67+
68+\
69+
70+## MPlayer for Linux gtk2/X
71+
72+<b>mplayer</b> ist ein freier Open Source Video-Player. Es existiert ein LCL Control mit dem Namen [[TMPlayerControl]] das den MPlayer so einbettet, dass Sie damit Ihre eigenen Video-Player erstellen können oder Sie können in Ihrer Anwendung ein Video abspielen.\
73+Sie können das Control hier herunterladen:\
74+
75+ svn co https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/components/mplayer mplayer
76+
77+\
78+=Sounds wiedergeben=
79+
80+## Windows only: using the Windows API
81+
82+You can use the Windows API to play e.g. wav files:
83+
84+``` pascal
85+...
86+uses MMSystem;
87+...
88+sndPlaySound('C:\sounds\test.wav', snd_Async or snd_NoDefault);
89+```
90+
91+Der fehlerfreie Weg, um nicht lateinische Pfad- und Dateinamen zu verwenden ist:
92+
93+``` pascal
94+sndPlaySound(pchar(UTF8ToSys('C:\sounds\test.wav')), snd_Async or snd_NoDefault);
95+```
96+
97+\
98+==Die Audio Component Suite verwenden== Lesen Sie die Seite über die [[ACS/de|Audio Component Suite]]\
99+\
100+
101+## Die OpenAL Library verwenden
102+
103+Ein Tutorial für Delphi finden Sie hier: [Delphi OpenAL - Tutorials](http://www.noeska.com/doal/tutorials.aspx) Es gibt für Free Pascal ein Beispiel für den Zugriff auf OpenAl. Sie finden das Beispiel unter /usr/share/doc/fpc-\[Versionsnummer\]/openal/examples bzw. [usage examples](http://svn.freepascal.org/svn/fpc/trunk/packages/openal/examples)\
104+==BASS== Die BASS Bibliothek kann von den Seiten [un4seen](http://www.un4seen.com/) und [un4seen forum](http://www.un4seen.com/forum/?topic=8682.0) heruntergeladen werden.\
105+Es gibt eine DJ Anwendung für Windows, Linux und MAC OSX. Die Anwendung ist in Lazarus geschrieben und verwendet die Bibliothek BASS [miXimum](https://sites.google.com/site/fiensprototyping/)\
106+\
107+==Audorra Bibliothek== Die Audorra Bibliothek arbeitet gut mit Lazarus zusammen: [1](http://sourceforge.net/projects/audorra/%7CAudorra)\
108+\
109+==PortAudio== Es gibt zahlreiche Anbindungen für [PortAudio](http://www.portaudio.com/). PortAudio ist eine Cross-Plattform und Open Source Bibliothek zur Wiedergabe und zur Aufnahme von Sound-Dateien.\
110+Der Forum User Fredvs hat eine Pascal Unit geschrieben, die PortAudio dynamisch lädt: [Forum](http://lazarus.freepascal.org/index.php/topic,17521.0.html)\
111+\
112+==SDL + SDL_mixer== Die Bibliothek SDL wird mit einem einfachen Klangsystem geliefert und ist eine flexible Lösung.\
113+Die Units für den Zugriff auf die SDL Bibliotheken finden Sie im Verzeichnis /usr/share/fpcsrc/\[Versionsnummer\]/packages/sdl.\
114+\
115+==FMOD== Ist eine Closed Source Lösung. FMOD ist frei für nicht kommerzielle Software, für kommerzielle Software muss eine Lizenzgebühr bezahlt werden.\
116+\
117+==Squall sound== Squall sound arbeitet mit Free Pascal zusammen. Squall sound bietet 3D audio und EAX Effekte und unterstützt MP§, OGG und WAV Dateiformate.\
118+[Sound Libraries](http://www.afterwarp.net/resources/soundlib)\
119+\
120+==FPSound== FPSound ist eine neu entwickelte Bibliothek. FPSound hat unabhängige Module zum lesen, schreiben und abspielen von Klangdateien (Sound Dateien) und eine Möglichkeit zum Bearbeiten der Dateien.\
121+Siehe [[FPSound]]\
122+\
123+==UOS (United OpenLib of Sound)== UOS : United OpenLib of Sound. UOS vereinheitlicht die besten open-source Klangbibliotheken.\
124+Sie können mit UOS:
125+
126+- mp3, ogg, wav, flac,... Klangdateien anhören.
127+- Bietet 16, 32 oder 32 Bit Fliesskommaauflösung.
128+
129+UOS verwendet die PortAudio, SndFile und Mpg123 Klang Bibliotheken.\
130+\
131+Das Package enthält:
132+
133+- Beispiele
134+- Binäre Bibliotheken für Linux 32/64, Windows 32/64 und MAC OSX 32
135+
136+Siehe [UOS](http://github.com/fredvs/uos/)\
137+
138+---
139+*From the Free Pascal wiki, page "Multimedia Programming/de", as it stood on 2020-02-20 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history