delphi中的realAudio ActiveX控件的使用
delphi中的realAudio ActiveX控件的使用
作者:seeker 日期:2009-04-26
1：{=====================打开=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPosition := RealAudio1.GetLength;
RealAudio1.DoStop;
PlayBtn.Enabled := True;
PauseBtn.Enabled := False;
StopBtn.Enabled := False;
FullBtn.Enabled := False;
TrackBar1.Enabled := False;
Timer1.Enabled := False;
end;
end;
{=====================播放=========================}
procedure TRealOneFrm.PlayBtnClick(Sender: TObject);
begin
{设置图像窗口显示}
RealAudio1.SetControls('ImageWindow');
{显示图像窗口}
RealAudio1.Visible := True;
RealAudio1.DoPlay;
PlayBtn.Enabled := False;
OpenBtn.Enabled := False;
PauseBtn.Enabled := True;
StopBtn.Enabled := True;
FullBtn.Enabled := True;
Trackbar1.Enabled := True;
Timer1.Enabled := True;
PauseFlag := False;
RealAudio1.SetEnableContextMenu(False);
end;
{=====================暂停=========================}
procedure TRealOneFrm.PauseBtnClick(Sender: TObject);
begin
RealAudio1.DoPause;
PauseFlag := True;
PauseBtn.Enabled := False;
PlayBtn.Enabled := True;
FullBtn.Enabled := False;
end;
procedure TRealOneFrm.StopBtnClick(Sender: TObject);
begin
RealAudio1.DoStop;
PlayBtn.Enabled := True;
OpenBtn.Enabled := True;
PauseBtn.Enabled := False;
StopBtn.Enabled := False;
FullBtn.Enabled := False;
DontSeek := True;
TrackBar1.Position:=0;
DontSeek := False;
TrackBar1.Enabled := False;
Timer1.Enabled := False;
end; //停止
procedure TRealOneFrm.FullBtnClick(Sender: TObject);
begin
RealOneFrm.RealAudio1.SetFullScreen;
end; //设置全屏
procedure TRealOneFrm.MuteCheckClick(Sender: TObject);
begin
if MuteCheck.checked=true then
RealOneFrm.RealAudio1.SetMute(True)
else
RealOneFrm.RealAudio1.SetMute(False);
end;
procedure TRealOneFrm.FormCreate(Sender: TObject);
begin
PlayBtn.Enabled := False;
Paus
相关文档：
在Delphi中,Inifiles单元中有一个TStringHash的类，不过它的Value仅支持Integer(其实也不是问题，有其它类型可以将变量变为Pointer)，有点不舒服，今天没事做就把它替换为variant了，其中Key的名称大小写无关，就是为了加快开发速度！
使用Hashtable,查找和删除复杂度都是常数级别的!
type
PPHashItem = ^PHashItem;
......
技术交流,DH讲解. 在D2010的classes中有个TBits类,这个类主要是位操作的. TBits = class
private
FSize: Integer;
FBits: Pointer;
procedure Error;
procedure SetSize(Value: Integer);
procedure SetBit(Index: Integer; Value: Boolean);
function GetBit(Index: Integer): Boole ......
技术交流,DH讲解. 今天进入这书第二章 钩子(HOOK).
先说说钩子是什么?
钩子其实就在你环境中加上一层过滤,在特殊情况下就触发钩子回调函数.
比如说我们安装了全局的键盘钩子,那么当我们按动键盘上面的键的时候,钩子的回调函数就会触发.
我们也能看到本来是直来直往的,结果现在中间安装了一层过滤,� ......
．pas ---- pascal的缩写, 单元原始程式档（ unit source files ）
．dpr ---- 专案档 ( project files )
．dpk ---- 包裹原始程式档/组件包 ( package source files )
．dfm ---- 表单档 (记录form的内容,除去这个内容就等于删除了form这个表单)
．dcu ---- 是编译好的单元文件.若只有一个dcu文件,则不能看到源代码.
......
//Delphi部分
//回调函数定义
type TOnMyCallBack = procedure(data:pchar; id:Integer);stdcall;
//DLL中的导出函数声明
procedure StartCall(param: TOnMyCallBack(data:pchar; id:Integer);stdcall;
begin
...
...
end;
&n ......
