AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Konvertierung von C nach Delphi

Ein Thema von venice2 · begonnen am 29. Jun 2020 · letzter Beitrag vom 29. Jun 2020
Antwort Antwort
Seite 1 von 2  1 2   
venice2

Registriert seit: 5. Dez 2019
267 Beiträge
 
Delphi 2010 Architect
 
#1

Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 15:01
Wie kann ich das nach Delphi umsetzen?

Code:
Cnv16to8(data,(signed char*) &tl.waveform[0][0], 1024);
damit komme ich nicht klar >> Cnv16to8
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.600 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 15:05
Das ist eine Funktion.
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
36.655 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 15:08
Erstmal muß man wissen was Cnv16to8 eigentlich macht, um dann zu schauen ob es sowas schon fertig im Delphi gibt,
oder was man alternativ benutzen kann.

Tja, Bei Google suchenCnv16to8 findet aber nciht wirklich viel dazu,
aber die ersten beiden der 5 Suchergebnisse behandeln genau das, was du suchst, auch wenn ohne Ergebnis.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
venice2

Registriert seit: 5. Dez 2019
267 Beiträge
 
Delphi 2010 Architect
 
#4

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 15:33
Das ist eine Funktion.
Jo habe mir so etwas gedacht nur wie lege ich das nach Delphi um?

Zitat:
convert the data to 8 bit
Wie?
Scheinen 16 Bit Daten zu sein die nach 8 Bit konvertiert werden müssen.

Code:
long Cnv16to8 (signed short *source,signed char *dest,unsigned long samples)
{
  unsigned long i;

  for (i=0;i<samples;i=i+2)
    dest[i>>1]=source[i]>>8;

  return i;

}
Danke

Geändert von venice2 (29. Jun 2020 um 15:41 Uhr)
  Mit Zitat antworten Zitat
Incocnito

Registriert seit: 28. Nov 2016
80 Beiträge
 
#5

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 16:28
Hi venice2,

hast du denn die Ausgangsdaten überhaubt?
Sprich das was bei "source" und "samples" rein muss?
Und wohin willst du dann "dest" weiter reichen?
Vielleicht kann man Anhand dessen schonmal die Datentypen ermitteln!

Sonst rate ich, wäre das sowas:
Delphi-Quellcode:
type WordArr = Array of Word;
type ByteArr = Array of Byte;
function Cnv16to8 (const source WordArr; var dest ByteArr; const samlpes : Cardinal) : Cardinal;
var i2 : Cardinal;
begin
  for i2 := 0 to (samples div 2) do
  begin
    dest[i2] := source[i2 shr 1] shl 8;
  end;
  Result := i2;
end;
Annahmen:
- signed short = 16 Bit // Word = 16 Bit
- signed char = 8 Bit // Byte = 8 Bit
C arbeitet hier mit Pointern, da die Werte ja geändert werden müssen,
was wir uns ja bei Delphi prinzipiell schenken können, dank dem hilfreichen Compiler.
Da i immer 2 hochgezählt wird, habe ich mal "i2" genommen.
Ich hoffe nur, ich habe mich beim Umsetzen jetzt nicht verkaspert!
Ansonsten: Gegenvorschläge? Hinweise? Fehler? Ich bin für alles zu haben!

MfG
Incocnito
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
36.655 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 16:47
for i2 := 0 to (samples div 2) - 1 do

und ich würde ehre auf SHR tippen
dest[i2] := source[i2 shr 1] shr 8;

oder dest[i2] := High(source[i2 shr 1]); bzw. besser so dest[i2] := WordRec(source[i2 shr 1]).Hi;

Jupp, sieht so aus, als wenn da einfach nur jedes zweite Byte umkopiert wird,
also aus einem Word-Array wird ein Byte-Array und das kannst auch gern über zwei Arrays lösen
Delphi-Quellcode:
var
  WordData: array[0..Length-1] of Word; // oder hier direkt WordRec als Typ, das erspart dann den Cast
  ByteData: array[0..Length-1] of Byte;

for i := 0 to Length-1 do
  ByteData[i] := WordRec(WordData[i]).Hi; // := WordData[i] shr 8;


Man könnte das hier sogar im selben Speicher/Array umkopieren, aber da darfs man dann NIEMALS von hinten kopieren, sondern muß vorwärts durch die Daten,
denn sonst überschreibt man Daten, die später noch kopieren werden sollen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
venice2

Registriert seit: 5. Dez 2019
267 Beiträge
 
Delphi 2010 Architect
 
#7

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 16:58
Hi venice2,

hast du denn die Ausgangsdaten überhaubt?
Sprich das was bei "source" und "samples" rein muss?
Und wohin willst du dann "dest" weiter reichen?
Vielleicht kann man Anhand dessen schonmal die Datentypen ermitteln!

Sonst rate ich, wäre das sowas:
Delphi-Quellcode:
type WordArr = Array of Word;
type ByteArr = Array of Byte;
function Cnv16to8 (const source WordArr; var dest ByteArr; const samlpes : Cardinal) : Cardinal;
var i2 : Cardinal;
begin
  for i2 := 0 to (samples div 2) do
  begin
    dest[i2] := source[i2 shr 1] shl 8;
  end;
  Result := i2;
end;
Annahmen:
- signed short = 16 Bit // Word = 16 Bit
- signed char = 8 Bit // Byte = 8 Bit
C arbeitet hier mit Pointern, da die Werte ja geändert werden müssen,
was wir uns ja bei Delphi prinzipiell schenken können, dank dem hilfreichen Compiler.
Da i immer 2 hochgezählt wird, habe ich mal "i2" genommen.
Ich hoffe nur, ich habe mich beim Umsetzen jetzt nicht verkaspert!
Ansonsten: Gegenvorschläge? Hinweise? Fehler? Ich bin für alles zu haben!

MfG
Incocnito
Die Ausgangsdaten sind

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;
Code:
typedef struct tagTimedLevel
{
    unsigned char frequency[ 2 ][ 1024 ];
    unsigned char waveform[ 2 ][ 1024 ];
    int state;
    __int64 timeStamp;
}   TimedLevel;
Code:
{
   RECT rect;
   rect.left = rect.top = 0;
   rect.right = visWidth;
   rect.bottom = visHeight;
   TimedLevel tl;
   tl.state = play_state;

   short data[2048]={0};
   BASS_CHANNELINFO info;
   BASS_ChannelGetInfo(hStream, &info);
   
   BASS_ChannelGetData(hStream, data, 2048);
   for (int a=0;a<2048;a++)
      data[a] = (signed short)(data[a]);

   if(info.chans==1) {
      Cnv16to8(data,(signed char*) &tl.waveform[0][0], 1024);
      Cnv16to8(data,(signed char*) &tl.waveform[1][0], 1024);
   } else {
      Cnv16to8(data,(signed char*) &tl.waveform[0][0], 1024);
      Cnv16to8(data+1,(signed char*) &tl.waveform, 1024);
   }

   float fft[1024]={0};
   BASS_ChannelGetData(hStream, fft, BASS_DATA_FFT2048);
   for(int i=0;i<1024;i++)
      tl.frequency[0][i] = tl.frequency[1][i] = (BYTE)min(255,fft[i]*512)*25;
}
Zitat:
und ich würde ehre auf SHR tippen
Ja.. >> ist in Delphi SHR (Shift Right) bzw. << (Shift Left)

Geändert von venice2 (29. Jun 2020 um 17:16 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
36.655 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 17:32
PS: als kleine Rechenbeispiele:
https://www.delphipraxis.net/204656-...ml#post1467491

Da wird zwar von 4 auf 8 Bit umgerechnet, aber der "Scheiß" ist bestimmt dennoch nett anzuschauen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
venice2

Registriert seit: 5. Dez 2019
267 Beiträge
 
Delphi 2010 Architect
 
#9

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 17:33
PS: als kleine Rechenbeispiele:
https://www.delphipraxis.net/204656-...ml#post1467491

Da wird zwar von 4 auf 8 Bit umgerechnet, aber der "Scheiß" ist bestimmt dennoch nett anzuschauen.
Danke gute Leseprobe hilft mir aber im Moment nicht weiter

Das
Code:
   for(int i=0;i<1024;i++)
      tl.frequency[0][i] = tl.frequency[1][i] = (BYTE)min(255,fft[i]*512)*25;
geht in Delphi ja so auch nicht.

Geändert von venice2 (29. Jun 2020 um 17:36 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
36.655 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Konvertierung von C nach Delphi

  Alt 29. Jun 2020, 17:37
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,
für eine Fast Forward Transformation.
Da gibt es bestimmt unter den vielen BASS-Beispielen irgendwo schon was Fertiges für.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (29. Jun 2020 um 17:43 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf