Скачать: CL | DM;

SoundBuffer cannot be made   Найти похожие ветки 

← →
Riko ©   (2003-09-01 15:31) [0]

Пожалуйста, подскажите что неправильно?
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, DXClass, DXSprite, DXInput, DXSounds, DXDraws, uMap, Wave, MMSystem;

type
 TFMap = class(TForm)
   DXDraw1: TDXDraw;
   DXImageList1: TDXImageList;
   DXSound1: TDXSound;
   DXWaveList1: TDXWaveList;
   DXInput1: TDXInput;
   DXSpriteEngine1: TDXSpriteEngine;
   DXTimer1: TDXTimer;
   procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
   procedure FormCreate(Sender: TObject);
   procedure LoadSound;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 FMap      : TFMap;
 Karta      : TMap;

implementation

{$R *.dfm}
procedure TFMap.LoadSound;
begin
dxwavelist1.Items.Add;
   with dxwavelist1.Items[dxwavelist1.Items.Count-1] do
   begin
    Wave.LoadFromFile("menu.wav");
    Name := "soundmenu";
    restore;
   end;
end;

procedure TFMap.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
 if not DXDraw1.CanDraw then exit;
 DXInput1.Update;
 DXSpriteEngine1.Dead;
 DXDraw1.Surface.Fill(0);
 DXSpriteEngine1.Draw;
 With DXDraw1.Surface.Canvas do
 begin
   Brush.Style := bsClear;
   Font.Color := clBlue;
   Font.Size := 14;
TextOut(10,10,"FPS = "+inttostr(dxtimer1.framerate));
 Release;
 end;
 DXDraw1.Flip;

end;

procedure TFMap.FormCreate(Sender: TObject);
begin
with FMap do LoadSound;
DXImageList1.Items[4].Picture.LoadFromFile("map.bmp");
 DXDraw1.ColorTable := DXImageList1.Items.ColorTable;
 DXDraw1.DefColorTable := DXImageList1.Items.ColorTable;
 Randomize;
Karta:=TMap.Create(DXSpriteEngine1.Engine,1,1);
DXWaveList1.Items.Find("corr").Play(false);//[0].Wave.LoadFromFile("me nu.wav");
DXWaveList1.Items.Find("soundmenu").Volume:=10000;
DXWaveList1.Items.Find("soundmenu").Play(false);
end;
end.

Спасибо.

---

← →
Riko ©   (2003-09-01 16:10) [1]

Все уже разобрался, приношу извинения за торопливость...
Причина - необходимо было конвертировать файл wav из 4-бит в 16-бит.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c