delphiÖеÄrealAudio ActiveX¿Ø¼þµÄʹÓÃ
delphiÖеÄrealAudio ActiveX¿Ø¼þµÄʹÓÃ
×÷Õß:seeker ÈÕÆÚ:2009-04-26
1£º{=====================´ò¿ª=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPosition := RealAudio1.GetLength;
RealAudio1.DoStop;
PlayBtn.Enabled := True;
PauseBtn.Enabled := False;
StopBtn.Enabled := False;
FullBtn.Enabled := False;
TrackBar1.Enabled := False;
Timer1.Enabled := False;
end;
end;
{=====================²¥·Å=========================}
procedure TRealOneFrm.PlayBtnClick(Sender: TObject);
begin
{ÉèÖÃͼÏñ´°¿ÚÏÔʾ}
RealAudio1.SetControls('ImageWindow');
{ÏÔʾͼÏñ´°¿Ú}
RealAudio1.Visible := True;
RealAudio1.DoPlay;
PlayBtn.Enabled := False;
OpenBtn.Enabled := False;
PauseBtn.Enabled := True;
StopBtn.Enabled := True;
FullBtn.Enabled := True;
Trackbar1.Enabled := True;
Timer1.Enabled := True;
PauseFlag := False;
RealAudio1.SetEnableContextMenu(False);
end;
{=====================ÔÝÍ£=========================}
procedure TRealOneFrm.PauseBtnClick(Sender: TObject);
begin
RealAudio1.DoPause;
PauseFlag := True;
PauseBtn.Enabled := False;
PlayBtn.Enabled := True;
FullBtn.Enabled := False;
end;
procedure TRealOneFrm.StopBtnClick(Sender: TObject);
begin
RealAudio1.DoStop;
PlayBtn.Enabled := True;
OpenBtn.Enabled := True;
PauseBtn.Enabled := False;
StopBtn.Enabled := False;
FullBtn.Enabled := False;
DontSeek := True;
TrackBar1.Position:=0;
DontSeek := False;
TrackBar1.Enabled := False;
Timer1.Enabled := False;
end; //Í£Ö¹
procedure TRealOneFrm.FullBtnClick(Sender: TObject);
begin
RealOneFrm.RealAudio1.SetFullScreen;
end; //ÉèÖÃÈ«ÆÁ
procedure TRealOneFrm.MuteCheckClick(Sender: TObject);
begin
if MuteCheck.checked=true then
RealOneFrm.RealAudio1.SetMute(True)
else
RealOneFrm.RealAudio1.SetMute(False);
end;
procedure TRealOneFrm.FormCreate(Sender: TObject);
begin
PlayBtn.Enabled := False;
Paus
Ïà¹ØÎĵµ£º
ÔÎIJμû£º http://blog.csdn.net/ingener/archive/2007/12/22/1958535.aspx
¹ØÓÚDelphiÖÐDLL·â×°¶ÔÏóµÄ¼¸ÖÖ·½·¨ÕûÀí¼°Ìå»á
DelphiÓÃDLLÀ´·â×°¶ÔÏóµÄ¼¼ÊõÖ÷ÒªÓÐÈýÖÖ:
ÓýӿÚʵÏÖ
Óô¿ÐéºÍ³éÏóÀà·½·¨ÊµÏÖ
ÓÃÀàÒýÓÃʵÏÖ
Ç°Á½ÖÖ£¬¶¼ÊÇÔÚDLLÖÐÉú³ÉÀàʵÀý£»µÚ3ÖÖͨ¹ýÔÚµ÷Ó÷½Éú³ÉʵÀý¡£ÈýÖÖ·½·¨µÄ¹²Í¬¾ÖÏÞÈçÏ£º ......
from : http://zhyhero.googlepages.com/heartset
file:0 Ç°ÑÔ
±¾ÎĵÄÄ¿µÄÔÚÓÚ²ÉÓÃÁ÷Ë®ÕË·½Ê½À´¼Ç¼ѧϰdelphi·ÃÎÊǶÈëʽÊý¾Ý¿âsqliteÖеÄһЩµãµÎ¡£»¶Ó¸÷λͬºÃ¹²Í¬Ñ§Ï°ºÍÅúÆÀÖ¸Õý¡£
file:1 ×¼±¸¹¤×÷part1
& ......
DELPHIÓõò»Ì«¶à£¬¼ÓÉÏÄԽºÃʹ£¬¾Í¼ÇÒ»ÏÂ×î³£ÓöԿª·¢Ð§ÂʺÜÓаïÖúµÄ¼¸¸ö£º
Ctrl+Êó±ê×ó¼ü£º²éÕÒ¶¨Òå
Ctrl+Shift+↑£ºÉÏÒ»²Ù×÷ÓëÆäÕýºÃÏà·´£¬Óɶ¨Òå²éÕÒʵÏÖ
Ctrl+Shift+¿Õ¸ñ£ºÔÚÒ»¸öº¯ÊýûÓÐÊäÈë²ÎÊýµÄÀ¨ºÅÄÚ°´Ï´˿ì½Ý¼üʱ»á³öÏÖº¯ÊýÏà¹Ø²ÎÊýµÄÌáʾÐÅÏ¢£¬°üÀ¨ÖØÔصÄËùÓк¯ÊýµÄÐÅÏ¢ ......
Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ
Round ת»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ
Trunc ת»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö
IntToStr ½«Êýֵת»»Îª×Ö· ......
£®pas ---- pascalµÄËõд, µ¥ÔªÔʼ³Ìʽµµ£¨ unit source files £©
£®dpr ---- ר°¸µµ ( project files )
£®dpk ---- °ü¹üÔʼ³Ìʽµµ/×é¼þ°ü ( package source files )
£®dfm ---- ±íµ¥µµ (¼Ç¼formµÄÄÚÈÝ,³ýÈ¥Õâ¸öÄÚÈݾ͵ÈÓÚɾ³ýÁËformÕâ¸ö±íµ¥)
£®dcu ---- ÊDZàÒëºÃµÄµ¥ÔªÎļþ.ÈôÖ»ÓÐÒ»¸ödcuÎļþ,Ôò²»ÄÜ¿´µ½Ô´´úÂë.
......