Delphi - Problème de passage de variant OLE (RsLinx OPC, Ajout de groupe fonctionnant uniquement avec des constantes)

Question

Nous avons obtenu le travail OPC. Je ne peux pas installer RsLinx sur mon Win7 (et le mode XP aussi) à cause d'erreurs, donc j'envoie mon application de test à l'endroit réel, et quelqu'un le testant.

Parce que je n'ai pas de DLL, je ne peux pas faire d'interface Delphi, donc j'ai besoin de faire des appels OLE seulement.

J'ai eu un problème intéressant avec Group Add.

Je le démontrer:

procedure TForm1.Button8Click(Sender: TObject); 
var 
    r, g : variant; 
    s : string; 
    v : variant; 
    ws : WideString; 
begin 
    Log('Connect'); 
    r := CreateOleObject('RSI.OPCAutomation'); 
    r.Connect('RSLinx OPC Server'); 

    Log('Add as constant'); 
    g := r.OPCGroups.Add('MONKEY_C'); 
    Log('Name ' + g.Name); 

    Log('Add as string'); 
    s := 'MONKEY_S'; 
    g := r.OPCGroups.Add(s); 
    Log('Name ' + g.Name); 

    Log('Add as variant'); 
    s := 'MONKEY_V'; 
    v := s; 
    g := r.OPCGroups.Add(v); 
    Log('Name ' + g.Name); 

    Log('Add as ole variant'); 
    s := 'MONKEY_OV'; 
    v := VarAsType(s, varOleStr); 
    g := r.OPCGroups.Add(v); 
    Log('Name ' + g.Name); 

    Log('Add as widestring'); 
    s := 'MONKEY_WS'; 
    ws := WideString(s); 
    g := r.OPCGroups.Add(ws); 
    Log('Name ' + g.Name); 

    Log('Add as widestring var'); 
    s := 'MONKEY_WSV'; 
    ws := WideString(s); 
    v := ws; 
    g := r.OPCGroups.Add(v); 
    Log('Name ' + g.Name); 

    r := 0; 

end; 

Le résultat a été:

Connect 
Add as constant 
Name MONKEY_C 
Add as string 
Name _Group0 
Add as variant 
Name _Group1 
Add as ole variant 
Name _Group2 
Add as widestring 
Name _Group3 
Add as widestring var 
Name _Group4 

Le problème que je ne peux pas ajouter tout groupe que constant défini ...

J'ai besoin de savoir comment Delphi compile cette constante pour que je puisse convertir ma valeur de variant à ce format.

Quelqu'un peut-il m'aider dans ce thème?

Merci: dd

---

Salut!

Donc le problème est mystérieux. J'ai trouvé une autre erreur dans les appels OLE purs.

function TDDRsOPCObject.IndexOfGroup(GroupName: string): integer; 
var 
    ogs, g : variant; 
    i : integer; 
    s : string; 
begin 
    CheckObject; 
    Result := -1; 
    ogs := FObj.OPCGroups; 
    s := ''; 
    for i := 1 to ogs.Count do begin 
     g := ogs.Item(i); // This is working 
     if AnsiCompareText(g.Name, GroupName) = 0 then begin 
      Result := i; 
      Exit; 
     end; 
    end; 
end; 


function TDDRsOPCObject.GetGroupByName(GroupName: string): variant; 
var 
    idx : integer; 
    ogs, g : variant; 
begin 
    CheckObject; 
    VarClear(Result); 
    idx := IndexOfGroup(GroupName); 
    ogs := FObj.OPCGroups; 
    if idx <> -1 
     then begin 
      g := ogs.Item(idx); // HERE I GOT: The parameter is incorrect 
      Result := g; 
     end; 
end; 

Il est donc intéressant: le IndexOfGroup avec un même appel fonctionne, le GetGroupByName n'est pas ... :-(

Je déterminé que je ne continue pas mon combat avec des moulins à vent (Don Q). Je obtenu TLB d'un cher utilisateur qui ont Delphi7 (en Win7 le Delphi6 ne peut pas produire l'interface OLE), et je trouve Kassl

que ces interfaces peut me aider ...

Merci:. dd

Answer 1

Pour autant que je sache, la constante et les chaînes sont toutes converties en OleString/BSTR (WideString). Mais puisque vous avez ces problèmes ... probablement pas.

1. Que dit la documentation de OPCGroups.Add? Qu'est-ce qui est attendu?
2. Avez-vous une bibliothèque de types? Peut-être que vous pouvez les importer et utiliser l'interface directement.

Edit:

La documentation est pas très claire.

Il y a quelques choses que vous pouvez essayer:

1. Vérifiez dans la vue CPU ce que le compilateur Delphi fait du code avec la constante, peut-être que vous voyez quelques conseils là-bas sur ce qu'il faut faire avec vos cordes.
2. Essayez ce code.

Code

:

const 
    OPC_GROUP_NAME: WideString = 'MONKEY_C'; 
<...> 
    g := r.OPCGroups.Add(OPC_GROUP_NAME); 
    Log('Name ' + g.Name); 

Lorsque ci-dessus fonctionne le code, essayez ceci:

const 
{$J+} //writable constants on 
    OPC_GROUP_NAME: WideString = 'dummy'; 
{$J-} 
<...> 
    OPC_GROUP_NAME := 'MONKEY_BLA'; 
    g := r.OPCGroups.Add(OPC_GROUP_NAME); 
    Log('Name ' + g.Name); //should be: 'Name MONKEY_BLA' 

Note: Je n'aime pas l'étape 2, mais si cela fonctionne .. pourquoi pas. Pour moi, il semble qu'il y ait un bug dans la com-library que vous utilisez.

Edit2:

je regardais le code généré en utilisant la constante et en utilisant une chaîne normale. Avec la constante je vois que l'adresse du premier personnage est poussée sur la pile, avec la chaîne je vois l'adresse d'un pointeur vers une chaîne qui est poussée sur la pile.

Avec le code ci-dessous je peux simuler le même comportement que la constante:

var 
    lWideArray: array[0..40] of WideChar; 
    s: string; 
    i: Integer; 
<..> 
s := 'MONKEY_FOO'; 
for i := 0 to Length(lWideArray) - 1 do 
begin 
    if i < Length(s) then 
    lWideArray[i] := WideChar(s[i+1]) 
    else 
    lWideArray[i] := #0; 
end; 

g := r.OPCGroups.Add(WideString(lWideArray)); 
Log('Name ' + g.Name); 

Answer 2

Il y a quelques problèmes dans votre code, aussi il serait bon de savoir quelle version de Delphi que vous utilisez, et quel type de paramètre utilise l'appel Add(). Quoi qu'il en soit quelques conseils:

ws: = WideString (s);

C'est un mauvais catalogage. Il ne convertira pas votre chaîne en WideString, cela forcera simplement la mémoire à être interprétée comme telle. Utiliser

ws: = s;

La compilation veillera à appeler la routine de conversion.

Answer 3

Vous n'avez pas besoin d'inventer la roue. Il y a beaucoup de bibliothèques, d'exemples et d'exemples de code pour utiliser OPC avec Delphi. Pour les serveurs et clients Delphi OPC gratuits, regardez ici: http://www.opcconnect.com/delphi.php.