<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048447</guid>
        <pubDate>Sat, 18 Mar 2006 22:45:05 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048447</link>
        <description><![CDATA[Arazel: <strong class='tag-b'>Krid</strong><br>
<strong class='tag-b'>--= Eagle =--</strong><br>
Не знаю, только что запустил, что в Winapm(е) что в JetAudio а также MediaPlayer<br>
везде нормально играет   :huh:]]></description>
        <author>Arazel</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048360</guid>
        <pubDate>Sat, 18 Mar 2006 21:09:13 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048360</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Arazel</strong>, ты меня конечно извини, но ты ВНИМАТЕЛЬНО ВЧИТЫВАЕШЬСЯ В СООБЩЕНИЯ?&#33; МОЯ ПРОГРАММА на МОЕЙ МАШИНЕ воспроизводит MIDI <strong class='tag-b'>С ИСКАЖЕНИЯМИ</strong>, на МАШИНЕ <strong class='tag-b'>CBP</strong> ЭТА ЖЕ ПРОГРАММА воспроизводит ТОТ ЖЕ MIDI <strong class='tag-b'>БЕЗ ИСКАЖЕНИЙ</strong>. Сейчас я хочу узнать почему это происходит и сделать так, чтобы и на моей машине моя программа не искажала мидяху.]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048359</guid>
        <pubDate>Sat, 18 Mar 2006 21:06:58 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048359</link>
        <description><![CDATA[Krid: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=135090&view=findpost&p=1048338'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Arazel &#064; <time class="tag-quote__quoted-time" datetime="2006-03-18T20:32:49+00:00">18.03.06, 20:32</time></span><div class='quote '>Если есть искажение тогда Зкукавуха</div></div><br>
Да нифига подобного - у меня и в винампе (да и везде) играет нормально, а код CBP выдает совсем другой звук. Так что, имхо, тут дело не в звуковухе, а в настройке инструментов.]]></description>
        <author>Krid</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048338</guid>
        <pubDate>Sat, 18 Mar 2006 20:32:49 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048338</link>
        <description><![CDATA[Arazel: <strong class='tag-b'>--= Eagle =--</strong> Ну попробуй WinAMP(ом) пройграть<br>
или тем же PianoEx.rar <br>
Если есть искажение тогда Зкукавуха иначе код  :D]]></description>
        <author>Arazel</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048221</guid>
        <pubDate>Sat, 18 Mar 2006 17:57:31 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1048221</link>
        <description><![CDATA[--= Eagle =--: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Arazel, 17.03.2006, 20:54:39, 1047486</span><div class='quote '>И чем это все закончилось</div></div><br>
Тем, что код, в принципе, рабочий. <strong class='tag-b'>CBP</strong> говорит, что у него MIDI вопроизводится без искажений, у меня - с искажениями. Моя звуковуха - SBLive&#33; 5.1, какая у него - не знаю... У меня есть идея, что, возможно, нужно проигрывать на другое звуковое устройство, если их несколько установлено... Или загружать инструменты, только как? ХЗ... Хотел бы, чтобы мне помогли советом, да потестили...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1047486</guid>
        <pubDate>Fri, 17 Mar 2006 18:54:39 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1047486</link>
        <description><![CDATA[Arazel: И чем это все закончилось  :)]]></description>
        <author>Arazel</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1047105</guid>
        <pubDate>Fri, 17 Mar 2006 12:30:57 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1047105</link>
        <description><![CDATA[--= Eagle =--: По поводу Runtime error&#39;ов: ошибка найдена и учтена на будущее<br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>ekamaloff, 17.03.06, 9:43:00</span><div class='quote '>Дело в том, что с указателями на интерфейс Delphi работает особенным образом. В частности при выходе из блока (процедуры, функции, программы) для всех локальных переменных такого типа, вызывается системная функция _IntfClear. Она проверяет переданный ей указатель на nil и, при необходимости, производит уменьшение счетчика ссылок. В твоем случае это и происходило. Причем происходило уже после того, как из памяти был выгружен DirectX и сам COM. Вследствие этого возникала ошибка.<br>
<br>
Когда мы все вызовы IInterface._Release заменяем на присвоение nil (кстати это также приводит к автоматическому вызову _Release), то при выходе из блока, _Release на этом указателе уже не вызывается, поскольку он нулевой. И все в итоге получается тип-топ. </div></div><br>
<br>
Вобщем, _Release убираем, делаем так:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&nbsp;&nbsp;g_pLoader := nil;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance := nil;</div><div class="code_line">&nbsp;&nbsp;g_pSegment := nil;</div><div class="code_line">&nbsp;&nbsp;//{ --- если реверберация отключена ---&#62;</div><div class="code_line">&nbsp;&nbsp;g_pDirectMusic := nil;</div><div class="code_line">&nbsp;&nbsp;g_pPort := nil;</div><div class="code_line">&nbsp;&nbsp;// &#60;-------------------------------}</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script>]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1046565</guid>
        <pubDate>Fri, 17 Mar 2006 01:51:40 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1046565</link>
        <description><![CDATA[Krid: <strong class='tag-b'>Arazel</strong>, см. пост #13.]]></description>
        <author>Krid</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1046563</guid>
        <pubDate>Fri, 17 Mar 2006 01:44:13 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1046563</link>
        <description><![CDATA[Arazel: Кто не будь выложите модуль DirectMusic]]></description>
        <author>Arazel</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1046545</guid>
        <pubDate>Thu, 16 Mar 2006 23:33:26 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1046545</link>
        <description><![CDATA[--= Eagle =--: Благодаря <strong class='tag-b'>CBP</strong> добавил код для отключения эффекта реверберации, но всё равно звучание не такое, как надо...<br>
Runtime error всё ещё вылезает... :(<br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">{$APPTYPE GUI}</div><div class="code_line">&nbsp;</div><div class="code_line">uses</div><div class="code_line">&nbsp;&nbsp;Windows, ActiveX, DirectMusic;</div><div class="code_line">&nbsp;</div><div class="code_line">var</div><div class="code_line">&nbsp;&nbsp;g_pLoader: IDirectMusicLoader = nil;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance: IDirectMusicPerformance = nil;</div><div class="code_line">&nbsp;&nbsp;g_pSegment: IDirectMusicSegment = nil;</div><div class="code_line">&nbsp;&nbsp;g_pDirectMusic: IDirectMusic = nil;</div><div class="code_line">&nbsp;&nbsp;g_pPort: IDirectMusicPort = nil;</div><div class="code_line">&nbsp;&nbsp;desc: DMUS_OBJECTDESC;</div><div class="code_line">&nbsp;&nbsp;portparams: DMUS_PORTPARAMS; // для отключения реверберации</div><div class="code_line">&nbsp;&nbsp;hResource: THandle;</div><div class="code_line">&nbsp;</div><div class="code_line">{$R mymusic.RES}</div><div class="code_line">{ --- mymusic.rc ---</div><div class="code_line">12345 &nbsp; RCDATA &nbsp;&quot;GIMN2.MID&quot;</div><div class="code_line">}</div><div class="code_line">&nbsp;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;CoInitialize(nil);</div><div class="code_line">&nbsp;&nbsp;CoCreateInstance(CLSID_DirectMusicLoader, nil, CLSCTX_INPROC, IID_IDirectMusicLoader, g_pLoader);</div><div class="code_line">&nbsp;&nbsp;CoCreateInstance(CLSID_DirectMusicPerformance, nil, CLSCTX_INPROC, IID_IDirectMusicPerformance, g_pPerformance);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;hResource := FindResource(hInstance, MAKEINTRESOURCE(12345), RT_RCDATA);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.Init(g_pDirectMusic, nil, 0);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;desc.dwSize := SizeOf(DMUS_OBJECTDESC);</div><div class="code_line">&nbsp;&nbsp;desc.pbMemData := LockResource(LoadResource(Hinstance, FindResource(hInstance, MAKEINTRESOURCE(12345), RT_RCDATA)));</div><div class="code_line">&nbsp;&nbsp;desc.llMemLength := SizeofResource(hInstance, hResource);</div><div class="code_line">&nbsp;&nbsp;desc.guidClass := CLSID_DirectMusicSegment;</div><div class="code_line">&nbsp;&nbsp;desc.dwValidData := DMUS_OBJ_CLASS or DMUS_OBJ_MEMORY;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;// не отключать реверберацию:</div><div class="code_line">&nbsp;&nbsp;// g_pPerformance.AddPort(nil);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;//{ --- отключить реверберацию ---&#62;</div><div class="code_line">&nbsp;&nbsp;portparams.dwSize := SizeOf(DMUS_PORTPARAMS);</div><div class="code_line">&nbsp;&nbsp;portparams.dwValidParams := DMUS_PORTPARAMS_SAMPLERATE or DMUS_PORTPARAMS_EFFECTS;</div><div class="code_line">&nbsp;&nbsp;portparams.dwSampleRate := 22050;</div><div class="code_line">&nbsp;&nbsp;portparams.dwEffectFlags := DMUS_EFFECT_NONE;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pDirectMusic.CreatePort(GUID_NULL, portparams, g_pPort, nil);</div><div class="code_line">&nbsp;&nbsp;g_pPort.Activate(TRUE);</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.AddPort(g_pPort);</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.AssignPChannelBlock(0, g_pPort, 1);</div><div class="code_line">&nbsp;&nbsp;// &#60;-------------------------------}</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pLoader.GetObject(desc, IID_IDirectMusicSegment, g_pSegment);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pSegment.SetParam(GUID_StandardMIDIFile, Cardinal(-1), 0, 0, @g_pPerformance);</div><div class="code_line">&nbsp;&nbsp;g_pSegment.SetParam(GUID_Enable_Auto_Download, Cardinal(-1), 0, 0, @g_pPerformance);</div><div class="code_line">&nbsp;</div><div class="code_line">// &nbsp;g_pPerformance.DownloadInstrument( ??? )</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.PlaySegment(g_pSegment, 0, 0, nil);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;MessageBox(0, &#39;Click OK to Stop.&#39;, &#39;Playing MIDI...&#39;, MB_OK);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.Stop(g_pSegment, nil, 0, 0);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.CloseDown;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pLoader._Release;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance._Release;</div><div class="code_line">&nbsp;&nbsp;g_pSegment._Release;</div><div class="code_line">&nbsp;&nbsp;//{ --- если реверберация отключена ---&#62;</div><div class="code_line">&nbsp;&nbsp;g_pDirectMusic._Release;</div><div class="code_line">&nbsp;&nbsp;g_pPort._Release;</div><div class="code_line">&nbsp;&nbsp;// &#60;-------------------------------}</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;CoUninitialize;</div><div class="code_line">end.</div></ol></div></div></div></div>]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1045268</guid>
        <pubDate>Wed, 15 Mar 2006 23:16:34 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1045268</link>
        <description><![CDATA[--= Eagle =--: Только что нашёл. Вот это:<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>&#045;&#045;= Eagle =&#045;&#045;, 15.03.2006, 15:47:27, 1044742</span><div class='quote '>//в сравнении с сишными заголовками,<br>
//в делфовых аналогах нет таких процедур:<br>
//g_pLoader.Release<br>
//g_pPerformance.Release;<br>
//g_pSegment.Release;<br>
<br>
//есть только<br>
  g_pLoader.ReleaseObject(nil);</div></div><br>
заменяем на:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&nbsp;&nbsp;g_pLoader._Release;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance._Release;</div><div class="code_line">&nbsp;&nbsp;g_pSegment._Release;</div></ol></div></div></div></div><br>
<br>
Правда, это ничего не меняет... Видать, ошибка где-то ещё...<br>
Вобщем, пойду покурю ещё разок MSDN...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1044742</guid>
        <pubDate>Wed, 15 Mar 2006 13:47:27 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1044742</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Krid</strong>, спасибо, это то, что я, собственно, и искал. Вот, перевёл пример, написанный <strong class='tag-b'>CBP</strong> (спасибо ему огромное) с Сишки на Делфи, вот что получилось (немного исправленный код, музыку проигрывает - что уже радует):<br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">{$APPTYPE GUI}</div><div class="code_line">&nbsp;</div><div class="code_line">uses</div><div class="code_line">&nbsp;&nbsp;Windows, ActiveX, DirectMusic, DirectSound;</div><div class="code_line">&nbsp;</div><div class="code_line">var</div><div class="code_line">&nbsp;&nbsp;g_pLoader: IDirectMusicLoader = nil;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance: IDirectMusicPerformance = nil;</div><div class="code_line">&nbsp;&nbsp;g_pSegment: IDirectMusicSegment = nil;</div><div class="code_line">&nbsp;&nbsp;_IDM: IDirectMusic;</div><div class="code_line">&nbsp;&nbsp;_IDS: IDirectSound;</div><div class="code_line">&nbsp;&nbsp;desc: DMUS_OBJECTDESC;</div><div class="code_line">&nbsp;&nbsp;hResource: THandle;</div><div class="code_line">&nbsp;</div><div class="code_line">{$R mymusic.RES}</div><div class="code_line">{ --- mymusic.rc ---</div><div class="code_line">12345 &nbsp; RCDATA &nbsp;&quot;GIMN2.MID&quot;</div><div class="code_line">}</div><div class="code_line">&nbsp;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;CoInitialize(nil);</div><div class="code_line">&nbsp;&nbsp;CoCreateInstance(CLSID_DirectMusicLoader, nil, CLSCTX_INPROC, IID_IDirectMusicLoader, g_pLoader);</div><div class="code_line">&nbsp;&nbsp;CoCreateInstance(CLSID_DirectMusicPerformance, nil, CLSCTX_INPROC, IID_IDirectMusicPerformance, g_pPerformance);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;hResource := FindResource(hInstance, MAKEINTRESOURCE(12345), RT_RCDATA);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.Init(_IDM, _IDS, 0);</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.AddPort(nil);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;desc.dwSize := SizeOf(DMUS_OBJECTDESC);</div><div class="code_line">&nbsp;&nbsp;desc.pbMemData := LockResource(LoadResource(Hinstance, FindResource(hInstance, MAKEINTRESOURCE(12345), RT_RCDATA)));</div><div class="code_line">&nbsp;&nbsp;desc.llMemLength := SizeofResource(hInstance, hResource);</div><div class="code_line">&nbsp;&nbsp;desc.guidClass := CLSID_DirectMusicSegment;</div><div class="code_line">&nbsp;&nbsp;desc.dwValidData := DMUS_OBJ_CLASS or DMUS_OBJ_MEMORY;</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pLoader.GetObject(desc, IID_IDirectMusicSegment, g_pSegment);</div><div class="code_line">&nbsp;&nbsp;g_pSegment.SetParam(GUID_Enable_Auto_Download, Cardinal(-1), 0, 0, @g_pPerformance);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.PlaySegment(g_pSegment, 0, 0, nil);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;MessageBox(0, &#39;Click OK to Stop.&#39;, &#39;Playing MIDI...&#39;, MB_OK);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.Stop(g_pSegment, nil, 0, 0);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;g_pPerformance.CloseDown;</div><div class="code_line">&nbsp;</div><div class="code_line">//в сравнении с сишными заголовками,</div><div class="code_line">//в делфовых аналогах нет таких процедур:</div><div class="code_line">//g_pLoader.Release</div><div class="code_line">//g_pPerformance.Release;</div><div class="code_line">//g_pSegment.Release;</div><div class="code_line">&nbsp;</div><div class="code_line">//есть только</div><div class="code_line">&nbsp;&nbsp;g_pLoader.ReleaseObject(nil);</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp;CoUninitialize;</div><div class="code_line">end.</div></ol></div></div></div></div><br>
<br>
Огорчает одна вещь - иногда ни с того, ни с сего появляются сообщения Runtime error 216 at 00403430... Но там нужно отлаживать код на ассемблере, адрес находится за пределами главной процедуры ( в сишке это называлось бы функция main() )...<br>
<br>
И ещё одно: никто случаем не знает, как загрузить инструменты из оригинального MIDI, а то там наверное используются инструменты по-умолчанию, ибо звучание немного не то (по сравнению с большинством моедаплееров)? В MSDN&#39;е я вычилал, что нужно ещё добавить строку типа<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">g_pSegment.SetParam(GUID_StandardMIDIFile, Cardinal(-1), 0, 0, @g_pPerformance);</div></ol></div></div></div></div><br>
тогда инструменты должнызагрузиться... Чё-то не фурычит :(<br>
<br>
Вобщем, я всё ещё не отказался бы от помощи :)]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1043021</guid>
        <pubDate>Tue, 14 Mar 2006 02:08:56 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1043021</link>
        <description><![CDATA[Krid: <strong class='tag-b'>--= Eagle =--</strong>, посмотри заголовки тут: <a class='tag-url' href='http://www.clootie.ru/delphi/download_dx92.html#Headers' target='_blank'>DirectX headers and libraries</a>]]></description>
        <author>Krid</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037682</guid>
        <pubDate>Wed, 08 Mar 2006 15:04:12 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037682</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Krid</strong>, я не пишу на Си, ибо я его слишком плохо понимаю, и не очень он мне нравится...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037306</guid>
        <pubDate>Wed, 08 Mar 2006 03:53:20 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037306</link>
        <description><![CDATA[Krid: Посмотри <a class='tag-url' href='http://www.koders.com/cpp/fid8FD7825572AF9EBB804FE8A6439B1E221786E691.aspx' target='_blank'>тут</a>.]]></description>
        <author>Krid</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037303</guid>
        <pubDate>Wed, 08 Mar 2006 03:44:26 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037303</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Krid</strong>, см. мой первй пост. У меня нет соответствующих заголовков DirectX для работы с DirectMusic. Если можешь всё устроить - я тебе буду премного балгодарен. :yes:]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037257</guid>
        <pubDate>Tue, 07 Mar 2006 23:10:00 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037257</link>
        <description><![CDATA[Krid: <strong class='tag-b'>--= Eagle =--</strong>, звиняй - не ту ссылку дал (с копипастом промахнулся) :) На самом деле хотел вот эту: <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=86024&view=findpost&p=639315' target='_blank'>Воспроизведение Mid файлов из ресурса (сообщение #639315)</a><br>
Сам на Delphi перекинешь?]]></description>
        <author>Krid</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037085</guid>
        <pubDate>Tue, 07 Mar 2006 19:22:50 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037085</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Krid</strong>, там написана ахинея... MIDI-файл НЕ может быть проигран с помощью PlaySound() или sndPlaySound() &#33;&#33;<br>
<br>
Кстати, могу сказать, что<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">PlaySound(&#39;MYWAV&#39; , 0, SND_RESOURCE);</div></ol></div></div></div></div><br>
срабатывает не всегда, у меня на D7 не работает. А вот если указать поинтер на ресурс, то будет ОК...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037028</guid>
        <pubDate>Tue, 07 Mar 2006 18:21:12 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1037028</link>
        <description><![CDATA[Krid: <strong class='tag-b'>--= Eagle =--</strong>, глянь тут: <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=52121&view=findpost&p=343809' target='_blank'>Как втиснуть в файл ресурсов (сообщение #343809)</a>]]></description>
        <author>Krid</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035847</guid>
        <pubDate>Mon, 06 Mar 2006 16:45:13 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035847</link>
        <description><![CDATA[Arazel: <strong class='tag-b'>--= Eagle =--</strong>  :(  :huh:  :whistle: <br>
Наверное я береборщил...  :ph34r:]]></description>
        <author>Arazel</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035804</guid>
        <pubDate>Mon, 06 Mar 2006 16:10:15 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035804</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Arazel</strong>, а ты понял, что написал ввиду того, что я просил совсем другое?]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035657</guid>
        <pubDate>Mon, 06 Mar 2006 14:20:36 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035657</link>
        <description><![CDATA[Arazel: Ну вообщето ПРИМЕР работает и он классный&#33; ;)<br>
Второе про MIDI пройгрование я много видел примеров<br>
Например:<br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">uses</div><div class="code_line">&nbsp;&nbsp;MMSystem;</div><div class="code_line">&nbsp;</div><div class="code_line">// Play Midi</div><div class="code_line">&nbsp;</div><div class="code_line">procedure TForm1.Button1Click;</div><div class="code_line">const</div><div class="code_line">&nbsp;&nbsp;FileName = &#39;C:\YourFile.mid&#39;;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;MCISendString(PChar(&#39;play &#39; + FileName), nil, 0, 0);</div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">// Stop Midi</div><div class="code_line">&nbsp;</div><div class="code_line">procedure TForm1.Button1Click;</div><div class="code_line">const</div><div class="code_line">&nbsp;&nbsp;FileName = &#39;C:\YourFile.mid&#39;;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;MCISendString(PChar(&#39;stop &#39; + FileName), nil, 0, 0);</div><div class="code_line">end;</div></ol></div></div></div></div><br>
<br>
А нащет ресурсов тоже дофига<br>
вот тоже пример:<br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">PlaySound(&#39;S1&#39;, HInstance, SND_RESOURCE or SND_ASYNC);</div></ol></div></div></div></div><br>
<br>
просто у меня в Архиве много примеров, но на это надо время...]]></description>
        <author>Arazel</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035549</guid>
        <pubDate>Mon, 06 Mar 2006 13:19:58 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035549</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Arazel</strong>, не работает оно у меня... :( Кроме того, это назвать &quot;простеньким примером&quot; никак нельзя... Зато я узнал, что можно проиграть файл с помощью модуля MMSystem, жаль только не понял как - слишком запутаны у сорцы, и не до конца уверен, что этот файл можно прочесть из ресурса...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035018</guid>
        <pubDate>Mon, 06 Mar 2006 04:58:55 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1035018</link>
        <description><![CDATA[Arazel: Вот эта как?<br>Целая эстрада...]]></description>
        <author>Arazel</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1034965</guid>
        <pubDate>Mon, 06 Mar 2006 01:12:10 +0000</pubDate>
        <title>DirectMusic</title>
        <link>https://forum.sources.ru/index.php?showtopic=135090&amp;view=findpost&amp;p=1034965</link>
        <description><![CDATA[--= Eagle =--: Доброго времени суток :)<br>Вобщем, задался я проблеммой проиграть MIDI из ресурса. Покурив достаточное время MSDN понял, что ничем другим, кроме как с помощью DirectMusic этого добиться вряд ли удасться, т.к. только он позволяет проигрывать музыку из памяти, а не из файла. Помучав Делфу я понял, что такого COM-сервиса как DirectMusic или чего-то вроде просто нету и тут явно нужно что-нибудь другое. Я слышал, что для Делфы переведёны заголовки (кажется DelphiX или как-то так, уже не помню - слышал об этом давно и краем уха), но у меня их, исессна, нет... Синшные примеры я немного разобрал, но не уверен, что готов воплотить их на делфе... Вобщем, мож кто знает, где взять эти заголовки DirectX и простенький примерчик проигрывания MIDI (даже можно и не из ресурса, это я и сам смогу) через DirectMusic...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Система, Windows API</category>
      </item>
	
      </channel>
      </rss>
	