Greetings

I have tried to generate an Access report from D5  using COM/OLE.  The
following code was taken from DJPate's web page (Many thanks to her!).
However, it doesn't work.
Compilation errors occur with CLASS_Application & CoApplication not being
declared.
Am I doing something wrong, or overlooking something.
The one thing I haven't done is imported MSacc8.olb and put Access_TLB.PAS
into the uses clause.  Is that it?, or is there something else....

Many thanks,

Jim Hock

{  Var
   Access : _Application;
   AppWasRunning : Boolean;
   UnKnown : IUnKnown;
   Result  : HResult;

begin
  AppWasRunning := False;
  Result := GetActiveObject(CLASS_Application, nil, Unknown);
  if (Result = MK_E_UNAVAILABLE) then
    Access := CoApplication.Create
   else begin
    OleCheck(Result);
    OleCheck(Unknown.QueryInterface(_Application, Access));
    AppWasRunning := True;
    end;

  Access.Visible := True;

<<Jim Hock:
The following code was taken from DJPate's web page (Many
thanks to her!). However, it doesn't work.

It's kind of you to thank me for code that doesn't work! :)
I'm sorry, I haven't updated the Access page for D5 yet;
just change the first three lines to
  Result := GetActiveObject(CLASS_AccessApplication, nil, Unknown);
  if (Result = MK_E_UNAVAILABLE) then
    Access := CoAccessApplication.Create

No need to import the type library with D5.

--
Deborah Pate