Forum: Multimedia
Delphi
by Neutral General,
2. Apr 2019
Nur als Hinweis: Ich hatte in dem alten Thread auch schon eine schnellere Version nachgereicht:
https://www.delphipraxis.net/1428640-post39.html
Wobei das von Byte-Arrays ausgeht. Da sollte wie bei Amateurprofi wahrscheinlich rowLen * SizeOf(AArray) als Länge für das Move übergeben werden.
Forum: Multimedia
Delphi
by Neutral General,
29. Mär 2019
Der Code von VB lässt sich definitiv auf Delphi umlegen und das ganz ohne Tricks.
Du solltest dich eventuell mal mit den Datentypen und binären Operationen auseinandersetzen, weil du nicht wirklich genau weißt was du da überhaupt tust.
Forum: Multimedia
Delphi
by Neutral General,
28. Mär 2019
Hab dem Thread grad nur überflogen aber ich gehe davon aus, dass es immer noch nicht wirklich klappt?
Denn wenn SpectrumData2D ein Byte-Array (:!:) ist und du 8 oder mehr Bits in irgendeine Richtung shiftest kommt immer 0 raus!
Was ist jetzt genau in SpectrumData2D enthalten? RGBA-Daten, 32 Bit Farbtiefe?
In dem Fall würden SpectrumData2D, SpectrumData2D, SpectrumData2D und SpectrumData2D...