Thema: Delphi Openoffice in Delphi

Einzelnen Beitrag anzeigen

lamgiang0803

Registriert seit: 10. Aug 2006
1 Beiträge
 
#1

Openoffice in Delphi

  Alt 10. Aug 2006, 15:02
Hallo alle Profile,

wo oder wie kann ich alle Eigenschaften bzw. Funktion der Variable Document bestimmen (z.B. Document.GetPrinter ...).
für jede Antworte badanke mich ganz herzlich.
Grüßen
Lamgiang


Delphi-Quellcode:
function TOOViaOLE.CreateDocument(cFilename: string = ''): boolean;
var
   StarDesktop: Variant;
   Document: Variant;
begin

   try
      
      StarDesktop := StarOffice.createInstance('com.sun.star.frame.Desktop');
      if Length(cFilename) > 0 then begin
         if Pos('file:///', cFilename) < 1 then
            cFilename := Path_Win2OO(cFilename);
         Document := StarDesktop.LoadComponentFromURL(cFilename, '_blank', 0, VarArrayCreate([0, -1], varVariant));
      end
      else
         Document := StarDesktop.LoadComponentFromURL('private:factory/swriter', '_blank', 0, VarArrayCreate([0, -1], varVariant));
      
      CreateDocument := not (VarIsEmpty(Document) or VarIsNull(Document));
      Result:=TRUE;
  
   except
      Result:=FALSE;
   end;
end;
  Mit Zitat antworten Zitat