www.pudn.com > yuyin.rar > Unit1.pas

unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, DBClient, StdCtrls, Grids, DBGrids, Wwdbigrd, Wwdbgrid,Unit2, 
  ExtCtrls,mmsystem,strUtils, ComCtrls; 
 
type 
  TForm1 = class(TForm) 
    DataSource1: TDataSource; 
    ClientDataSet1: TClientDataSet; 
    Timer1: TTimer; 
    ControlBar1: TControlBar; 
    Button2: TButton; 
    Button1: TButton; 
    DBGrid1: TDBGrid; 
    TrackBar1: TTrackBar; 
    TrackBar2: TTrackBar; 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Timer1Timer(Sender: TObject); 
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char); 
 //   procedure ClientDataSet1AfterScroll(DataSet: TDataSet); 
  private 
   yyjd:Tyyjd; 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
 
 
{$R *.dfm} 
 
var path, zd,snum:string; 
var stop:integer; 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
Path :=ExtractFilePath(ParamStr(0)); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
DBGrid1.setFocus; 
Timer1.Enabled:=true; 
end; 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
Timer1.Enabled:=false; 
end; 
 
procedure TForm1.Timer1Timer(Sender: TObject); 
var num,fn:string;i,ln:integer; 
begin 
num:=dbgrid1.SelectedField.AsString ; 
ln:=length(num); 
for i:=1 to ln do 
begin 
fn:=midstr(num,i,1); 
if fn='.' then fn:='d'; 
fn:=path+'sound\'+fn+'.wav'; 
playsound(pchar(fn),1,snd_async ); 
sleep(TrackBar2.Position ); 
end; 
sleep(TrackBar1.Position ); 
ClientDataSet1.Next; 
end; 
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); 
var fn:string; 
begin 
case key of 
 '0':fn:=path+'sound\0.wav'; 
 '1':fn:=path+'sound\1.wav'; 
 '2':fn:=path+'sound\2.wav'; 
 '3':fn:=path+'sound\3.wav'; 
 '4':fn:=path+'sound\4.wav'; 
 '5':fn:=path+'sound\5.wav'; 
 '6':fn:=path+'sound\6.wav'; 
 '7':fn:=path+'sound\7.wav'; 
 '8':fn:=path+'sound\8.wav'; 
 '9':fn:=path+'sound\9.wav'; 
 '.':fn:=path+'sound\d.wav'; 
end; 
 playsound(pchar(fn),1,snd_async ); 
end; 
 
end.