SafeArray of record

[markus888]

@TiGü,
danke für die Antwort.

Leider weiß ich jetzt nicht wie ich das umsetzen muss.

Angenommen ich habe folgenden Record:

Code:

TRecSample = packed record
  ID: Integer;
  Text: WideString;
  Value: Byte;
  end;

Wie bekomme ich davon einen verwertbaren GUID, damit der SafeArray korrekt erstellt werden kann?

[TiGü]

Oh, ich nahm an, du willst ein Array mit Interface-Instanzen übergeben.
Du willst also stattdessen ein Array mit deinen Record namens TRecSample übergeben?
Schauen wir uns dazu nochmal die Doku an:

Zitat:

pvExtra

the type information of the user-defined type, if you are creating a safe array of user-defined types. If the vt parameter is VT_RECORD, then pvExtra will be a pointer to an IRecordInfo describing the record. If the vt parameter is VT_DISPATCH or VT_UNKNOWN, then pvExtra will contain a pointer to a GUID representing the type of interface being passed to the array.

Ich nehme an, du hat als ersten Parameter den Wert VT_RECORD und nicht VT_DISPATCH or VT_UNKNOWN, richtig?
Dann musst du eine Instanz einer Klasse übergeben, welche IRecordInfo implementiert.
Hier ein bisschen zum Nachlesen:
https://stackoverflow.com/questions/...ype-to-vb6-dll

[markus888]

@TiGü, danke für deinen Support.


Hat irgendwer eine Idee oder ein Beispiel, wie ich nun diese IRecordInfo für einen Record erstellen kann?

Edit:
Bitte kein workaround.
Ich übergebe die Daten via dll an VBA.
Ich kann von VBA aus ein Safearray mit einem oder mehreren Elementen übergeben und in Delphi dann mit Redim arbeiten.
Hätte aber lieber eine saubere Lösung.

Hinweis:
Ich verwende keine COM DLL, sondern eine Standard DLL, aber vermutlich ist eine Typbibliothek notwendig.

[TiGü]

Kann ich fragen, was genau das Ziel ist? Ggf. lässt sich ein Datenaustausch zwischen den Modulen auch einfacher bewerkstelligen, wenn du beide Seiten anpassen kannst.

[markus888]

Zitat von TiGü:

Kann ich fragen, was genau das Ziel ist? Ggf. lässt sich ein Datenaustausch zwischen den Modulen auch einfacher bewerkstelligen, wenn du beide Seiten anpassen kannst.

Es geht um den Datenaustausch zwischen VBA und einer Standard Dll.
Ich bin derzeit noch in der Kennenlernphase von Delpi.
Hab vor wenigen Wochen begonnen mich mit dem Thema DLL zu beschäftigen - es geht um die Kommunikation mit VBA.

Das Handling mittels SafeArray ist soweit kein Problem (mehr). Auch das erzeugen bei Standard Datentypen geht ja einfach.
Jetzt geht es mir nur darum, direkt in Delphi ein SafeArray zu erstellen, dass einen Record zurückgibt.
Der Record wird auf beiden Seiten definiert und somit sind die Daten auf beiden Seiten lesbar.
Als workaround übergebe ich derzeit von VBA aus eine Ref auf ein Safearray oder ein OleVariant mit Safearray als Untertyp mit mindestens einem Element.
Dann kann ich falls erforderlich in der DLL per Redim die Anzahl der Elemente anpassen.

Im nächsten Schritt möchte ich mich dann noch mit COM DLL befassen.