Hallo,

in einer Typbibliothek ist folgende Funktion definiert:

zusammenfalten · markieren

Delphi-Quellcode:

// *********************************************************************//
// DispIntf: ModelState
// Flags: (4096) Dispatchable
// GUID: {B0D75815-A121-4964-BE90-7B8C0422C2DD}
// *********************************************************************//
  ModelState = dispinterface
    ['{B0D75815-A121-4964-BE90-7B8C0422C2DD}']
    ...
    procedure GetReferenceKey(var ReferenceKey: {NOT_OLEAUTO(PSafeArray)}OleVariant;
                              KeyContext: Integer); dispid 2130706454;
    ...
  end;

Damit will ich die Funktion aufrufen:

zusammenfalten · markieren

Delphi-Quellcode:

...
var
  test: OleVariant;

begin
  ...
  MS.Item[i].Name // <- funktioniert
  ...
  test:= VarArrayCreate([0,1000],varByte);
  MS.Item[i].GetReferenceKey(test); // <- funktioniert NICHT
  ...

Der Aufruf der Prozedur scheitert. ich erhalte bei der Zeile "MS.Item[i].GetReferenceKey(test)" die Fehlermeldung Typenkonflikt.

bedeutet wohl daß
VarArrayCreate([0,1000],varByte)
falsch ist.
Aber wie muß das definiert werden?
Wie erzeuge ich hier ein PSafeArray ?

Zitat von Berni68:

Hallo,

in einer Typbibliothek ist folgende Funktion definiert:

zusammenfalten · markieren

Delphi-Quellcode:

// *********************************************************************//
// DispIntf: ModelState
// Flags: (4096) Dispatchable
// GUID: {B0D75815-A121-4964-BE90-7B8C0422C2DD}
// *********************************************************************//
  ModelState = dispinterface
    ['{B0D75815-A121-4964-BE90-7B8C0422C2DD}']
    ...
    procedure GetReferenceKey(var ReferenceKey: {NOT_OLEAUTO(PSafeArray)}OleVariant;
                              KeyContext: Integer); dispid 2130706454;
    ...
  end;

Damit will ich die Funktion aufrufen:

zusammenfalten · markieren

Delphi-Quellcode:

...
var
  test: OleVariant;

begin
  ...
  MS.Item[i].Name // <- funktioniert
  ...
  test:= VarArrayCreate([0,1000],varByte);
  MS.Item[i].GetReferenceKey(test); // <- funktioniert NICHT
  ...

Der Aufruf der Prozedur scheitert. ich erhalte bei der Zeile "MS.Item[i].GetReferenceKey(test)" die Fehlermeldung Typenkonflikt.

bedeutet wohl daß
VarArrayCreate([0,1000],varByte)
falsch ist.
Aber wie muß das definiert werden?
Wie erzeuge ich hier ein PSafeArray ?

Was ist MS? So wie GetReferenceKey definiert ist würde ich erwarten, das diese Prozedur den array erzeugt und in dem test-OleVariant zurückgibt. Du übergibst auch keinen Wert für den KeyContext-Parameter. GetReferenceKey gibt auch keinen Result zurück, den Du einer Variablen zuweisen kannst.

Die ganze Prozedur sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMain.MI_InfoPartClick(Sender: TObject);
var
  doc: Document;
  ipt: PartDocument;
  MS: ModelStates;
  i: integer;
  test:OleVariant;
begin
  doc:= InventorApp.ActiveDocument;
  memo.Lines.Add(doc.FullDocumentName);
 
  if doc.DocumentType <> PartDocumentObject then exit;
  ipt:= PartDocument(doc);
  MS:= ipt.ComponentDefinition.ModelStates;

  test:= VarArrayCreate([0,1000],varByte);

  for i:=1 to MS.Count do begin
    memo.Lines.Add(MS.Item[i].Name); // funktioniert
    //MS.Item[i].Activate; // funktioniert
    memo.Lines.Add(MS.Item[i].Document.PropertySets.Item[1].Item[1].Value); // funktioniert (auch schreibend)

    MS.Item[i].GetReferenceKey(test, 0); // Typkonflikt
  end;
end;

Nur der Aufruf der Prozedur
GetReferenceKey(test, 0);
geht nicht: Typenkonflikt

Habe gerade das für VB gefunden (soll auch funktionieren):

Dim refKey() As Byte = New Byte() {}
oFeature.GetReferenceKey(refKey)
MsgBox(ThisDoc.Document.ReferenceKeyManager.KeyToS tring(refKey))

kann man das nach Delphi übersetzen?

Hallo,

ich habe nun fogendes herausbekommen:
der OLE-server erwartet ein Array mit 12 Byte.
Die Schnittstelle lässt nur OleVariant zu: (var ReferenceKey: {NOT_OLEAUTO(PSafeArray)}OleVariant; KeyContext: Integer)
der KeyContext ist in diesem Kontext egal.

Ich will jetz ein OleVariant bauen das das 12 Byte array enthält:

zusammenfalten · markieren

Delphi-Quellcode:

function test:OleVariant;
var i: integer;
  Pb: Pointer;
  Vb: OleVariant;
  b: TBytes;
    tsa: TSafeArray;
    psa: PSafeArray;
    tag: TSafeArrayBound;
  P: Pointer;
  V: OleVariant;
begin
  SetLength(b,12); for i:=0 to 11 do b[i]:=0;
  Vb:= VarArrayCreate([0, 12], varByte);
  Pb:= VarArrayLock(Vb);
  Move(b[0], Pb^, 12);
  VarArrayUnlock(Vb);

  tsa.cDims:= 1;
  tsa.fFeatures:= 0001; // <-??   
  tsa.cbElements:= 12;
  tsa.cLocks:= 0001; // <-??
  tsa.pvData:= Pb; ;
    tag.lLbound:= 0;
    tag.cElements:= 12;
    tsa.rgsabound[0]:=tag;
  psa:= @tsa;

  V:= VarArrayCreate([0,0], varDispatch); // nicht: varVariant,varDispatch
  P:= VarArrayLock(V);
  Move(psa, P^, SizeOf(psa));
  VarArrayUnlock(V);

  Result:= V;
end;

wenn ich das nun Aufrufe:

MS.Item[1].GetReferenceKey(test, 0); erhalte ich als Fehlermeldung nicht mehr "Typenkonflikt" sondern
"Variante oder sicheres Array ist gesperrt"
(Zumindest wird die OleVariant mal akzeptiert)

Weiß jemand Rat?
tsa.fFeatures
tsa.cLocks

SafeArrayCreate ?

aus System.VarUtils (aber gibt es auch nochmal in Winapi.ActiveX und Winapi.Ole2, falls das Eine nicht reicht)




https://www.delphipraxis.net/181879-...safearray.html
https://de.comp.lang.delphi.misc.nar...iant-ubergeben
http://www.delphigroups.info/2/3a/266174.html
...