Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  AW: OleVariant PSafeArray

   
    by Berni68, 9. Jan 2022
  Hallo himitsu,
  
  danke für den Hinweis.
  Hilft mir aber nicht weiter.
  
  Ich interpretiere
  procedure GetReferenceKey(var ReferenceKey: {NOT_OLEAUTO(PSafeArray)}OleVariant;
  KeyContext: Integer); dispid 2130706454;
  
  analog dazu liefert Free Pascal
• Forum: Win32/Win64 API (native code)

  AW: OleVariant PSafeArray

   
    by Berni68, 7. Jan 2022
  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:
  function test:OleVariant;
  var i: integer;
• Forum: Win32/Win64 API (native code)

  AW: OleVariant PSafeArray

   
    by Berni68, 5. Jan 2022
  Habe gerade das für VB gefunden (soll auch funktionieren):
  
  Dim refKey() As Byte = New Byte() {}
  oFeature.GetReferenceKey(refKey)
  MsgBox(ThisDoc.Document.ReferenceKeyManager.KeyToString(refKey))
  
  kann man das nach Delphi übersetzen?
• Forum: Win32/Win64 API (native code)

  AW: OleVariant PSafeArray

   
    by Berni68, 5. Jan 2022
  Die ganze Prozedur sieht so aus:
  
  procedure TMain.MI_InfoPartClick(Sender: TObject);
  var
  doc: Document;
  ipt: PartDocument;
  MS: ModelStates;
  i: integer;
  test:OleVariant;
  begin
• Forum: Win32/Win64 API (native code)

  OleVariant PSafeArray

   
    by Berni68, 5. Jan 2022
  Hallo,
  
  in einer Typbibliothek ist folgende Funktion definiert:
  // *********************************************************************//
  // DispIntf: ModelState
  // Flags: (4096) Dispatchable
  // GUID: {B0D75815-A121-4964-BE90-7B8C0422C2DD}
  // *********************************************************************//
  ModelState = dispinterface