Array durch PSafeArray übergeben

[jmd anders]

Ich hab wieder mal ein kleines Problem

Ich habe eine Funktion, die erwartet als Parameter ein PSafeArray.
Durch dieses PSafeArray erhält die Funktion ihre Daten.

Ich würde nun gerne wissen, wie ich dem PSafeArray sage, dass es auf mein Array of Byte zeigen soll und somit die Funktion letztendlich mein Array of Byte erhält.

Danke schon jetzt

[Dani]

Hi, meinst du z.B. sowas?

Delphi-Quellcode:

type
  TSafeArray = array [0..10] of Byte;
  PSafeArray = ^TSafeArray;

//...

procedure TForm1.Foo;
var
  MyArr: TSafeArray;
  I: Integer;
begin
  for I := 0 to 10 do
    MyArr[I] := I;

  Bar (@MyArr);
  ShowMessage (IntToStr (MyArr[0]));
end;

procedure TForm1.Bar(Arr: PSafeArray);
begin
  Arr[0] := 10;
end;

Dann hilft dir [oh]@ (Adreß-Operator)[/oh]

[jmd anders]

hmm... ich glaube das ist nicht das richtige.

ich habe eine Typlibrary importiert und dadrin gibt es eine Funktion die ein PSafeArray braucht.
Das PSafeArray ist in der unit ActiveX deklariert.
Nur der Umgang damit ist ein Problem für mich

[Dani]

okay, schade
vielleicht bringt dich dieser MSDN Artikel oder einer der Anderen irgendwie weiter...