Variants in Delphi

[Uwe Stachel]

Hallo,
ich habe folgenden Quelltext:

var
varList: OLEVariant;

// Autobahnkilometer ermitteln
m_RouteLister.GetCountryListSumedUp(m_Route, AltRoute, varList);

Wie kann ich hier den Parameter varList auswerten? Kann mir hier jemand weiterhelfen?

Gruß
Uwe

[Bernhard Geyer]

Sorry Glaskugel defekt.
Was für 'ne Komponente verwendest Du? Wie ist die Beschreibung für diese Funktion? OleVariant kann alles sein. Von einfachen Integer bis komplexes Objekt. Ohne Beschreibung wird es ein Try-Error-Versuch

[Uwe Stachel]

sorry...

die Funktion ist folgendermassen beschrieben:

HRESULT IRouteLister2::GetCountryListSumedUp ( [in] IRoute * pRoute,
[in] int AltRoute,
[out] VARIANT * pCountryList
)

This method is used to generate a list of countries through which the route passes. Each country appears only once in this list. If the route passes several times through a country, the route data is combined. In order to generate a country list, however, the IRouteOptions::AddCountryInfo() option must have been set to TRUE before the calculation of the route. For the CountryList to include the toll kilometers ITollOptions:ut_UseTollCostExtension() has to be set to TRUE. For further details see UseCase: How to calculate toll

The result variant is a 2-dimensional variant array. The number of countries passed through determines the first dimension. In the fields of the second dimension should be accessed using the ECountryList enumeration.

Parameters:
pRoute Interface pointer to the route object.
AltRoute Alternative route to which the job relates.
pCountryList Result variant

Return values:
S_OK Return variant is filled.
S_FALSE A country list has not been generated.


Es geht um die Auswertung des pCountryList