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.

markieren

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)

markieren

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

markieren

Delphi-Quellcode:

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

*push*

immer noch aktuell, keiner eine Idee?

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

Ist das auch ein zwei-/mehrdimensionalas Array?

VarArrayLowBound(DasArray, DieEbene) und die 1. Ebene/Dimension wird bestimmt 0 sein.

Zitat von himitsu:

Ist das auch ein zwei-/mehrdimensionalas Array?

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

Zitat von Dejan Vu:

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

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

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

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