Wav Player koji ne radi???

Odgovori Nova tema

3 odgovora
2.310 pregleda

Wav Player koji ne radi??? 01.07.2005. u 14:07 · pre 259 meseci #1

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

Re: Wav Player koji ne radi??? 01.07.2005. u 16:35 · pre 259 meseci #2

Dodaj u uses MMSound i radice

BadgeBtn je obican TButton koji se zove BadgeBtn

Potpis

Play Store

Re: Wav Player koji ne radi??? 01.07.2005. u 18:25 · pre 259 meseci #3

Jesam ti kad rekao da si car??

Re: Wav Player koji ne radi??? 01.07.2005. u 18:53 · pre 259 meseci #4

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.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme