paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 20:09:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix problem if OpenOffice is not installed

Browse Source 
git-svn-id: trunk@13879 -
This commit is contained in:
pierre 2009-10-17 07:27:23 +00:00
parent 013fbb8566
commit 820c1c693e
1 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
tests/test/packages/win-base/tdispvar1.pp
View File

@ -12,10 +12,21 @@ uses
var StarOffice : Variant;
Document : Variant;
function TSampleCode_Connect() : boolean;
function TSampleCode_Connect(OleName : string) : boolean;
begin
if VarIsEmpty(StarOffice) then
StarOffice := CreateOleObject('com.sun.star.ServiceManager');
begin
try
Writeln('Trying to connect to ',OleName);
StarOffice := CreateOleObject(OleName);
except
on e : exception do
begin
StarOffice:=Unassigned;
Writeln('Connection to ',OleName,' failed: ',e.message);
end;
end;
end;
Result := not (VarIsEmpty(StarOffice) or VarIsNull(StarOffice));
end;
@ -61,7 +72,18 @@ begin
end;
begin
CoInitialize(nil);
TSampleCode_Connect();
TSampleCode_CreateDocument(false);
CoInitialize(nil);
if TSampleCode_Connect('com.sun.star.ServiceManager') then
begin
if TSampleCode_CreateDocument(false) then
Document.Close(false);
end;
StarOffice:=Unassigned;
if TSampleCode_Connect('com.sun.star.ServiceManager.NonExisting.Variant.Just.To.Test') then
begin
if TSampleCode_CreateDocument(false) then
Document.Close(false);
end;
CoUnInitialize;
end.