Länge eines "Variant array of variant" (?) bestimmen [OLE]

[freejay]

Hallo zusammen,

ich habe das Problem, dass ich nicht die leiseste Ahnung habe, wie ich die Anzahl der von LinkSources* zurückgegebenen Einträge in der Variante vLinks ermitteln soll:

Delphi-Quellcode:

procedure TfMain.UpdateLinks(FileName: TFileName);
var
  vExcel: Variant;
  vWorkbook: Variant;
  vWorksheet: Variant;
  vLinks: Variant;
  i: Integer;
begin
  vExcel := CreateOleObject('excel.application');

  vWorkbook := vExcel.WorkBooks.Open(FileName,0);
  vLinks := vWorkbook.LinkSources(1);

  for i := 1 to High(vLinks) do
    ShowMessage(vLinks[i]);

  vWorkbook.Close(SaveChanges:=false);

  vExcel.Quit;
  vExcel := UnAssigned;
end;

In VBA macht man das mit UBound(vLinks), aber UBound gibt's ja in Delphi nicht - oder?

High(vLinks) geht definitiv nicht in Delphi,
vLinks.Count auch nicht.
ich habe auch versucht, das Ganze zu casten:

Delphi-Quellcode:

procedure TfMain.UpdateLinks(FileName: TFileName);
type
  TMyArrayOfVariant = array of variant;
var
...
  myLinks: TMyArrayOfVariant;
begin
...
 myLinks := TMyArrayOfVariant(vLinks);
...
end;

funktioniert auch nicht...

Hat irgendjemand eine Idee?

Danke schon jetzt!

Freejay

*LinkSources liefert die in einem Excel-Sheet verknüpften Dateien zurück.

[nicodex]

Da UBound eine Methode von/für SafeArrays zu sein scheint, tippe ich mal auf die VarArrayXxx-Funktionen (VarArrayHighBound - ruft intern OLEs 'SafeArrayGetUBound' auf ;)).

[freejay]

Super! Damit geht's! Da wär ich nie drauf gekommen...

Vielen Dank!

Gruß

Freejay

[nicodex]

Dafür gibt’s das Forum ;)

Viel Erfolg.

[Chemiker]

Hallo freejay,

eine Anmerkung zu der Variablen deklaration. Statt Variant, sollte man bei OLE-Automatisierung besser OLEVariant einsetzen.

Bis bald Chemiker

[freejay]

Danke für den Tipp.

Gibt's da außer der Genauigkeit der Typbezeichnung einen Unterschied zu Variant?

[mkinzler]

Variant ist variabel

[Apollonius]

Laut Hilfe kann ein OleVariant keine programmspezifischen Typen enthalten. Während beispielsweise von IDispatch abgeleitete Interfaces oder Widestrings also immer erlaubt sind, kann ein OleVariant im Gegensatz zum Variant keine Ansistrings oder andere Typen, die durch Ableitung von TCustomVariantType entstanden sind, enthalten.

[sirius]

OleVariant wird einfach ein wenig anders gespeichert. OleVariant kann von jeder anderen Prograqmmiersprache benutzt werden. Variant ist delphispezifisch. Damit ergeben sich die Sachen, die Apollonius genannt hat. Bei den meisten Sachen merkt man innerhalb Delphi keinen Unterschied.

[Apollonius]

Zitat:

Zitat von sirius

OleVariant wird einfach ein wenig anders gespeichert.

Tatsächlich? Ich dachte, dass bei OleVariant lediglich die möglichen Werte für VType eingeschränkt sind.