Récupérer un tableau de String provenant d'un objet COM .net

Bonjour

J'ai un objet com .net installé dans un projet delphi7

Une des fonctions de cette objet retourne un tableau de String

Code:

---

1 2 3

[DispId(0x00000002)] string[] GetPluggedReaderInfo();

---

En installant cet objet dans delphi 7, j'obtient pour cette fonction la declaration suivante

Code:

---

1 2 3 4 5

IComOjbect = interface(IDispatch) ['{4B3AE7D8-FB6A-4558-8A96-BF82B54F329C}'] procedure ReleaseDevice; safecall; function GetPluggedReaderInfo: PSafeArray; safecall;

---

Code:

---

1 2 3 4 5

IComOjbectDisp = dispinterface ['{4B3AE7D8-FB6A-4558-8A96-BF82B54F329C}'] procedure ReleaseDevice; dispid 1; function GetPluggedReaderInfo: {??PSafeArray}OleVariant; dispid 2;

---

Code:

---

1 2 3 4 5

function TSC_ComObject.GetPluggedReaderInfo: PSafeArray; begin Result := DefaultInterface.GetPluggedReaderInfo; end;

---

j'essaye donc de créer une variable mais je ne sais pas comment la déclarer,
j'ai essayer un array en direct, psafeArray tout seul sans resultat

Code:

---

1 2 3 4 5 6 7

procedure TForm1.btGetDeviceClick(Sender: TObject); var ret : ??????? ; List: TStrings; begin ret := device.GetPluggedReaderInfo();

---

et comment après lire les données du tableau

cordialement

device c'est un IComOjbect, IComOjbectDisp ou TSC_ComObject ?

Le type serait PSafeArray, si je me trompe pas, c'est aussi compatible avec un PVarArray
une vraie joie !
Dans VarUtils, tu as plein de fonction peu documentée dans les anciens Delphi comme D7 (l'ayant en C++Builder6, tu dois avoir tout ce qu'il faut aussi) comme SafeArrayGetElement ou utiliser
SafeArrayAccessData avec array of WideString comme second paramètre


Si tu en as la possibilité, modifie la partie .NET pour renvoyer une Interface IPluggedReaderInfos qui fournis une propriétés Items[] !
L'intégration en Delphi sera plus simple

Bonjour

Citation:

---

device c'est un IComOjbect, IComOjbectDisp ou TSC_ComObject ?

---

device est un TSC_ComObject

J'ai bien essayé avec un PSafeArray , plus d'erreur de compilation mais j'ai une erreur de violation de mémoire en sortie de mon objet COM.
Etant donné que je l'ai teste également sous VB6 j'ai supposé que l'erreur vient de ma déclaration delphi

Code:

---

1 2	Si tu en as la possibilité, modifie la partie .NET pour renvoyer une Interface IPluggedReaderInfos qui fournis une propriétés Items[] ! L'intégration en Delphi sera plus simple

---

Je peux effectivement changer mon objet com du moment qu'il reste compatible aussi en VB.
Ta proposition est bien de créer une propriété vers un tableau de string du résultat de ma fonction C# ?
Cordialement

je ne connais pas bien le C# mais ça serait dans l'idée de

Code:

---

1 2	[DispId(0x00000002)] IPluggedReaderInfo GetPluggedReaderInfo();

---

Code:

---

1 2 3 4

interface IPluggedReaderInfo { public property string items[] {get;} }

---

je suppose que string est compatible avec BSTR étant le type chaine gérant en émoire COM

Il faudrait aussi vérifier qui doit libérer la mémoire, est-ce l'appelant ou l'appelé ?
Attention, il faut aussi libérer les locks de SafeArrayAccessData par SafeArrayUnaccessData

Bonjour

Merci une nouvelle fois ShailLeTroll

L'erreur de violation venait de n'avoir pas mis a jour mon objet com.

Je poste comment je l'ai fait si ça peux aider.
Donc recuperation d'un tableau de string d'un objet com C# et ajout dans une TStrings

Cordialement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var ListDevice : TStrings; getDev : PSafeArray; LBound, HBound : Integer; I: Integer; D: WideString; begin   getDev := device.GetPluggedReaderInfo();   SafeArrayGetLBound(getDev, 1, LBound); SafeArrayGetUBound(getDev, 1, HBound); ListDevice := TStringList.Create;     for I := LBound to HBound do begin SafeArrayGetElement(getDev, I, D); ListDevice.Add(D); end;   Cordialement

---