Архив форумов ЦИТФорума

[neXt]

Скажите пожалуйста, как в Delphi пользоваться защищёнными массивами.

Как применить SafeArrayAccessDate(), если не трудно, пример кода пожалуйста

[neXt]

И ещё

код вида
//////////////////////////////////
var
pSA: PSafeArray;
bound: ^SAFEARRAYBOUND;
pi, pai: ^Integer;
i: Integer;
ai: array [0..2] of Integer;
begin
// создаём SafeArray

New(bound);
bound.cElements := 3;
bound.lLbound := 1;
pSA := SafeArrayCreate(varInteger,1,bound);

New(pai);New(pi);

// заполняем простой массив какими-то числами
for i := to 2 do ai[i] := 10 * (i + 1);

// перекладываем их в SafeArray
for i := to 2 do
begin
pi^ := i;
pai^ := ai[i];
SafeArrayPutElement(pSA, pi, pai);
end;

// обнуляем простой массив
for i := to 2 do ai[i] := 0;

// и пытаемся взять из SafeArray'я данные в простой массив
for i := to 2 do
begin
pi^ := i;
SafeArrayGetElement(pSA, i, pai);
ai[i] := pai^;
end;
Dispose(pai); Dispose(pi);

// так вот, сейчас в ai[] нет того что я хотелбы там видеть
end;

//////////////////////////////////

Помогите разобраться, заранее спасибо.