Your declaration of ObjQueryInterface is wrong
should be
function ObjQueryInterface(const IID: TGUID; out Obj): HResult; override;
stdcall;
(NOT Virtual again)!!
> -----Original Message-----
> From: Neil Anderson [SMTP:[EMAIL PROTECTED]]
> Sent: Tuesday, June 06, 2000 1:25 PM
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Saving COM in Application Object
>
> Sorry to be a nuisance,
>
> I suspected that from the help you gave last time, however I still get the
> error.
> I am probably doing something stupid
>
> My Unit
> -------
>
> unit impTBoth;
>
> interface
>
> uses
> ComObj, ActiveX, TestBoth_TLB, StdVcl;
>
> type
> TTIBoth = class(TAutoObject, ITIBoth)
> private
> FTime : string;
> FFreeThreadedMarshaler : IUnknown;
> protected
> function Get_TTime: WideString; safecall;
> procedure Set_TTime(const Value: WideString); safecall;
> procedure SetTime; safecall;
> public
> procedure AfterConstruction; override;
> Function ObjQueryInterface(const IID: TGUID; out Obj): HResult;
> virtual;
> stdcall;
> end;
>
> implementation
>
> uses ComServ, SysUtils, windows;
>
>
> procedure TTIBoth.AfterConstruction;
> begin
> inherited;
> OleCheck( CoCreateFreeThreadedMarshaler( Self, FFreeThreadedMarshaler
> ));
> end;
>
> function TTIBoth.ObjQueryInterface(const IID: TGUID; out Obj): HResult;
> begin
> if GetInterface(IID, Obj) then Result := S_OK
> else Result := FFreeThreadedMarshaler.QueryInterface( IID, Obj );
> end;
>
> function TTIBoth.Get_TTime: WideString;
> begin
> Get_TTime := FTime;
> end;
>
> procedure TTIBoth.Set_TTime(const Value: WideString);
> begin
> FTime := Value;
> end;
>
> procedure TTIBoth.SetTime;
> begin
> FTime := DateTimeToStr(Now);
> end;
>
> initialization
> TAutoObjectFactory.Create(ComServer, TTIBoth, Class_TIBoth,
> ciMultiInstance, tmBoth);
>
> end.
> --------------------------------------------------------------------------
> -
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
