如何在DLL实现录音功能? 我用过ACMIN/ACMOUT控件,在创建时必须有有个TCOMPENT的句柄才可以,可是在DLL中我不想创建任何窗体,如何实现ACM控件在DLL中的录音呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以使用Classes.AllocateHWnd方法来创建Handle的不需要有Form都可以的参看MSDN吧http://lysoft.7u7.net 以TMediaPlayer为例吧,下面的代码运行错误为无TWINCONTROL,就是TMediaPlayer没有parent,请问如何修改代码?unit Unit2;interfaceuses Classes,MPlayer,SysUtils,Forms;typetype TRecord = class(TThread) private { Private declarations } protected procedure Execute; override; public handle:integer; Filename:string; MediaPlayer1: TMediaPlayer; procedure CreateWav(channels : word; resolution : word; rate : longint; fn : string); Constructor create(Handles:Integer;FIleNames:string); end;implementationconstructor TRecord.create(Handles: Integer; FIleNames: string);begin inherited create(true); handle:=Handles; Filename:=FIleNames; MediaPlayer1:=TMediaPlayer.Create(nil); MediaPlayer1.parent:=?????? CreateWav(1, 8, 11025, filename); MediaPlayer1.DeviceType := dtAutoSelect; MediaPlayer1.FileName := filename; MediaPlayer1.Open; MediaPlayer1.StartRecording;end;end. 那位高手知道,如何编程在win2000 中实现设置bios???Waitting!!! 如何禁止在DBGRID末位自动添加一行记录 救啊!!!! 问一个查询的问题,很简单的 如何提取应用程序的图标? about打印 我启用了IE中的分级审查,但忘了密码,上不了网,如何办? 一个关于flash控件的小问题~ 新手问题! 哪里可下载《Delphi高级开发指南》的源程序光盘 一个简单问题,困惑中,求解 如何导入导出数据?
不需要有Form都可以的参看MSDN吧http://lysoft.7u7.net
unit Unit2;interfaceuses
Classes,MPlayer,SysUtils,Forms;typetype
TRecord = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
public
handle:integer;
Filename:string;
MediaPlayer1: TMediaPlayer;
procedure CreateWav(channels : word; resolution : word; rate : longint; fn : string);
Constructor create(Handles:Integer;FIleNames:string);
end;
implementation
constructor TRecord.create(Handles: Integer; FIleNames: string);
begin
inherited create(true);
handle:=Handles;
Filename:=FIleNames;
MediaPlayer1:=TMediaPlayer.Create(nil);
MediaPlayer1.parent:=??????
CreateWav(1, 8, 11025, filename);
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.FileName := filename;
MediaPlayer1.Open;
MediaPlayer1.StartRecording;
end;
end.