Comment utiliser des tableaux de variantes dans Delphi

Question

J'ai deux programmes Delphi7: un serveur d'automatisation COM (EXE) et l'autre programme qui utilise le serveur d'automatisation.

J'ai besoin de passer un tableau d'octets d'un programme à l'autre.

Après quelques recherches que j'ai trouvé que l'utilisation des réseaux de variantes est la voie à suivre (corrigez-moi s'il vous plaît si vous connaissez des meilleures méthodes).

Ma question est: Comment créer un tableau de variantes dans un programme, puis comment lire ses valeurs dans l'autre?

Je sais à propos VarArrayCreate et VarArrayLowBound/VarArrayHighBound, mais je ne suis pas sûr sur la façon de le faire correctement.

Merci!

Answer 1

Vous créez comme ça:

Déclarations premier

var 
    VarArray: Variant; 
    Value: Variant; 

Puis la création:

VarArray := VarArrayCreate([0, Length - 1], varVariant); 

ou vous pourriez aussi avoir

VarArray := VarArrayCreate([0, Length - 1], varInteger); 

Dépend t Le type de données Ensuite, vous itérer comme ceci:

i := VarArrayLowBound(VarArray, 1); 
HighBound := VarArrayHighBound(VarArray, 1); 

while i <= HighBound do 
begin 
    Value := VarArray[i]; 
    ... do something ... 
    Inc(i); 
end; 

Enfin, vous désactivez le tableau lorsque vous n'avez plus besoin. EDIT: (Cette option est facultative, voir In Delphi 2009 do I need to free variant arrays?)

VarClear(VarArray); 

C'est tout ce qu'il ya à faire. Pour un autre exemple regarder le fonctionnaire Embracadero Help

EDIT:

Le tableau doit être créé qu'une seule fois. Ensuite, utilisez-le comme indiqué dans l'exemple ci-dessus.

Answer 2

Pour l'autre côté:

(en supposant la valeur est le paramètre Variant et le type d'élément est WideString)

var 
    Source: PWideStringArray; 

if VarIsArray(Value) then begin 
    Source:= VarArrayLock(Value); 
    try 
    for i:= 0 to TVarData(Value).VArray^.Bounds[0].ElementCount - 1 do 
     DoWhatEverYouWantWith(Source^[i]); 
    end; 
    finally 
    VarArrayUnlock(Value); 
    end; 
end;