-15 / 1 / 2
Регистрация: 06.11.2015
Сообщений: 39
1

Клик по кнопке -Открытие LibreOffice Calc

10.03.2016, 12:53. Показов 2717. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Сделал кнопочку.
Кликаю раз- появляется документ - 1.ods
Кликаю второй- появляется ещё один документ -1.ods// то есть, второй экземпляр
//итого- два экземпляра в панели

Как сделать так, что бы при втором клике не появлялся ещё один документ, а открывался тот же.
//Если учесть, что после первого клика документ не закрывался, то не разумно конечно писать
// что бы- открывался.Но как-то так.

Вообщем нужно как-то так:
Кликаю раз- появляется документ -1. ods
// далее либо документ сворачивается, либо перекрвывается другим документом
Кликаю второй- появляется всё тот же документ- 1.ods
//итого- один экземпляр в панели


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses    ComObj, ...
 
var
 
  OO : Variant;
 
function MakePropertyValue(PropName, PropValue:string):variant;
var Struct: variant;
begin
    Struct := OO.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
    Struct.Name := PropName;
    Struct.Value := PropValue;
    Result := Struct;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Document : Variant;
  Desktop: Variant;
  Sheet, Cell: Variant;
  vArr : Variant;
  FileName : string;
begin
  OO := CreateOleObject('com.sun.star.ServiceManager');
  Desktop := OO.createInstance('com.sun.star.frame.Desktop');
  FileName := 'f:\1.ods';
 
  vArr := VarArrayCreate([0, 1], varVariant);
  vArr[0] := MakePropertyValue('FilterName', 'LibreOffice Calc');
  Document := Desktop.LoadComponentFromURL('file:///' + FileName, '_blank', 0, vArr);
 
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2016, 12:53
Ответы с готовыми решениями:

Чтение данных из LibreOffice Calc
Уважаемые специалисты, подскажите пожалуйста, как прочитать данные из LibreOffice Calc Но при...

Клик по кнопке в webbrowser
Всем привет! Нужна помощь, уже вот второй день мучаюсь с этим. Как кликнуть по вот такой...

Клик по javascript кнопке
Всем привет, при регестрации почтового ящика на mail.ru есть кнопка "Уменя нет мобильного...

Клик по кнопке (WebBrowser)
Кнопка : <input type="hidden" name="item" value="1"> <input type="submit"...

2
-15 / 1 / 2
Регистрация: 06.11.2015
Сообщений: 39
11.03.2016, 15:03  [ТС] 2
Решил проблему кол-во экземляров путём замены-
Цитата Сообщение от DOKKUSH Посмотреть сообщение
_blank
на _default.
Но проблема, с разворотом, осталась.
То есть, если экземпляр сворачивается, то при клике, он уже не отображается, а остаётся свёрнутым.
0
-15 / 1 / 2
Регистрация: 06.11.2015
Сообщений: 39
27.03.2016, 11:07  [ТС] 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
unit Unit4;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms,ComObj ,FMX.Graphics, FMX.Dialogs,
  FMX.StdCtrls, FMX.Controls.Presentation, FMX.Edit;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    function SaveDoc: boolean;
 
    { Private declarations }
  public    function ConvertToURL(FileName: string): string;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  OO : Variant;
 
implementation
 
{$R *.fmx}
function MakePropertyValue(PropName, PropValue:string):variant;
var Struct: variant;
begin
    Struct := OO.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
    Struct.Name := PropName;
    Struct.Value := PropValue;
    Result := Struct;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Document : Variant;
  Desktop: Variant;
  Sheet, Cell: Variant;
  vArr : Variant;
 
  const
  FileName = 'f:\1.ods';
begin
 
  OO := CreateOleObject('com.sun.star.ServiceManager');
  Desktop := OO.createInstance('com.sun.star.frame.Desktop');
 
 
  vArr := VarArrayCreate([0,0 ], varVariant);
  vArr[0] := MakePropertyValue('FilterName', 'LibreOffice');
  Document := Desktop.LoadComponentFromURL(ConvertToURL(FileName), '_default', 0, vArr);
   VArr:=Unassigned;
 
 
end;
 
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
 
var
Desktop: Variant;
  Document : Variant;
begin   OO := CreateOleObject('com.sun.star.ServiceManager');
Desktop := OO.createInstance('com.sun.star.frame.Desktop');
Document := Desktop.LoadComponentFromURL('file:///' +'f:\1.ods', '_default', 0,
VarArrayCreate([0,-1], varVariant));
 
end;
 
function TForm1.ConvertToURL(FileName: string): string;
var
  URL:string;
  i:integer;
  ch:char;
begin
  URL:='';
  for i:=1 to Length(FileName) do
    begin
      ch:=FileName[i];
      case ch of
        ' ':URL:=URL+'%20';
        '\':URL:=URL+'/';
      else
        URL:=URL+ch;
      end;
    end;
  Result:='file://localhost/'+URL;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
  FilePath:string;
  FileName  : string
;
  VariantArray:variant;
  Bounds:array [0..1] of integer;
   FDocument,FDesktop : Variant;
begin
FileName:='f:\1.ods';
  if (FileName='') then
    FilePath:='private:factory/scalc'
  else
    FilePath:=ConvertToURL(FileName);
  Bounds[0]:=0;
  Bounds[1]:=-1;
  VariantArray:=VarArrayCreate(Bounds, varVariant);
  FDocument:=FDesktop.LoadComponentFromURL(FilePath, '_blank', 0, VariantArray);
  VariantArray:=Unassigned;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
  Document : Variant;
  Desktop: Variant;
  Sheet, Cell: Variant;
  vArr : Variant;
 
  const
  FileName = 'f:\1.ods';
begin
 
  OO := CreateOleObject('com.sun.star.ServiceManager');
  Desktop := OO.createInstance('com.sun.star.frame.Desktop');
 
 
  vArr := VarArrayCreate([0,0 ], varVariant);
  vArr[0] := MakePropertyValue('FilterName', 'LibreOffice');
  Document := Desktop.LoadComponentFromURL(ConvertToURL(FileName), '_default', 0, vArr);
   VArr:=Unassigned;
         Document.Store;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var
  Document : Variant;
  Desktop: Variant;
  Sheet, Cell: Variant;
  vArr : Variant;
  v: boolean;
 
  FileName :string;
begin
     Filename:=  'f:\1.ods';
    begin v:=false;
       OO := CreateOleObject('com.sun.star.ServiceManager');
  Desktop := OO.createInstance('com.sun.star.frame.Desktop');
 
 
  vArr := VarArrayCreate([0,0 ], varVariant);
  vArr[0] := MakePropertyValue('FilterName', 'LibreOffice');
 
  Document := Desktop.LoadComponentFromURL(ConvertToURL(FileName), '_default', 0, vArr);
  Document.getCurrentController.getFrame.getContainerWindow.setVisible(v);
    end;
    begin   v:=true;
      OO := CreateOleObject('com.sun.star.ServiceManager');
  Desktop := OO.createInstance('com.sun.star.frame.Desktop');
 
 
  vArr := VarArrayCreate([0,0 ], varVariant);
  vArr[0] := MakePropertyValue('FilterName', 'LibreOffice');
 
  Document := Desktop.LoadComponentFromURL(ConvertToURL(FileName), '_default', 0, vArr);
  Document.getCurrentController.getFrame.getContainerWindow.setVisible(v);
    end;
 
 
 
 
 
end;
 
function TForm1.SaveDoc: boolean;
var
 Document,DocLoaded : Variant;
begin
  result:= false;
  if DocLoaded then begin
 
      Document.Store;
      result:= true;
 
  end;
end;
end.
изменил открытие вставив функцию-ConvertToURL
добавил сохранение-Document.Store;
и решил, относительно, проблему отображения вставив переменную - v
.


procedure TForm1.Button5Click(Sender: TObject); //открывает и разварачивает

procedure TForm1.Button4Click(Sender: TObject);// сохраняет
1
27.03.2016, 11:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2016, 11:07
Помогаю со студенческими работами здесь

Клик по кнопке на сайте
Приветствую всех, помогите решить небольшую загвоздку.... В общем в Твеббраузер гружу сайт...на...

Открытие таблицы OpenOffice Calc
Хочу открыть таблицу, созданную под OpenOffice, считать от туда значение ячейки в элемент Memo. Я...

Открытие документа Open Office Calc
Плиз, помогите, впервые с ОО работаю из делфи:не получается открыть шаблон *.ods средствами...

LibreOffice Calc - диаграммы
Подскажите, пожалуйста. Не могу понять как вместо цифр 1, 2, 3 и т. д. идущих по горизонтальной оси...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru