Zitat:
Long in VB6 und Integer in Delphi sind immer 32 Bit groß.
Auch im 64 Bit Build, in der Spiegelwelt und auf der dunklen Seite der Macht.
Das ist so sicher wie die Faust aufs Auge..
Kleiner scherz ja das ist richtig.
Nur das meinte ich nicht.
Ich habe gesagt das SmallInt in Delphi 16Bit ist aber diese Variable welcher LONG unter VB6 zugewiesen ist unter Delphi nicht funktioniert.
Dafür benötige ich SmallInt 16Bit nicht LongInt\Int64 (32Bit) das funktioniert in dem Zusammenhang nicht.
Ich versuch nochmal mein Problem zu erklären.
Code:
Dim imgSpectrumData() As Long
In VB6 wird das Array so übergeben.
Dimensioniert.. Kein problem
Zitat:
ReDim imgSpectrumData(w - 1, frmMain.ScaleHeight - 1)
Code:
GdipCreateBitmapFromScan0(w, frmMain.ScaleHeight, w * 4, PixelFormat32bppARGB, imgSpectrumData(0, 0), imgSpectrum)
Das ist das eigentlich Problem
imgSpectrumData(0, 0) ist LONG in Delphi aber ein Pointer auf ein Mehrdimensionales Array of Byte.
TSpectrumArray = array of array of byte;
Deshalb weil die Funktion GdipCreateBitmapFromScan0 einen Pointer auf Byte erwartet also PByte
Habe jetzt das versucht..
PByte(imgSpectrumData[0, 0])
Kein Problem allerdings bekomme ich dann kein Daten ins Image.
Dann dies
PByte(@imgSpectrumData[0, 0])
Dann kracht es beim beenden der Anwendung weil invalider (nicht gültiger) Pointer.
Nun dann halt so.
@imgSpectrumData[0, 0]
Selbe Problem invalider Pointer.
Damit habe ich im Moment zu kämpfen.
Zitat:
Warum nimmst du Byte und Smallint, wenn der Code, den du portieren willst, ausdrücklich Long vorgibt?
Weil die Funktionen unter Delphi das erwarten.
Ich kann zum Beispiel
ptrwavefmtex.nSamplesPerSec die zugewiesene Variable nicht als LONG definieren oder Integer hier wird DWORD erwartet.
gruss