Umgang mit PSafeArray

[TiGü]

Wenn man mit gedrückter Strg-Taste mit der linken Maustaste auf ".pvData" klickt, wo landet man da und was steht da genau?

[Horst0815]

na PSafeArray is so:

Delphi-Quellcode:

 

 PSafeArray = ^TSafeArray;
  {$EXTERNALSYM tagSAFEARRAY}
  tagSAFEARRAY = record
    cDims: Word;
    fFeatures: Word;
    cbElements: LongWord;
    cLocks: LongWord;
    pvData: Pointer;
    rgsabound: array[0..0] of TSafeArrayBound;
  end;
  TSafeArray = tagSAFEARRAY;

definiert


Kann ja nicht gehen heist ja nicht umsonst PSafeArray


aber

Delphi-Quellcode:

 
  CopyMemory(@Safe,DiscRecorder2.VolumePathNames,DiscRecorder2.VolumePathNames.CbElements);
 For I := 0 To DiscRecorder2.VolumePathNames.CbElements - 1 Do
  Begin

    Memo1.Lines.Add('       Mount Point: ' + (Safe[I]));
  End;

führt zu
[dcc32 Fehler] Main.pas(115): E2149 Klasse besitzt keine Standardeigenschaft

[TiGü]

Dir ist schon klar das PSafeArray ein Zeiger auf ein record/struct ist und kein Array?

Delphi-Quellcode:

  PSafeArray = ^TSafeArray;
  {$EXTERNALSYM tagSAFEARRAY}
  tagSAFEARRAY = record
    cDims: Word;
    fFeatures: Word;
    cbElements: LongWord;
    cLocks: LongWord;
    pvData: Pointer;
    rgsabound: array[0..0] of TSafeArrayBound;
  end;
  TSafeArray = tagSAFEARRAY;
  {$EXTERNALSYM SAFEARRAY}
  SAFEARRAY = TSafeArray;

Vielleicht hilft dir das auch weiter?
http://blog.virtec.org/2008/07/the-m...of-psafearray/