📄 demo1main.pas
字号:
unit Demo1Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ACMOut, ACMIn, ACMConvertor, StdCtrls;
type
TfmDemo1 = class(TForm)
ACMConvertor1: TACMConvertor;
ACMIn1: TACMIn;
ACMOut1: TACMOut;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure ACMIn1BufferFull(Sender: TObject; Data: Pointer;
Size: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmDemo1: TfmDemo1;
implementation
{$R *.DFM}
procedure TfmDemo1.FormCreate(Sender: TObject);
begin
ACMIn1.Open(ACMConvertor1.FormatIn);
ACMOut1.Open(ACMConvertor1.FormatIn);
end;
procedure TfmDemo1.ACMIn1BufferFull(Sender: TObject; Data: Pointer;
Size: Integer);
begin
ACMOut1.Play(Data^,Size);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -