www.pudn.com > 电话产品防伪伺服系统(tw8).rar > Uform_record.pas
unit Uform_record;
interface
uses
tw8a32,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ComCtrls, ExtCtrls, StdCtrls, Buttons, Spin;
type
Tform_record = class(TForm)
Panel1: TPanel;
listview: TListView;
ImageList1: TImageList;
BitBtn2: TBitBtn;
StatusBar1: TStatusBar;
GroupBox1: TGroupBox;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label2: TLabel;
Image3: TImage;
Panel2: TPanel;
Image1: TImage;
Image2: TImage;
Bevel3: TBevel;
Bevel2: TBevel;
Label3: TLabel;
BitBtn4: TBitBtn;
Label4: TLabel;
ProgressBar1: TProgressBar;
SpinEdit1: TSpinEdit;
Label5: TLabel;
Timer1: TTimer;
Timer2: TTimer;
Label7: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure listviewClick(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ESitem(yn:boolean);
procedure Timer1Timer(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
filename:string;
phonecode:integer;
stage:integer;
end;
var
form_record: Tform_record;
implementation
uses Uform_ex;
{$R *.dfm}
procedure Tform_record.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure Tform_record.listviewClick(Sender: TObject);
begin
//click the listview 2001-12-24
if listview.selected=nil then exit;
label4.Caption :=listview.Selected.Caption ;
case listview.Selected.Index of
0:
label1.Caption :='欢迎您进入本系统，请输入您的产品防伪号';
1:
label1.Caption :='您输入的号码是';
2:
label1.caption :='零';
3:
label1.caption :='一';
4:
label1.caption :='二';
5:
label1.caption :='三';
6:
label1.caption :='四';
7:
label1.caption :='五';
8:
label1.caption :='六';
9:
label1.caption :='七';
10:
label1.caption :='八';
11:
label1.caption :='九';
12:
label1.caption :='您所输入的产品是';
13:
label1.caption :='正确请按1，重新输入请按2';
14:
label1.caption :='您的号码正确，此产品为真品';
15:
label1.caption :='您的号码正确，但此号码已经查询过，您的产品有可能是假的';
16:
label1.Caption :='您的号码不正确，此产品为假的';
17:
label1.Caption :='您的输入含有米字键或井字键';
end;
end;
procedure Tform_record.BitBtn4Click(Sender: TObject);
begin
//show the form_ex 2001_12_24
form_ex.ShowModal ;
end;
procedure Tform_record.BitBtn1Click(Sender: TObject);
begin
//record the phone 2001-12-24p
if bitbtn1.Caption ='开始录音' then
begin
//know use whick phone
if radiobutton1.Checked =true then phonecode:=0 else phonecode:=1;
//know the file's name
if listview.selected=nil then exit;
filename:=inttostr(listview.Selected.Index) + 'sou.tw';
//enabled the item
ESitem(false);
bitbtn1.Caption :='停止录音';
bitbtn3.Enabled :=false;
stage:=1;
timer1.Enabled :=true;
end
else
begin
//enabled the item
ESitem(true);
bitbtn1.Caption :='开始录音';
bitbtn3.Enabled :=true;
stage:=1;
tw_stoprecordfile(phonecode);
tw_hangupctrl(phonecode);
label7.Caption :='';
timer1.Enabled :=false;
end;
end;
procedure Tform_record.ESitem(yn:boolean);
begin
//enable the item or vis the item 2001-12-14p
listview.Enabled :=yn;
spinedit1.Enabled :=yn;
radiobutton1.Enabled :=yn;
radiobutton2.Enabled :=yn;
bitbtn2.Enabled :=yn;
end;
procedure Tform_record.Timer1Timer(Sender: TObject);
var
temp:pchar;
temp2:integer;
begin
if stage=1 then
begin
if tw_ringdetect(phonecode) >1 then
begin
stage:=2;
tw_offhookctrl(phonecode);
temp:=pchar( ExtractFilePath(ParamStr(0)) + 'sound\' + filename);
if fileexists(ExtractFilePath(ParamStr(0)) + 'sound\' + filename) then
begin
deletefile(ExtractFilePath(ParamStr(0)) + 'sound\' + filename);
end;
tw_startrecordfile(phonecode,temp,0,spinedit1.Value *6448);
label7.Caption :='开始录音';
end;
end;
if stage=2 then
begin
temp2:=tw_recordfilerest(phonecode);
temp2:=temp2* 100;
temp2:= temp2 div (spinedit1.Value *6448);
progressbar1.Position :=100 - temp2;
if temp2=0 then
begin
ESitem(true);
bitbtn1.Caption :='开始录音';
bitbtn3.Enabled :=true;
stage:=1;
tw_hangupctrl(phonecode);
label7.Caption :='';
timer1.Enabled :=false;
end;
end;
end;
procedure Tform_record.BitBtn3Click(Sender: TObject);
begin
//play the sound 2001-12-25p
//know use whick phone
if radiobutton1.Checked =true then phonecode:=0 else phonecode:=1;
//know the file's name
if listview.selected=nil then exit;
filename:=inttostr(listview.Selected.Index) + 'sou.tw';
if bitbtn3.Caption ='播 放' then
begin
ESitem(false);
bitbtn1.Enabled :=false;
bitbtn3.Caption :='停止放音';
stage:=1;
timer2.Enabled :=true;
end
else
begin
ESitem(true);
bitbtn1.Enabled :=true ;
bitbtn3.Caption :='播 放';
stage:=1;
timer2.Enabled :=false;
if tw_playfilerest(phonecode)>0 then
begin
tw_stopPlayfile(phonecode);
end;
tw_hangupctrl(phonecode);
end;
end;
procedure Tform_record.Timer2Timer(Sender: TObject);
var
temp:pchar;
begin
//the timer of play the sound 2001-12-25p
if stage=1 then
begin
if tw_ringdetect(phonecode) >1 then
begin
tw_offhookctrl(phonecode);
temp:=pchar( ExtractFilePath(ParamStr(0)) + 'sound\' + filename);
//showmessage(ExtractFilePath(ParamStr(0)) + 'sound\' + filename);
tw_startplayfile(phonecode,temp,0,0);
//showmessage('kdjfkdf');
stage:=2;
end;
end;
if stage=2 then
begin
if tw_playfilerest(phonecode)=0 then
begin
ESitem(true);
bitbtn1.Enabled :=true ;
bitbtn3.Caption :='播 放';
stage:=1;
timer2.Enabled :=false;
tw_hangupctrl(phonecode);
end;
end;
end;
end.