Wie varianten Arrays in Delphi zu verwenden

Question

Ich habe zwei Delphi7-Programme: ein COM-Automatisierungsserver (EXE) und das andere Programm, das den Automatisierungsserver verwendet.

Ich muss ein Array von Bytes von einem Programm zum anderen übergeben.

Nach einiger Suche habe ich festgestellt, dass die Verwendung von Varianten-Arrays der Weg ist (korrigieren Sie mich bitte, wenn Sie irgendwelche besseren Methoden kennen).

Meine Frage ist: Wie erstelle ich eine Variante Array in einem Programm, und wie lese ich dann seine Werte in der anderen?

Ich weiß über VarArrayCreate und VarArrayLowBound/VarArrayHighBound, aber ich bin mir nicht sicher, wie man das richtig macht.

Danke!

Answer 1

Sie schaffen es wie folgt aus:

Erklärungen erste

var 
    VarArray: Variant; 
    Value: Variant; 

Dann wird die Schöpfung:

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

oder auch

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

auf t Abhängig haben könnte Der Typ der Daten. Dann iterieren Sie so:

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

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

Schließlich löschen Sie das Array, wenn Sie es nicht mehr benötigen. EDIT: (Dies ist optional, siehe In Delphi 2009 do I need to free variant arrays?)

VarClear(VarArray); 

Das ist alles dort ist zu ihm. Für ein weiteres Beispiel sehen Sie die offiziellen Embracadero Help

EDIT:

Das Array sollte nur einmal erstellt werden. Dann benutze es einfach wie im obigen Beispiel gezeigt.

Answer 2

Für die andere Seite:

(vorausgesetzt Wert ist der Variant-Parameter und die Art Element ist Wide)

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;