🚀 go-pugleaf

Po pierwsze pokaż cały plik TLB
Po drugie zazwyczaj w zaimportowanym pliku jest metoda, która tworzy 
interfejs.
Jeżeli nie ma to musisz ustalić pod jaką nazwą klasa jest zarejestrowana 
i wtedy normalnie jak za każdą kontrolką ActivX.

Z calkiem robi się tak

var
     openoffice : Variant;
     OpenDesktop : Variant;
     LoadParams : Variant;
     monclasseur : Variant;
     document,cellule,mafeuille,nb : Variant;
     v:real;
     oFormats,oLocale : variant;
     nNumKey, i : integer;
     Sheets, Sheet, MyStruct, Cell ,arkusz : variant;
begin
   if VarIsEmpty(OpenOffice) then
     try
       OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
     except
       Raise Exception.Create('Nie mogę pobrać ServiceManager OpenOffice');
       Exit;
     end;

   OpenDesktop := 
OpenOffice.createInstance('com.sun.star.frame.Desktop');// 
'private:factory/scalc',
   LoadParams := VarArrayCreate([0, -1], varVariant);
   if ((EditNIP.text[1]='P') AND 
(EditNIP.text[2]='L'))OR(EditNIP.text[1] in ['0'..'9']) then
   begin
     document := 
openDesktop.LoadComponentFromURL('file:///'+ExtractFilePath(Application.ExeName)+'/wezwaniezagraniczne.xls','_blank', 
0,LoadParams);
   end else
   begin
     document := 
openDesktop.LoadComponentFromURL('file:///'+ExtractFilePath(Application.ExeName)+'/wezwaniezagraniczne.xls','_blank', 
0,LoadParams);
   end;