Cách sử dụng mảng biến thể trong Delphi

Question

Tôi có hai chương trình Delphi7: máy chủ tự động hóa COM (EXE) và chương trình khác đang sử dụng máy chủ tự động hóa.

Tôi cần chuyển một mảng byte từ chương trình này sang chương trình khác.

Sau một số tìm kiếm tôi đã thấy rằng việc sử dụng mảng biến thể là cách để đi (chính xác, xin vui lòng nếu bạn biết bất kỳ phương pháp nào tốt hơn).

Câu hỏi của tôi là: Làm cách nào để tạo mảng biến thể trong một chương trình, sau đó làm cách nào để đọc giá trị của biến thể trong một chương trình khác?

Tôi biết về VarArrayCreate và VarArrayLowBound/VarArrayHighBound, nhưng tôi không chắc chắn về cách thực hiện điều này đúng cách.

Cảm ơn!

Answer 1

Bạn tạo ra nó như thế:

khai báo đầu tiên

var 
    VarArray: Variant; 
    Value: Variant; 

Sau đó, việc tạo ra:

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

hoặc bạn cũng có thể có

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

Phụ thuộc vào t anh ấy nhập dữ liệu. Sau đó, bạn lặp lại như sau:

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

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

Cuối cùng, bạn xóa mảng khi không cần nữa. CHỈNH SỬA: (Tùy chọn này, hãy xem In Delphi 2009 do I need to free variant arrays?)

VarClear(VarArray); 

Đó là tất cả. Ví dụ khác nhìn vào chính thức Embracadero Help

EDIT:

Mảng nên được tạo ra chỉ một lần. Sau đó, chỉ cần sử dụng nó như được hiển thị trong ví dụ trên.

Answer 2

Đối với phía bên kia:

(giả sử giá trị gia tăng là tham số biến thể và các loại nguyên tố là 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;