Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

DelphiX_play Finden Sie ähnliche Zweige


XeN   (2001-12-21 11:21) [0]

Wer weiß, wie man Stereoklang in DelphiX erzeugt.



3d[Power]   (2001-12-21 11:29) [1]

Dieses Verfahren ist (c) 3d [Power] für NFK-Spiel.

const opt_stereo : boolean = true;
opt_sound : boolean = true;
opt_channelapproach : byte = 10;
opt_reversestereo : boolean = false;

procedure PLAYSOUND(filename : shortstring;x : real);
var PanFactor, PanValue : Double;
begin
if OPT_SOUND = false then exit;
if OPT_STEREO = true then begin
PanFactor := 31.25; // 10000 is the panning range
PanValue := ((round(X) * PanFactor)-10000) / OPT_CHANNELAPPROACH;
if OPT_REVERSESTEREO then PanValue := -panvalue;
end else panvalue := 0;
try
WaveLst.Items.Find(filename).Pan := round(Panvalue);
WaveLst.Items.Find(filename).Play(False);
except
AddMessage("Error playing sound ""+filename+""");
end;
end;

kürzer als playsound ("Ihr Dateiname in dxwavelist", 320) - in der Mitte.
kürzer als playsound ("Ihr Dateiname in dxwavelist", 0) - auf der linken Seite.
kürzer als playsound ("Ihr Dateiname in dxwavelist", 640) - nach rechts.
Sie können den Grad des Stereoeffekts einstellen :)



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben





Speicher: 0.54 MB
Zeit: 0.055 c
14-22329
Dima-k17
2001-11-03 15:12
2002.01.08
Delphi-Zeiten sind vorbei?


7-22431
Pascha
2001-09-21 15:58
2002.01.08
Wie kann man die Wellenform von der Soundkarte entfernen.


14-22354
Nemesis
2001-10-08 13:02
2002.01.08
Mobil


1-22200
Sergei_B
2001-12-15 09:57
2002.01.08
Intxnumx und Dateigröße


3-21909
DeadMoroz
2001-12-03 15:21
2002.01.08
Guten Tag, ich brauche Rat, plz





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesisch (traditionell) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italienisch Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch Bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada Khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch