أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية تحديد Soundcard في Visual Basic مع التحكم الوسائط المتعددة

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية180032
الموجز
توضح هذه المقالة كيفية تعيين الجهاز WaveAudio (soundcard) المستخدمة من قبل "التحكم تعدد الوسائط" (MCI32.ocx) باستخدام Visual Basic.
معلومات أخرى
لتعيين الجهاز WaveAudio (soundcard) المستخدمة من قبل "التحكم المتعددة" يجب عليك استخدام mciSendCommand API. لا يوفر "التحكم المتعددة" أسلوب للسماح لك تعيين جهاز المستخدم تشغيل أو تسجيل مباشرة.

Visual Basic يُظهر نموذج التعليمات البرمجية التالي كيفية استخدام mciSendCommand لتحديد الجهاز المستخدم للإخراج WaveAudio.

رمز نموذج

فيما يلي تعريفات المطلوبة و التعريفات. ضع هذه في ملف الوحدة نمطية:
   Public Const MMSYSERR_NOERROR = 0   Public Const MCI_SET = &H80D   Public Const MCI_WAVE_OUTPUT = &H800000   Type MCI_WAVE_SET_PARMS       dwCallback As Long       dwTimeFormat As Long       dwAudio As Long       wInput As Long       wOutput As Long       wFormatTag As Integer       wReserved2 As Integer       nChannels As Integer       wReserved3 As Integer       nSamplesPerSec As Long       nAvgBytesPerSec As Long       nBlockAlign As Integer       wReserved4 As Integer       wBitsPerSample As Integer       wReserved5 As Integer   End Type   Declare Function mciGetErrorString Lib "winmm.dll" _       Alias "mciGetErrorStringA" (ByVal dwError As Long, _       ByVal lpstrBuffer As String, ByVal uLength As Long) As Long   Declare Function mciSendCommand Lib "winmm.dll" Alias _       "mciSendCommandA" (ByVal wDeviceID As Long, _       ByVal uMessage As Long, ByVal dwParam1 As Long, _       ByRef dwParam2 As Any) As Long				

رمز نموذج

تعيين التعليمات البرمجية التالية جهاز الإخراج. رمز هذا يفترض أن يكون لديك "تحكم تعدد الوسائط" تسمى "MMControl1." يجب استدعاء هذه التعليمة البرمجية بعد يتم فتح ملف wave يمكن قراءته بواسطة MMControl1.
   Dim parms As MCI_WAVE_SET_PARMS    Dim rc As Long    ' Specify the soundcard. This specifies the soundcard with a deviceID    ' of 0. If you have a single soundcard, then this will open it. If you    ' have multiple soundcards, the deviceIDs will be 0, 1, 2, etc.    parms.wOutput = 0    ' Send the MCI command to set the output device.    rc = mciSendCommand(MMControl1.DeviceID, MCI_SET, _        MCI_WAVE_OUTPUT, parms)    if (rc <> MMSYSERR_NOERROR) then        ' The command failed.    End If				
مراجع
راجع وثائق mciSendCommand في وثائق SDK Win32.

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 180032 - آخر مراجعة: 11/21/2006 15:40:37 - المراجعة: 3.2

Microsoft Win32 واجهة برمجة تطبيقات

  • kbmt kbhowto KB180032 KbMtar
تعليقات
did=1&t="> dy>&t=">age.locale}}" href="" ng-click="setLanguage(language);" class="ng-binding" id="language-es-ve">Venezuela - Español
mp;t=">050&did=1&t=">&did=1&t=">rotocol) + "//c.microsoft.com/ms.js'><\/script>"); src="https://c.microsoft.com/ms.js">