Hi,
I'm trying to interact with MS Word.
I started with the example from the wiki, but I'm getting errors and problems.
Here's my code:
procedure TForm1.GridToWordTable;
const
ServerName = 'Word.Application';
var
Server: Variant;
begin
DebugLn('GridToWordTable A');
DebugLn(' Assigned(InitProc) = ',DbgS(Assigned(InitProc)));
if Assigned(InitProc) then TProcedure(InitProc);
Try
Try
Server := GetActiveOleObject(ServerName);
DebugLn(' Found a running MS Word object');
Except
DebugLn(' Dit not find a running MS Word object, trying to
create one ...');
Server := CreateOleObject(ServerName);
end;
Except
DebugLn(' Error creating ',ServerName);
Exit;
end;
Try
DebugLn(' Found or created ',ServerName);
Server.Visible := True;
Server := Unassigned;
Except
On E: Exception do
begin
DebugLn('GridToWordTable raised exception:');
DebugLn(' Class = ',E.ClassName);
DebugLn(' Message = ',E.Message);
end;
end;
DebugLn('GridToWordTable End');
end;
If I run this it always ouputs this, wether or not I have an active MS
Word running at the time.
F:\LazarusProjecten\UurCodes>uurcodes
GridToWordTable A
Assigned(InitProc) = False
Dit not find a running MS Word object, trying to create one ...
Found or created Word.Application
GridToWordTable raised exception:
Class = EOleException
Message = Visible is geen verwijzingseigenschap.
GridToWordTable End
The end result is a non visible MS Word object:
ProcessID Naam
FFC7052B E:\PROGRAMMA'S\OFFICE 2000\OFFICE\WINWORD.EXE
which can only be closed by killing it (in TaskManager)
(In taskmanager on XP it is listed as a process, not as an
application, not sure if this is relevant)
If I run the same code in Delphi 3 it runs just fine.
If Word is running it says it has found it, if not it creates and makes visible.
I compiled with fpc 2.2.2 / Lazarus 0.9.27 (SVN)
I have MS Word 2000 and I've tested my code on WinMe and XP, both
behave the same.
So I have two questions:
1) why does GetActiveOleObject not "find" a running MS Word instance?
2) why can't i do Server.Visible := true in fpc?
I'm really not looking forward to having to develop this (small and
simple) app with Delphi 3, because I've grown fond of the Lazarus
IDE's capabilities.
Bart
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
