unit caiji;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,MMSystem;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
trecorder=class
private
Fwavefmt:Twaveformatex;
wavehandle:hwavein;
wavehdrl:pwavehdr;
wavebuffer1:lpstr;
// procedure callback(umsg,dwinstance,dwparam1,dwparam2:dword);stdcall;
end;var
Form1: TForm1;implementation
{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var recorder:trecorder;
begin
recorder:=trecorder.Create;
recorder.Fwavefmt.wFormatTag:=wave_format_pcm;
recorder.Fwavefmt.wBitsPerSample:=16; //量化位数
recorder.Fwavefmt.nSamplesPerSec:=11025; //采样速率
recorder.Fwavefmt.nAvgBytesPerSec:=22050; //每秒采样得到的数据
recorder.Fwavefmt.nBlockAlign:=2; //记录区块对齐的单位。
waveinopen(@recorder.wavehandle,wave_mapper,mailto:@recorder.Fwavefmt,dword(@trecorder.callback),dword(@recorder),callback_function+wave_allowsync);
end;end.
错误提示:
[Error] caiji.pas(43): Undeclared identifier: 'mailto'
[Error] caiji.pas(43): Incompatible types: 'Cardinal' and 'Pointer'
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,MMSystem;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
trecorder=class
private
Fwavefmt:Twaveformatex;
wavehandle:hwavein;
wavehdrl:pwavehdr;
wavebuffer1:lpstr;
// procedure callback(umsg,dwinstance,dwparam1,dwparam2:dword);stdcall;
end;var
Form1: TForm1;implementation
{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var recorder:trecorder;
begin
recorder:=trecorder.Create;
recorder.Fwavefmt.wFormatTag:=wave_format_pcm;
recorder.Fwavefmt.wBitsPerSample:=16; //量化位数
recorder.Fwavefmt.nSamplesPerSec:=11025; //采样速率
recorder.Fwavefmt.nAvgBytesPerSec:=22050; //每秒采样得到的数据
recorder.Fwavefmt.nBlockAlign:=2; //记录区块对齐的单位。
waveinopen(@recorder.wavehandle,wave_mapper,mailto:@recorder.Fwavefmt,dword(@trecorder.callback),dword(@recorder),callback_function+wave_allowsync);
end;end.
错误提示:
[Error] caiji.pas(43): Undeclared identifier: 'mailto'
[Error] caiji.pas(43): Incompatible types: 'Cardinal' and 'Pointer'
解决方案 »
- 请问下,我要编写一个程式用于打开文件,应该要写么写代码?
- 再问大家一个触发器问题,在一个触发器能同时有INSERT、UPDATE 、 DELETE三个触发条件吗?
- 关于dll中参数传递和数据库连接的问题,急求答案~!!!
- 一个关于线程的小问题,过路高手指点一下吧 ^o^
- 如何向 DBctrlgrid 中动态加入一个 DBEDIT 控健?
- 100分~Fast Report 读取Excel报表当作报表的问题
- Async Professional for delphi6 版
- 关于未知的软件异常(0x0eedfade)
- MainMenu 控件怎样才能增加MenuItem的背景颜色或划线条?
- 请问如果在一个事件中引发另一个事件。谢谢
- 紧急Sos
- 数据库文件MDF问题,答中100分
end;
用这个函数老是提示错误,我没有用过这个函数
[Error] caiji.pas(43): Undeclared identifier: 'mailto'
[Error] caiji.pas(43): Incompatible types: 'Cardinal' and 'Pointer'
应该如何解决以上问题,