Hallo Zusammen!
Ich habe gerade einen "Hänger"..
ich habe ein Interface erzeugt...
Delphi-Quellcode:
IVVComInterface = interface(IInvokable)
['{DDDD293D-1D84-49AC-8B91-9403898D7872}']
{ Methoden von Invokable-Interface dürfen nicht die Vorgabe- }
{ Aufrufkonvention verwenden; stdcall wird empfohlen }
Function Commando(Aktion:byte):AnsiString; stdcall;
end;
Und ein "Server-Form" erzeugt mit:
Delphi-Quellcode:
TForm47 = class(TForm,IVVComInterface)
...
InvRegistry.RegisterInterface(TypeInfo(IVVComInterface));
Ein Zugriff auf dieses Interface versuche ich mit:
Delphi-Quellcode:
Var
ServerLink : IVVComInterface;
MyGuid : TGuid;
begin
MyGuid := StringtoGuid('{DDDD293D-1D84-49AC-8B91-9403898D7872}');
if QueryInterface(MyGuid,Serverlink) = 0 then
ServerLink.Commando(1);
Aber das Interface wird nicht gefunden! Was habe ich übersehen?
Grüsse Mavarik