[es] - Wav Player koji ne radi???

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

^{01.07.2005. u 13:07}

Imam neku knjigu i u njoj pise ovo:

Code:

procedure TForm1BadgeBtnClick(Sender: TObject);
begin
if not PlaySound('badges.wav', 0,SND_FILENAME)
then MessageDlg('Problem playing sound file',mtError,[mbOK], 0)
end;

E sada kakav je to BadgeBtn (recimo da je kao obicni samo mu je ime varijable promjenjeno), al svejedno ovaj kod mi NE radi???
Pa dal postoji tako nekakav slican kod za reprodukciju (.mp3, .wav.......bilo cega od glazbe) ako mu ja dam putanju do fajla???

^{01.07.2005. u 13:07}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: Wav Player koji ne radi???

^{01.07.2005. u 15:35}

Dodaj u uses MMSound i radice

BadgeBtn je obican TButton koji se zove BadgeBtn

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{01.07.2005. u 15:35}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Wav Player koji ne radi???

^{01.07.2005. u 17:25}

Jesam ti kad rekao da si car??

^{01.07.2005. u 17:25}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Wav Player koji ne radi???

^{01.07.2005. u 17:53}

Sta treba promijenit tako da uz pomoc main menu otvorim .wav datoteku??

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, MMSystem;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    File1: TMenuItem;
    Open1: TMenuItem;
    Exit1: TMenuItem;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
with self.OpenDialog1 do
if execute then
self.Caption:=filename;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not PlaySound('lokacija do fajla',0,SND_FILENAME) //tu mi nesto smrdi :)
then showmessage('Problem je nastao!!');

end;

end.

^{01.07.2005. u 17:53}