將 4 個 Byte 合成 1 個 Integer 的五種方法
//方法 1: 共用內存 procedure TForm1.Button1Click(Sender: TObject); var bf: record b
Delphi 中 位 的使用(1) - 原始的二進制
本話題涉及: 1、常用二進制的位操作; 2、集合與 位 的關系; 3、TBits 類. 這裡的 位 是指二進制位, 譬如一個 Byte 有 8 個位、一個
Delphi 中 位 的使用(3) - TBits
TBits 直接繼承自 TObject, 它只擴充出 2 個屬性、1 個方法:TBits.Size //需要使用的 位 數 TBits.Bits[] //
一個Delphi的資源編輯器(支持SDK菜單資源編輯）
在上個博客中，介紹了如何在Delphi中使用SDK菜單資源來創建Delphi版本的SDK程序。於是晚上下班回來做了這麼個東西，目前的功能較弱，只支持我們常用的
Windows SDK編程(Delphi版) 之 消息框和菜單資源
消息框，是Windows給用戶提示的一種非常有用的方法。消息框的主要作用就是通知用戶發生了某件事情，讓用戶響應。這個在前面已經用過了，那便是 Message
在 Delphi 下使用 DirectSound (1): 枚舉設備
現在的 Delphi(2010、XE) 已經自帶了 DirectX 的相關單元(...\source\rtl\win\).//枚舉函數 function D
在 Delphi 下使用 DirectSound (2): 查看設備性能
使用 DirectSound 前應先建立 IDirectSound8 對象(之前的版本是 IDirectSound):function DirectSoun
在 Delphi 下使用 DirectSound (3): 播放第一個 Wave 文件
建立 IDirectSound8 對象後, 首先要通過其 SetCoOperativeLevel() 方法設置協作優先級; 因為其它應用程序有可能同時使用該
在 Delphi 下使用 DirectSound (4): 設置音量、相位、播放頻率和播放位置
通過 IDirectSoundBuffer 的 SetVolume、SetPan、SetFrequency、SetCurrentPosition 方法可以簡
在 Delphi 下使用 DirectSound (5): 獲取或設置緩沖區的格式
次緩沖區(或叫輔助緩沖區)盡管使用了波形文件自己的 TWaveFormatEx, 但最終播放的卻只是 22050HZ 的 8 位立體聲. 因為次緩沖區最終要
在 Delphi 下使用 DirectSound (6): 按文件自己的格式(TWaveFormatEx)播放
這必須手動建立主緩沖區. unit Unit1; interface uses Windows, Messages, SysUtils, Varia
在 Delphi 下使用 DirectSound (7): 播放資源文件中的 Wave 數據
首先要修改前面自定義的 ReadWaveFile 單元, 給它增加一個 OpenResource() 方法以直接讀取資源文件中的 WAVE 數據; 為避
在 Delphi 下使用 DirectSound (8): IDirectSound8.DuplicateSoundBuffer() 與 IDirectSoundBuffer.GetStatus()
IDirectSoundBuffer.GetStatus() 用於獲取緩沖區的當前狀態, 譬如是否正在播放、是否指定為循環播放等等. IDirectSo
