ActiveX object - VARIANT* Parameter

[Eclipticon]

Hi,

ich moechte ein ActiveX-Object in einem Free Pascal Projekt verwenden; eine Methode ist in C++ als

long Fetch(VARIANT* vValue)

deklariert. Import Type Library von LazActiveX hat das ganze in

function Fetch(vValue:OleVariant):Integer;

konvertiert. Eigentlich sollen in vValue nur Types wie integer, float oder string transportiert werden und keine OLE-Objekte. Passt das denn so mit OleVariant bzw. wie gehe ich richtig damit um?

Dankeschoen!

[theo]

Eigentlich sollen in vValue nur Types wie integer, float oder string transportiert werden und keine OLE-Objekte.

Wieso denkst du das?

[Eclipticon]

Weil das die Dokumentation der Methode sagt.

[theo]

Vielleicht verstehe ich deine Frage nicht ganz, aber ich denke das passt so, oder? Der Compiler sollte sich um eine kompatible Umwandlung kümmern.

Wie wendest du die Fkt. denn an?

Code: Alles auswählen

uses variants;
...
i:=Fetch('test');
bzw.
i:=Fetch(1);

?

Gibt es damit Probleme?

[Eclipticon]

Sorry, ich haette vielleicht dazu sagen solle, dass vValue ein Rueckgabewert von Fetch() ist, den ich auslesen moechte ...

[theo]

Sorry, ich haette vielleicht dazu sagen solle, dass vValue ein Rueckgabewert von Fetch() ist, den ich auslesen moechte ...

Ich weiss aber immer noch nicht, wo es bei dir hakt, oder was der Ruckgabewert für einen Typ hat

Also sowas funzt hier

Code: Alles auswählen

uses variants;
...
function Fetch(var vValue:OleVariant):Integer;
begin
  vValue:='test';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var r:OleVariant;
begin
 Caption:=inttostr(fetch(r));
 if VarType(r)=varolestr then ShowMessage(VarToStr(r));
end;   

Oder auch:

Code: Alles auswählen

 ...
function FetchP(vValue: POleVariant):Integer;
begin
  vValue^:='test';
end; 
 
var r:OleVariant;
begin
 Caption:=inttostr(FetchP(@r));
 if VarType(r)=varolestr then ShowMessage(VarToStr(r));
...

[Eclipticon]

Hi,

Code: Alles auswählen

uses variants;
...
 
procedure TForm1.Button1Click(Sender: TObject);
var r:OleVariant;
begin
 Caption:=inttostr(fetch(r));
 if VarType(r)=varolestr then ShowMessage(VarToStr(r));
end;   

wenn ich das auf meinen Code anwende (die Source zu Fetch habe ich nicht), loest ein Aufruf von Fetch() eine EOleSysError (Type mismatch) aus.

Mit POleVariant scheitert leider die Compliluerung der TLB (Error: Type is not automatable: "POleVariant")

[theo]

Hast du es jetzt herausgefunden? Du hast doch sicher zwischenzeitlich vieles ausprobiert.
Ich kann dazu leider nicht mehr sagen, mit den spärlichen Informationen.

[Eclipticon]

Hast du es jetzt herausgefunden? Du hast doch sicher zwischenzeitlich vieles ausprobiert.
Ich kann dazu leider nicht mehr sagen, mit den spärlichen Informationen.

Nein, ich bastle noch - dass die Informationen ziemlich spaerlich sind, ist mir bewusst, aber ich hab den Sourcecode zu dem ActiveX object leider nicht und noch dazu unterliegt dieses Teil einer Geheimhaltungsvereinbarung ...

[Eclipticon]

Ausgebastelt. Haette ich Deinen Code etwas genauer angesehen, haette ich auch das

Code: Alles auswählen

var vValue: OleVariant

nicht uebersehen, das LazActiveX nicht eingefuegt hattte ...