Sound ausgabe 40 mal in der Sekunde

[Six]

Hi Falter,

Es funktioniert leider immer noch nicht. Die Exception, die ich bekomme ist übrigens eine Zugriffsverletzung. Ich bin hier langsam echt am verzweifeln

Wo liegt der Fehler?


Six

[FAlter]

So genau hatte ich mir deinen Code gar niocht angesehen, du hattest noch einen Fehler drin:

Delphi-Quellcode:

GetMem(Ziel, ...)

for...
begin
  ...
  inc(Ziel);
end;

SavePCMMemoryToFile(Ziel, ...);

Du musst den Pointer auf den Anfang deiner Daten übergeben, du übergibst aber einen Pointer auf das Ende!

FALSCH:

Delphi-Quellcode:

GetMem(Data);
inc(Data);
SavePCMMemoryToFile(Data);

RICHTIG:

Delphi-Quellcode:

GetMem(Data);
Data2 := Data;
inc(Data2);
SavePCMMemoryToFile(Data);

Also genau das, wo du gestern gefragt hast, warum man es machen muss, hast du vergessen.

[Six]

Hi Falter,

ich habe diese Möglichkeit auch breits ausprobiert, nur was dabei rumkommt, ist zwar eine Stereodatei, die jedoch nur halb so lang ist wie das Ausgangsmaterial und einen "verkrüppelten" Inhalt hat.

Also mein Code sieht dann mittlerweile so aus:

Delphi-Quellcode:

GetMem(Ziel, Size*2);
Ziel2:=Ziel;
for i := (Size div 2) -1 downto 0 do // Warum wird hier eigentlich nach unten gezählt?
begin
ziel^ := Data^;
inc(Ziel2);
ziel^ := Data3^;
inc(Ziel2);
end;
SavePCMMemoryToFile(Ziel, 'C:\Result.wav', FormatStereo, Size);

Was um alles in der Welt läuft hier bloß schief


Six

[FAlter]

Hi,

Du solltest deinen Code vor dem Posten nochmal genau ansehen. Dann findest du solche Fehler bestimmt selbst.

Delphi-Quellcode:

ziel2^ := Data^;
inc(Ziel2);
ziel2^ := Data3^;
inc(Ziel2);

Zum nach unten Zählen: Wenn du die Codeoptimierung an hast, würde der Compiler eh den Code für nach unten zählen generieren, weil es schneller ist, mit null zu Vergleichen, als mit was-auch-immer-bei-der-Berechnung-rauskommt.
In diesem Fall ist die Zählrichtung egal.

Mfg
FAlter

[Six]

Hi Falter,

Stimmt, hatte ich übersehen

Leider ist die erzeugte Datei einfach Leer (die anderen beiden Dateien werden richtig erstellt!)

Mit "Leer" meine ich, es wird eine Stereodatei erstellt, die die richtige Länge hat (Size*2), jedoch keine Informationen enthält.

Delphi-Quellcode:

GetMem(Ziel, Size*2);
Ziel2:=Ziel;
for i := (Size div 2) -1 downto 0 do
begin
ziel2^ := Data^;
inc(Ziel2);
ziel2^ := Data3^;
inc(Ziel2);
end;
SavePCMMemoryToFile(Ziel, 'C:\Result.wav', FormatStereo, Size*2);  // *2 hinzugefügt
SavePCMMemoryToFile(Data, 'C:\Test2.wav', Format, Size);           // Datei Mit Signal
SavePCMMemoryToFile(Data3, 'C:\Test3.wav', Format, Size);          // Datei mit SinusTon

Hmmm, woran könnte es denn noch liegen

Six

[Six]

Hier die entscheidende Stelle, für jeden, der es eventuell noch brauchen kann:

Delphi-Quellcode:

      GetMem(Ziel, Size * 2);
        Ziel2 := Ziel;
        Data2 := Data;
        Data4 := Data3;

        for i := (Size div 2) - 1 downto 0 do  
        begin
          ziel2^ := Data2^;
          Inc(Ziel2);
          inc(Data2);
          ziel2^ := Data4^;
          Inc(Ziel2);
          inc(Data4);
        end;

Nochmals vielen Dank an Falter!

Six