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

Passwd

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

Profil

^{01.07.2005. u 13:07 - pre 229 meseci}

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???

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Wav Player koji ne radi???

^{01.07.2005. u 15:35 - pre 229 meseci}

Dodaj u uses MMSound i radice

BadgeBtn je obican TButton koji se zove BadgeBtn

Play Store

Odgovor na temu

Passwd

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

Profil

Re: Wav Player koji ne radi???

^{01.07.2005. u 17:25 - pre 229 meseci}

Jesam ti kad rekao da si car??

Odgovor na temu

Passwd

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

Profil

Re: Wav Player koji ne radi???

^{01.07.2005. u 17:53 - pre 229 meseci}

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.

Odgovor na temu