Multimedia Programming/de: what changed

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

Old	New		Line
1	1		# Videos abspielen
2	2
3	3		## Einen Videoplayer ausführen
4	4
5	5		Wenn Sie die Kommandozeile und den Umgang mit Parametern kennen, können Sie TProcessUTF8 verwenden, um den Player zu starten:
6	6
7	7		``` pascal
8	8		uses
9	9		Classes, ..., LCLProc, UTF8Process;
10	10
11	11		...
12	12
13	13		implementation
14	14
15	15		procedure TMainForm.Button1Click(Sender: TObject);
16	16		var
17	17		Player: TProcessUTF8;
18	18
19	19		begin
20	20		Player:=TProcessUTF8.Create(nil);
21	21		try
22	22		Player.CommandLine := PathToPlayer + ' ' + ParametersAndMediaFile;
23	23		Player.Execute;
24	24		finally
25	25		Player.Free;
26	26		end;
27	27		end;
28	28
29	29		...
30	30		```
31	31
32		-	\
33		-	\
34	32		Ein Beispiel, wie man unter Linux den mplayer (oder vlc) zum wiedergeben eines Videos startet:
35	33
36	34		``` pascal
37	35		uses
38	36		Classes, ..., FileUtil, LCLProc, UTF8Process;
39	37
40	38		...
41	39
42	40		implementation
43	41
44	42		...
45	43
46	44		procedure TMainForm.Button1Click(Sender: TObject);
47	45		var
48	46		Player: TProcessUTF8;
49	47		Filename, PlayerPath, PlayerParams: String;
50	48		begin
51	49		Filename := '/home/username/video.mpg';
52	50		PlayerPath := FindDefaultExecutablePath('mplayer');
53	51		// Alternativ kann man mit der Methode auch den Player VLC verwenden
54	52		// PlayerPath := FindDefaultExecutablePath('vlc');
55	53		PlayerParams := '"' + Filename + '"';
56	54		Player:=TProcessUTF8.Create(nil);
57	55		try
58	56		Player.CommandLine := PlayerPath + ' ' + PlayerParams;
59	57		Player.Execute;
60	58		finally
61	59		Player.Free;
62	60		end;
63	61		end;
64	62
65	63		...
66	64		```
67	65
68		-	\
69		-
70	66		## MPlayer for Linux gtk2/X
71	67
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.\
	68	+	mplayer 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	69		Sie können das Control hier herunterladen:\
74	70
75	71		svn co https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/components/mplayer mplayer
76	72
77		-	\
78	73		=Sounds wiedergeben=
79	74
80	75		## Windows only: using the Windows API
81	76
82	77		You can use the Windows API to play e.g. wav files:
83	78
84	79		``` pascal
85	80		...
86	81		uses MMSystem;
87	82		...
88	83		sndPlaySound('C:\sounds\test.wav', snd_Async or snd_NoDefault);
89	84		```
90	85
91	86		Der fehlerfreie Weg, um nicht lateinische Pfad- und Dateinamen zu verwenden ist:
92	87
93	88		``` pascal
94	89		sndPlaySound(pchar(UTF8ToSys('C:\sounds\test.wav')), snd_Async or snd_NoDefault);
95	90		```
96	91
97		-	\
98	92		==Die Audio Component Suite verwenden== Lesen Sie die Seite über die [[ACS/de\|Audio Component Suite]]\
99		-	\
100	93
101	94		## Die OpenAL Library verwenden
102	95
103	96		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	97		==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	98		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		-	\
	99	+
107	100		==Audorra Bibliothek== Die Audorra Bibliothek arbeitet gut mit Lazarus zusammen: [1](http://sourceforge.net/projects/audorra/%7CAudorra)\
108		-	\
	101	+
109	102		==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	103		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		-	\
	104	+
112	105		==SDL + SDL_mixer== Die Bibliothek SDL wird mit einem einfachen Klangsystem geliefert und ist eine flexible Lösung.\
113	106		Die Units für den Zugriff auf die SDL Bibliotheken finden Sie im Verzeichnis /usr/share/fpcsrc/\[Versionsnummer\]/packages/sdl.\
114		-	\
	107	+
115	108		==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		-	\
	109	+
117	110		==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	111		[Sound Libraries](http://www.afterwarp.net/resources/soundlib)\
119		-	\
	112	+
120	113		==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	114		Siehe [[FPSound]]\
122		-	\
	115	+
123	116		==UOS (United OpenLib of Sound)== UOS : United OpenLib of Sound. UOS vereinheitlicht die besten open-source Klangbibliotheken.\
124	117		Sie können mit UOS:
125	118
126	119		- mp3, ogg, wav, flac,... Klangdateien anhören.
127	120		- Bietet 16, 32 oder 32 Bit Fliesskommaauflösung.
128	121
129	122		UOS verwendet die PortAudio, SndFile und Mpg123 Klang Bibliotheken.\
130		-	\
	123	+
131	124		Das Package enthält:
132	125
133	126		- Beispiele
134	127		- Binäre Bibliotheken für Linux 32/64, Windows 32/64 und MAC OSX 32
135	128
136	129		Siehe [UOS](http://github.com/fredvs/uos/)\
137	130
138	131		---
139	132		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