unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <mmsystem.h>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int wavedevice;
        WAVEOUTCAPSA wavecap;
        wavedevice=(int)waveOutGetNumDevs();
        Memo1->Clear();
        if(wavedevice==0)
                Memo1->Lines->Add("没有发现波形设备");
        else
        {
                waveOutGetDevCaps(0,&wavecap,sizeof(WAVEOUTCAPS));
                Memo1->Lines->Add("波形设备检测的结果如下：");
                Memo1->Lines->Add("当前设备数目："+String(wavedevice));
                Memo1->Lines->Add("厂商ID："+String(wavecap.wMid));
                Memo1->Lines->Add("产品ID："+String(wavecap.wPid));
                Memo1->Lines->Add("驱动器版本："+String(wavecap.vDriverVersion));
                Memo1->Lines->Add("当前设备名称:"+String(wavecap.szPname));
                Memo1->Lines->Add("格式种类："+String(wavecap.dwFormats));
                Memo1->Lines->Add("通道数量："+String(wavecap.wChannels));
                Memo1->Lines->Add("保留数量："+String(wavecap.wReserved1));
                Memo1->Lines->Add("驱动支持的数目："+String(wavecap.dwSupport));
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        int mididevice;
        MIDIOUTCAPSA midicap;
        mididevice=(int)midiOutGetNumDevs(); 
        Memo1->Clear();
        if(mididevice==0)
                Memo1->Lines->Add("没有发现MIDI设备");
        else
        {
                midiOutGetDevCaps(0,&midicap,sizeof(MIDIOUTCAPS));
                Memo1->Lines->Add("MIDI设备检测的结果如下：");
                Memo1->Lines->Add("当前设备数目："+String(mididevice));
                Memo1->Lines->Add("厂商ID："+String(midicap.wMid));
                Memo1->Lines->Add("产品ID："+String(midicap.wPid));
                Memo1->Lines->Add("驱动器版本："+String(midicap.vDriverVersion));
                Memo1->Lines->Add("当前设备名称:"+String(midicap.szPname));
                Memo1->Lines->Add("设备种类："+String(midicap.wTechnology));
                Memo1->Lines->Add("声音数量："+String(midicap.wVoices));
                Memo1->Lines->Add("音符数量："+String(midicap.wNotes));
                Memo1->Lines->Add("通道掩码："+String(midicap.wChannelMask));
                Memo1->Lines->Add("驱动支持的数目："+String(midicap.dwSupport));
        }
}
//---------------------------------------------------------------------------