Konvertierung von C nach Delphi

[venice2]

Zitat von himitsu:

Für später, falls du überlegst deinen Code dann noch zu optimieren, oder so.


Es sieht so aus, als wenn da Audio mit 2 Channels rein kommt und das auf zwei Streams mit jeweils einem Channel zerlegt wird.
Da gibt es bestimmt unter den vielen BASS-Beispielen irgendwo schon was Fertiges für.

Nein nicht für den besonderen Fall.

[himitsu]

Zitat von venice2:

geht in Delphi ja so auch nicht.

Ist das zweite = ein Vergleich (oder war das dieses ==) oder auch eine Zuweisung?

Ist wohl eher das Zweite?

Delphi-Quellcode:

for var i := 0 to 1023 do  // das VAR im neusten Delphi, aber muß man nicht so machen, nur weil es in dem C-Code auch so gemacht wird
  tl.frequency[0][i] := tl.frequency[1][i] = Byte(Min(255, fft[i] * 512) * 25);

Delphi-Quellcode:

for var i := 0 to 1023 do begin
  tl.frequency[0][i] := Byte(Min(255, fft[i] * 512) * 25); 
  tl.frequency[1][i] := tl.frequency[0][i];
end;

[venice2]

Zitat:

Ist das zweite = ein Vergleich (oder war das dieses ==) oder auch eine Zuweisung?

In C (==) bedeutet in Delphi
if (x = x1) then

und (=)
x := x1;

Danke dir werde es mal testen.

[TurboMagic]

Noch eine Kleinigkeit: den Byte Array kann man evtl. auch durch den in SysUtils vordefinierten TBytes Datentyp ersetzen.

[venice2]

Zitat von TurboMagic:

Noch eine Kleinigkeit: den Byte Array kann man evtl. auch durch den in SysUtils vordefinierten TBytes Datentyp ersetzen.

Nein geht nicht weil die Definition Byte ist.

Delphi-Quellcode:

  TimedLevel = record
    frequency : array [0..1, 0..SA_BUFFER_SIZE-1] of byte;
    waveform : array [0..1, 0..SA_BUFFER_SIZE-1] of byte;
    state : integer;
    timeStamp : int64;
  end;

Den Record kann ich nicht mal so eben umschreiben der ist vorgegeben.

so gehts..

Delphi-Quellcode:

for var i := 0 to 1023 do 
begin
  tl.frequency[0, i] := Trunc(Min(255, fft[i] * 512) * 25); // Byte geht nicht. fft ist single
  tl.frequency[1, i] := tl.frequency[0, i];
end;

in C kann man das auf byte casten in Delphi nicht das verlangt round oder Trunc warum auch immer.

[himitsu]

Egal, da die Daten sowieso manuell reingefüllt werden, also von dir und deinem Code, also kännte man es auch ändern, falls man es für nötig hielte.
[edit] sah erst so aus, aber wollte nur nochmal schnell nachsehen wie groß SA_BUFFER_SIZE ist und ob man das ALLES auf dem Stack haben wöllte, und dann fand ich
https://docs.microsoft.com/en-us/pre...152(v%3Dvs.85)

[venice2]

Zitat von himitsu:

Egal, da die Daten sowieso manuell reingefüllt werden, also von dir und deinem Code, also kännte man es auch ändern, falls man es für nötig hielte.

Jo.