Danke vielmals...
Auch diese funktioniert nun.
Bei mir ist noch eine weitere Frage dazu aufgetaucht.
Im
DLL gibt es nocht ein DispInterface mit dem Namen _ITagsEvents, welches mir bei einer Änderung eine Procedure aufrufen soll.
Ich habe dies wiefolgt gelöst:
Delphi-Quellcode:
_ITagsEvents = dispinterface
['{4A0ABBB6-EC00-4E3A-861A-6BD0DACCA172}']
procedure ValueChanged(name, newValue: OleVariant); dispid 1;
end;
var
Form1: TForm1;
dxs: OleVariant;
implementation
{$R *.DFM}
procedure ValueChanged(name, newValue: Variant);
begin
showmessage('Change');
end;
Der Text im
DLL welcher dahinter steckt sieht so aus:
Delphi-Quellcode:
[
uuid(4A0ABBB6-EC00-4E3A-861A-6BD0DACCA172),
helpstring("_ITagsEvents Interface")
]
dispinterface _ITagsEvents
{
properties:
methods:
[
id(0x00000001),
helpstring("method ValueChanged")
]
HRESULT ValueChanged(VARIANT name, VARIANT newValue );
};
Das ganze funktioniert jedoch noch nicht so recht, zumindest komme ich nicht in die Procedure.
Da ich zum erstenmal mit DispInterface arbeite ist mir nicht so ganz klar was ich falsch mache...
Vielen Dank im Voraus...