<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>X-pack.org &#187; Multimedia</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/multimedia/feed/" rel="self" type="application/rss+xml" />
	<link>http://home.x-pack.org</link>
	<description>Download all you need here</description>
	<lastBuildDate>Fri, 18 May 2012 11:09:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>[ Delphi ] – Open and close a certain CD-drive</title>
		<link>http://home.x-pack.org/delphi-open-and-close-a-certain-cd-drive/</link>
		<comments>http://home.x-pack.org/delphi-open-and-close-a-certain-cd-drive/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:44:15 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=79</guid>
		<description><![CDATA[uses &#160;&#160;MMSystem; {Simple Way:} &#160;&#160;mciSendstring('SET CDAUDIO DOOR OPEN WAIT', nil, 0, Self.Handle); {More complex way:} function OpenCD(Drive: Char): Boolean; var &#160;&#160;Res: MciError; &#160;&#160;OpenParm: TMCI_Open_Parms; &#160;&#160;Flags: DWORD; &#160;&#160;S: string; &#160;&#160;DeviceID: Word; begin &#160;&#160;Result := False; &#160;&#160;S := Drive + ':'; &#160;&#160;Flags&#160;&#160;:= MCI_OPEN_TYPE or MCI_OPEN_ELEMENT; &#160;&#160;with OpenParm do &#160;&#160;begin &#160;&#160;&#160;&#160;dwCallback := 0; &#160;&#160;&#160;&#160;lpstrDeviceType := 'CDAudio'; &#160;&#160;&#160;&#160;lpstrElementName :=]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-open-and-close-a-certain-cd-drive/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Change the sound cards volume</title>
		<link>http://home.x-pack.org/delphi-change-the-sound-cards-volume/</link>
		<comments>http://home.x-pack.org/delphi-change-the-sound-cards-volume/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:42:25 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=75</guid>
		<description><![CDATA[uses &#160;&#160;MMSystem; procedure SetVolume(const volL, volR: Word); var &#160;&#160;hWO: HWAVEOUT; &#160;&#160;waveF: TWAVEFORMATEX; &#160;&#160;vol: DWORD; begin &#160;&#160;FillChar(waveF, SizeOf(waveF), 0); &#160;&#160;waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0); &#160;&#160;vol := volL + volR shl 16; &#160;&#160;waveOutSetVolume(hWO, vol); &#160;&#160;waveOutClose(hWO); end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;SetVolume(14000, 14000); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-change-the-sound-cards-volume/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Play sound through a sound card</title>
		<link>http://home.x-pack.org/delphi-play-sound-through-a-sound-card/</link>
		<comments>http://home.x-pack.org/delphi-play-sound-through-a-sound-card/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:40:45 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=71</guid>
		<description><![CDATA[uses MMSystem; type TVolumeLevel = 0..127; procedure MakeSound(Frequency{Hz}, Duration{mSec}: Integer; Volume: TVolumeLevel); {writes tone to memory and plays it} var WaveFormatEx: TWaveFormatEx; MS: TMemoryStream; i, TempInt, DataCount, RiffCount: integer; SoundValue: byte; w: double; // omega ( 2 * pi * frequency) const Mono: Word = $0001; SampleRate: Integer = 11025; // 8000, 11025, 22050, or]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-play-sound-through-a-sound-card/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Play system sounds</title>
		<link>http://home.x-pack.org/delphi-play-system-sounds/</link>
		<comments>http://home.x-pack.org/delphi-play-system-sounds/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:46:39 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=83</guid>
		<description><![CDATA[uses MMSystem; PlaySound(PChar('SYSTEMSTART'), 0, SND_ASYNC); { Other System sounds: Andere Systemsounds: SYSTEMSTART SYSTEMEXIT SYSTEMHAND SYSTEMASTERISK SYSTEMQUESTION SYSTEMEXCLAMATION SYSTEMWELCOME SYSTEMDEFAULT }]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-play-system-sounds/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Enable and disable system beep</title>
		<link>http://home.x-pack.org/delphi-enable-and-disable-system-beep/</link>
		<comments>http://home.x-pack.org/delphi-enable-and-disable-system-beep/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:45:48 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=81</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE); end; procedure TForm1.Button2Click(Sender: TObject); begin &#160;&#160;SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_SENDWININICHANGE); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-enable-and-disable-system-beep/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Record wave files (*.wav)</title>
		<link>http://home.x-pack.org/delphi-record-wave-files-wav/</link>
		<comments>http://home.x-pack.org/delphi-record-wave-files-wav/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:43:16 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=77</guid>
		<description><![CDATA[uses mmSystem; {....} procedure TForm1.Button1Click(Sender: TObject); // Record begin mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle); mciSendString('SET mysound TIME FORMAT MS ' + // set time 'BITSPERSAMPLE 8 ' + // 8 Bit 'CHANNELS 1 ' + // MONO 'SAMPLESPERSEC 8000 ' + // 8 KHz 'BYTESPERSEC 8000', // 8000 Bytes/s nil, 0,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-record-wave-files-wav/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Use the Microsoft Speech API</title>
		<link>http://home.x-pack.org/delphi-use-the-microsoft-speech-api/</link>
		<comments>http://home.x-pack.org/delphi-use-the-microsoft-speech-api/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:39:49 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=69</guid>
		<description><![CDATA[uses Comobj; procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak('Hello World!', 0); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-use-the-microsoft-speech-api/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Convert a Flash SWF to EXE</title>
		<link>http://home.x-pack.org/delphi-convert-a-flash-swf-to-exe/</link>
		<comments>http://home.x-pack.org/delphi-convert-a-flash-swf-to-exe/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:38:51 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=67</guid>
		<description><![CDATA[function Swf2Exe(S, D, F: string): string; var &#160;&#160;SourceStream, DestinyStream, LinkStream: TFileStream; &#160;&#160;flag: Cardinal; &#160;&#160;SwfFileSize: Integer; begin &#160;&#160;Result := 'something error'; &#160;&#160;DestinyStream := TFileStream.Create(D, fmCreate); &#160;&#160;try &#160;&#160;&#160;&#160;LinkStream := TFileStream.Create(F, fmOpenRead or fmShareExclusive); &#160;&#160;&#160;&#160;try &#160;&#160;&#160;&#160;&#160;&#160;DestinyStream.CopyFrom(LinkStream, 0); &#160;&#160;&#160;&#160;finally &#160;&#160;&#160;&#160;&#160;&#160;LinkStream.Free; &#160;&#160;&#160;&#160;end; &#160;&#160;&#160;&#160;SourceStream := TFileStream.Create(S, fmOpenRead or fmShareExclusive); &#160;&#160;&#160;&#160;try &#160;&#160;&#160;&#160;&#160;&#160;DestinyStream.CopyFrom(SourceStream, 0); &#160;&#160;&#160;&#160;&#160;&#160;flag := $FA123456; &#160;&#160;&#160;&#160;&#160;&#160;DestinyStream.WriteBuffer(flag, SizeOf(Integer)); &#160;&#160;&#160;&#160;&#160;&#160;SwfFileSize := SourceStream.Size; &#160;&#160;&#160;&#160;&#160;&#160;DestinyStream.WriteBuffer(SwfFileSize,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-convert-a-flash-swf-to-exe/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if a soundcard is installed</title>
		<link>http://home.x-pack.org/delphi-check-if-a-soundcard-is-installed/</link>
		<comments>http://home.x-pack.org/delphi-check-if-a-soundcard-is-installed/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:47:34 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=85</guid>
		<description><![CDATA[uses &#160;&#160;MMSystem; function SoundCardAvailable: Boolean; begin &#160;&#160;Result := WaveOutGetNumDevs &#62; 0; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-a-soundcard-is-installed/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Set the Volume in a TMediaplayer</title>
		<link>http://home.x-pack.org/delphi-set-the-volume-in-a-tmediaplayer/</link>
		<comments>http://home.x-pack.org/delphi-set-the-volume-in-a-tmediaplayer/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:41:34 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=73</guid>
		<description><![CDATA[uses &#160;&#160;MPlayer, MMSystem; const &#160;&#160;MCI_SETAUDIO = $0873; &#160;&#160;MCI_DGV_SETAUDIO_VOLUME = $4002; &#160;&#160;MCI_DGV_SETAUDIO_ITEM = $00800000; &#160;&#160;MCI_DGV_SETAUDIO_VALUE = $01000000; &#160;&#160;MCI_DGV_STATUS_VOLUME = $4019; type &#160;&#160;MCI_DGV_SETAUDIO_PARMS = record &#160;&#160;&#160;&#160;dwCallback: DWORD; &#160;&#160;&#160;&#160;dwItem: DWORD; &#160;&#160;&#160;&#160;dwValue: DWORD; &#160;&#160;&#160;&#160;dwOver: DWORD; &#160;&#160;&#160;&#160;lpstrAlgorithm: PChar; &#160;&#160;&#160;&#160;lpstrQuality: PChar; &#160;&#160;end; type &#160;&#160;MCI_STATUS_PARMS = record &#160;&#160;&#160;&#160;dwCallback: DWORD; &#160;&#160;&#160;&#160;dwReturn: DWORD; &#160;&#160;&#160;&#160;dwItem: DWORD; &#160;&#160;&#160;&#160;dwTrack: DWORD; &#160;&#160;end; procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer); &#160;&#160;{]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-set-the-volume-in-a-tmediaplayer/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced
Database Caching 25/57 queries in 0.076 seconds using disk: basic
Object Caching 614/679 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 05:09:42 -->
