Variants und Arrays

[matashen]

Hallo,

ich bekomme von einer dll ein Array in Form eines Variants. Im PDF zur dll ist das so beschrieben für VB

GetBarcodeReturn the barcode if detected. To use GetBarcode, the barcode reading functionality needs to be
enabled by BarcodeInit method.

Code:

Function GetBarcode () As Variant
Dim aa As Variant
BarCodeReturn = v.GetBarcode
List1.Clear
VarType (BarCodeReturn)
If UBound(BarCodeReturn) >= LBound(BarCodeReturn) Then
For f = LBound(BarCodeReturn) To UBound(BarCodeReturn)
List1.AddItem BarCodeReturn(f, 0) 'BarCodeString
List1.AddItem BarCodeReturn(f, 1) 'BarCode Type
List1.AddItem BarCodeReturn(f, 2) 'BarCode Orientation.
List1.AddItem BarCodeReturn(f, 3) 'BarCode Location
Next f
End If

Wie setz ich das in Delphi um?
was ich bisher versucht habe ist leider misslungen und zu Variants hab ich nichts brauchbares im Netz/Forum gefunden.

bisheriger Code (nur das wesentliche, rest rausgeschmissen wegen Übersicht)

Delphi-Quellcode:

var aa:variant;
..
aa:=video.GetBarcode;
if varisarray(aa) then begin
 if VarArrayHighBound(aa, 1)>VarArrayLowBound(aa, 1) then
    
  for I := VarArrayLowBound(aa, 1) to VarArrayHighBound(aa, 1) do
      begin      
             label12.Caption:=vararrayget(aa,i);

Wenn ich die Größe des Array auslesen will und das Ergebnis in ein Memo schreibe bekomme ich nur Low=0 und High=0 oder Low=0 und High=-1

Delphi-Quellcode:

memo1.Lines.Add(inttostr(VarArrayLowBound(aa, 1)));
    memo1.Lines.Add(inttostr(VarArrayHighBound(aa, 1)));

[matashen]

*push*

immer noch aktuell, keiner eine Idee?

[Dejan Vu]

Probier mal VarArrayLock/VarArrayUnlock. Damit sollte/könnte das gehen...

[himitsu]

Ist das auch ein zwei-/mehrdimensionalas Array?

Delphi-Quellcode:

VarArrayLowBound(DasArray, DieEbene)

und die 1. Ebene/Dimension wird bestimmt 0 sein.

[matashen]

Zitat:

Zitat von himitsu (Beitrag 1261221)

Ist das auch ein zwei-/mehrdimensionalas Array?

Delphi-Quellcode:

VarArrayLowBound(DasArray, DieEbene)

und die 1. Ebene/Dimension wird bestimmt 0 sein.

nein, bei Variants beginnt die 1. Ebene bei eins, ist nicht 0-basiert

das stimmt schon, gerade extra nochmal in der Hilfe nachgeguckt.

Zitat:

Der Parameter Dim ist für die erste Dimension 1, für die zweite Dimension 2 usw

[matashen]

Zitat:

Zitat von Dejan Vu (Beitrag 1261212)

Probier mal VarArrayLock/VarArrayUnlock. Damit sollte/könnte das gehen...

Hat nichts gebracht, löste Fehler aus: "Unerwarteter Variant Fehler"

[Dejan Vu]

Vielleicht hilft das hier:
http://www.gekko-software.nl/Delphi/art08.htm

[matashen]

Den Link kannte ich noch nicht ich seh mir das mal an, dankeschön.

Meld mich dann bei Fragen / oder bei Lösung des Problems wieder.

Gruß Matthias