Announcement

**Mario.Noack** · 15.08.2002, 07:11

Ja, die gibt es. Diese ist aber grottenschlecht dokumentiert. Hier aber ein kleines Beispiel:
<pre class="sourcecode"><code>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
Document : Variant;
StarOffice : Variant;
function Connect : Boolean;
function LoadDocument(const FileName : String; Visible : Boolean):Boolean;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.Connect : Boolean;
begin
if VarIsEmpty(StarOffice) then
StarOffice := CreateOleObject('com.sun.star.ServiceManager');
Result := not(VarIsEmpty(StarOffice) or VarIsNull(StarOffice))
end;

function TForm1.LoadDocument(const FileName : String; Visible : Boolean):Boolean;
var
StarDesktop : Variant;
LoadParams : Variant;
PropertyValue : Variant;
CoreReflection : Variant;
begin
StarDesktop := StarOffice.Createinstance('com.sun.star.frame.Desktop');

LoadParams := VarArrayCreate([0,0], varVariant);

CoreReflection := StarOffice.CreateInstance('com.sun.star.reflection.CoreRefle 
ction');
CoreReflection.ForName('com.sun.star.beans.PropertyValue' ).CreateObject(Proper
tyValue);

PropertyValue.Name := 'Hidden';
PropertyValue.Value := not Visible;

LoadParams[0] := PropertyValue;
// http://api.openoffice.org/common/ref/com/sun/star/frame/XComponentLoader.ht
ml
Document := StarDesktop.LoadComponentFromURL(FileName, '_blank', 0, LoadParams
);

PropertyValue.Name := 'Name';
PropertyValue.Value := 'Canon C LBP 460PS';

Document.SetPrinter(LoadParams);

PropertyValue.Name := 'FileName';
PropertyValue.Value := 'C:\test.ps';

Document.Print(LoadParams);

Result := not(VarIsEmpty(Document) or VarIsNull(Document));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Connect;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LoadDocument('file:///C:/test2.txt', True);
end;

end.

</code></pre&gt

**Sigbert Engelhardt** · 15.08.2002, 08:35

Danke<br&gt

**Andreas Schilling** · 03.11.2004, 10:33

Da der Quelltext f�r den Aufruf eines OO-Dokuments fast identisch ist wie in "Der Entwickler 6/2003" h�nge ich mich hier mal dran. Nach CreateOleObject und createinstance kommt bei LoadcomponentfromUrl die Fehlermeldung "Variante referenziert kein Automatisierungsobjekt". Der Wert von Staroffice = "$0015...." und der von Stardesktop = "unbekannt" nach der Zuweisung. Wo liegt die Ursache f�r die Fehlermeldung?.
Gru� Andrea

Announcement

OpenOffice (StarOffice)

OpenOffice (StarOffice)

Comment

Comment

Comment