Sound ausgabe 40 mal in der Sekunde

[FAlter]

Hi,

Dein Code:

Zitat von Six:

Delphi-Quellcode:

Quelle1:=Data; // erster Monosound
Quelle2:=Data3;  //zweiter Monosound
GetMem(ziel, 2*size);
for i := (Size div 2) - 2 downto 0 do //div 2 wegen 16 Bit = 2 Bytes
begin
ziel^ := quelle1^;
inc(Ziel);
ziel^ := quelle2^;
inc(Ziel); // <-- edit: ergänzt, fehlte
end;
SavePCMMemoryToFile(Ziel, 'C:\Result.wav', Format, Size); //Abspeichern

Änderung:

Delphi-Quellcode:

Quelle1:=Data; // erster Monosound
Quelle2:=Data3;  //zweiter Monosound
GetMem(ziel, 2*size);
for i := (Size div 2) - 2 downto 0 do //div 2 wegen 16 Bit = 2 Bytes
begin
ziel^ := quelle1^;
inc(Ziel);
ziel^ := quelle2^;
inc(Ziel); // <-- edit: ergänzt, fehlte
end;

//Änderung
FormatStereo := PCMWaveFormat(2 {Stereo}, 16 {Bits}, 44100 {Hz Samplerate}); 
//Änderung ende


SavePCMMemoryToFile(Ziel, 'C:\Result.wav', {Änderung}FormatStereo{Änderung Ende}, Size); //Abspeichern

Also nur ein anderes WaveFormat nehmen, den Stereosound hast du ja bereits als ein solcher erstellt.

Mfg
FAlter