Ovaj kod RADI !!!
Pitanja :
- da li smem proceduru " Procedure PlayFile(Player : tcbaudioplay); "
da zovem do besvesti ???
- jer u njoj kaze " Player := TcbAudioPlay.Create " !!!
- sta se desava ??? Oni se kreiraju i kreiraju i kreiraju ... ili ne ?
sta se desi posle " Player.Play; "
- da li ja negde treba da kazem " Player.Free ; "
PS: ja sam radio bez argumenata u proceduri PlayFile :
Code:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, cbAudioPlay, ExtCtrls, Menus, DirectShow, ComCtrls, Buttons,
MMSystem;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure PlayWav1();
procedure PlayWav2();
var
Form1: TForm1;
PustacWav1 , PustacWav2 : TcbAudioPlay;
implementation
{$R *.dfm}
procedure PlayWav1();
var
Cnt : Integer;
begin
for Cnt := cbDeviceList.count-1 DownTo 0 do
begin
if (pos('Default DirectSound Device',cbDeviceList[cnt]) > 0) Then
begin
PustacWav1 := TcbAudioPlay.Create(Form1,'..\Wavs\Wav1.wav', cnt);
end;
end;
PustacWav1.Play;
end;
procedure PlayWav2();
var
Cnt : Integer;
begin
for Cnt := cbDeviceList.count-1 DownTo 0 do
begin
if (pos('Default DirectSound Device',cbDeviceList[cnt]) > 0) Then
begin
PustacWav2 := TcbAudioPlay.Create(Form1,'..\Wavs\Wav2.wav', cnt);
end;
end;
PustacWav2.Play;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PlayWav1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PlayWav2;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
PustacWav1.Free;
PustacWav2.Free;
end;
end.
Valja li ovo ista :)
Sta ne valja :)