发表于 2009-1-5 19:48
| 
浣跨敤DELPHI瀹炵幇鏂囨湰鏂囦欢鏄剧ず鍜屽０闊冲悓姝ユ挱鏀
鍙戝竷: 2008-6-26 20:26 | 浣滆: admin | 鏌ョ湅: 12娆
width="84%">浣跨敤DELPHI瀹炵幇鏂囨湰鏂囦欢鏄剧ず鍜屽０闊冲悓姝ユ挱鏀
鍗椾含鍔ㄥ姏涓撶瀛︽牎
鏈辩兢鐢
杩斿洖
----
鍦ㄤ竴浜涜瑷鏁欏杞欢涓紝缁忓父浣跨敤鏂囨湰鏄剧ず鍜屽０闊冲悓姝ユ挱鏀撅紝鎴戜滑鍙互鐢―EL
PHI瀹炵幇涔嬨
---- 涓銆佹潗鏂欑殑鍒朵綔
----
棣栧厛锛屾垜浠夋嫨鍑犵瘒鏂囩珷锛岃繖閲屾垜浠夋嫨椹竵璺痉閲戙佹灄鑲拰閲屾牴鐨勬紨璇达紝姣忎竴绡囨枃绔犲垎涓鸿嫢骞插彞锛屽湪鍒朵綔澹伴煶鏂囦欢鏃讹紝璁颁笅姣忎釜鍙ュ瓙鐨勫紑濮嬫椂闂村拰缁撴潫鏃堕棿锛岀劧鍚庡皢鍏惰鍒颁竴涓暟鎹〃涓紝杩欎釜琛ㄦ湁濡備笅瀛楁锛歂O銆乀EXT銆丼TARTTIME,鍒嗗埆琛ㄧず姣忓彞搴忓彿銆佸唴瀹广佸紑濮嬫椂闂淬
---- 浜屻
鐣岄潰鐨勫埗浣
---- 鍦―ELPHI涓垱寤轰竴涓柊宸ョ▼锛屽湪FORM涓斁鍏ュ濯掍綋鎺т欢锛孯TF缂栬緫鍣紝鍛戒护鎸夐挳锛屽崟閫夊垎缁勬锛屾暟鎹〃锛屾椂閽熷拰鏍囩锛屽鍥炬墍绀
---- 涓夈佸悇涓帶浠剁殑灞炴
---- 1銆 澶氬獟浣撴帶浠剁殑AutoEnable鍜孉utoOpen鐗规ц缃负False
,VisibleButtons鐗规ц缃甊ecord銆丒ject銆丼tep涓轰笉鍙銆
---- 2銆 Table鎺т欢鐨凞atabaseName璁句负瀛樻斁琛ㄧ殑鐩綍锛屾垜浠皢搴旂敤绋嬪簭銆佸０闊虫枃浠跺拰琛ㄥ瓨鏀惧湪myprog鐩綍锛屽洜姝よ繖閲屽皢DatabaseName璁句负c:\myprog锛屽皢TableName璁句负榛樿鐨勬挱鏀炬枃浠跺搴旂殑鏁版嵁琛ㄧ殑鍚嶅瓧锛岃繖閲岃涓篹x1.dbf銆
---- 3銆 Radiogroup鎺т欢鐨凜aption璁句负
鈥樿閫夋嫨鎾斁鍐呭鈥欙紝Itmes鐗规т腑鍔犱笂涓夎锛氶┈涓佽矾寰烽噾锛屾灄鑲紝閲屾牴銆
---- 4銆 Richedit鎺т欢鐨凩ines鐗规у姞涓娾樻紨璁插唴瀹广
---- 鍥涖佷唬鐮佺殑缂栧啓
---- 1銆佸彉閲忓０鏄
var isend:Boolean;
CurrentButton:TMPBtnType;
CurrentPlay,CurrentDisp:longint;
---- 鍏朵腑isend琛ㄧず鎾斁鏄惁宸茬粡鍒颁簡鏈熬锛孋urrentButton琛ㄧず褰撳墠MediaPlayer鍏冧欢涓寜涓嬩簡鍝釜鎸夐挳锛孋urrentPlay
,CurrentDisp琛ㄧず褰撳墠鎾斁璁板綍鍙婂綋鍓嶆樉绀鸿褰曘
---- 2銆佸湪FormCreate浜嬩欢涓仛涓浜涘繀瑕佺殑鍑嗗宸ヤ綔锛屽叾浠ｇ爜濡備笅锛
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.TableName:='ex1.dbf'; Table1.Open;
MediaPlayer1.FileName:='ex1.wav';MediaPlayer1.Open;
MediaPlayer1.TimeFormat:=tfMilliseconds;
isend:=False;
CurrentButton:=btStop;
CurrentDisp:=1;
CurrentPlay:=1;
end;
---- 3銆佸湪鍗曢夊垎缁勬涓姞杩涘涓嬩唬鐮侊細
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
MediaPlayer1.Close; Table1.Close;
case radiogroup1.ItemIndex of
0:begin MediaPlayer1.FileName:='ex1.wav';
Table1.TableName:='ex1.dbf';end;
1:begin MediaPlayer1.FileName:='ex2.wav';
Table1.TableName:='ex2.dbf';end;
2:begin MediaPlayer1.FileName:='ex3.wav';
Table1.TableName:='ex3.dbf'; end;
end;
Table1.Open; MediaPlayer1.Open;
end;
---- 4銆佷负浜嗛傚綋淇敼MediaPlayer鍏冧欢涓悇涓寜閽殑鍔熻兘锛岄渶瑕佺紪鍐橫ediaPlayer鍏冧欢鐨刢lick浜嬩欢鐨勪唬鐮侊紝涓昏鏄慨鏀光滃揩杩涒濆強鈥滃揩閫鈥濈殑鍔熻兘锛屼娇鍏舵瘡娆＄Щ鍔ㄤ竴鍙ワ紝涓旂Щ鍔ㄥ悗鐩存帴鎾斁锛岃屼笉鐢ㄥ啀鎸夆滄挱鏀锯濇寜閽備负杈惧埌杩欎釜鍔熻兘锛屽湪杩囩▼鐨勪竴寮濮嬶紝璁剧疆DoDefault鍙傛暟涓篎alse,琛ㄧず涓嶆墽琛岄粯璁ょ殑鍔ㄤ綔锛屽湪杩囩▼鐨勪腑闂撮儴鍒嗭紝鍔犱笂蹇呰鐨勫鐞嗭紝鍦ㄨ繃绋嬬殑缁撴潫澶勶紝鍐欎笂鏍规嵁鎸変笅鐨勬寜閽墽琛岀浉搴斿姛鑳借鍙ャ
procedure TForm1.MediaPlayer1Click(Sender: TObject;
Button: TMPBtnType; var DoDefault: Boolean);
begin
DoDefault:=False;
with MediaPlayer1 do
begin
case Button of
btPlay : begin
if isend=true then
begin
Table1.first; Position:=start;
CurrentPlay:=1; CurrentDisp:=1;
isend:=False;
RichEdit1.lines.clear; RichEdit1.lines.add
('婕旇鍐呭');
end;
CurrentButton:=btPlay;
end;
btStop : begin CurrentButton:=btStop;
isend:=true;
end;
btpause: if CurrentButton=btPlay then
CurrentButton:=btpause
else if CurrentButton=btpause then
CurrentButton:=btPlay;
btPrev: begin CurrentButton:=btPrev;
Table1.Prior;
Position:=Table1.fieldvalues
['STARTTIME'];
CurrentButton:=btPlay;
end;
btBack: begin CurrentButton:=btBack;
Table1.first; Position:=start;
CurrentPlay:=1;
CurrentDisp:=1;
RichEdit1.lines.clear;
RichEdit1.lines.add
('婕旇鍐呭');
CurrentButton:=btPlay;
end;
btNext: begin CurrentButton:=btNext;
Table1.Next;
Position:=Table1.fieldvalues
['STARTTIME'];
CurrentButton:=btPlay;
end;
end;
case CurrentButton of
btPlay: Play;
btpause:pause;
btStop:Stop;
end;
end;
end;
