2 Dimensionales Array übergeben

[TiGü]

Und das ist ein Int64 in Delphi. Wo ist das Problem?

[EWeiss]

Zitat von TiGü:

Und das ist ein Int64 in Delphi. Wo ist das Problem?

Ist mir klar..
Aber vielleicht verstehst du nicht richtig was ich meine kann ja sein.

Ich sprach davon das er für alles verwendet wird.
Nicht davon das ich nicht weis das es ein Int64 ist.

Ob ShortInt ob Byte ob SmallInt alles ist in VB6 Long.. darum ging es.
EDIT:
Ich soll also für alle diese Datentypen in Delphi Int64 verwenden ? Das wird wohl nichts sollte auch dir klar sein.

gruss

[TiGü]

Du bist immer noch beim portieren von VB6 Code?
Bedenke, dass dann der VB6 long ein vorzeichenbehafteter 4 Byte großer Ganzzahltyp ist.
Also ein Delphi Integer. Und nicht Int64. Das bezieht nur auf neuere Visual Basic Versionen.

[EWeiss]

Zitat:

Also ein Delphi Integer. Und nicht Int64. Das bezieht nur auf neuere Visual Basic Versionen

Ja Danke.. Er ist aber 32Bit.

Und SmallInt was ebenfalls in VB6 als LONG definiert wird ist aber 16Bit. Warum das nicht als Integer definiert wurde mag mal dahin gestellt sein.
UND das sind die ganzen Problem vor allem dann wenn man mit FFT am gange ist.
Wenn hier ein DatenTyp in Delphi nicht passt dann kracht es oder es tut sich einfach nichts.

gruss

[TiGü]

Sorry, du drückst dich unklar aus.
Was genau ist das Problem?

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.

Die meisten deiner Überläufe passieren wohl deshalb, weil du irrtümlich in Delphi zu kleine Datentypen nimmst.
Warum nimmst du Byte und Smallint, wenn der Code, den du portieren willst, ausdrücklich Long vorgibt?
Da brauchste dich wirklich nicht wundern, wenn es nicht klappt.

Wahrscheinlich wäre es gut, wenn du zum Start erstmal eine externe Bibliothek verwendest.
Zum Beispiel siehe vorletzten Beitrag: https://www.entwickler-ecke.de/topic...n_36027,0.html

[EWeiss]

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

[Neutral General]

Warum hast du denn TSpectrumArray als 2 Dimensionales Array definiert, statt auch wie in VB als eindimensionales?
Das sind natürlich 2 verschiedene Dinge. Kann also so ja gar nicht funktionieren.
Kannst du dein TSpectrumArray nicht einfach als Array of Integer deklarieren?

[EWeiss]

Zitat von Neutral General:

Warum hast du denn TSpectrumArray als 2 Dimensionales Array definiert, statt auch wie in VB als eindimensionales?
Das sind natürlich 2 verschiedene Dinge. Kann also so ja gar nicht funktionieren.
Kannst du dein TSpectrumArray nicht einfach als Array of Integer deklarieren?

Es ist zweidimensional.

Code:

imgSpectrumData(x + dx, y + dy)

Das erste für die weite das zweite für die Höhe.
Du kannst also ein Bitmap in einem einfachen Array wohlgemerkt zwei werte Höhe, Weite verwalten? Jo eventuell über einen Record nur das ist hier nicht vorgesehen.
Wie?

gruss