Laboratory of Mobile Agricultural Chemicals Searcher
携帯農薬検索実験室

研究会

  ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索  
146 / 1063 <前へ | 次へ>

〔918〕OOo: ファイルを作らずに Calc を開く
 Hidemi Oya WEB  (08/10/01 22:41)

引用なし
   kabe さん、こん**は。Hidemi Oya です。

 Pipe を使えば HTML ファイルを保存せずに Calc を開くことができそうですが、今のところ上手くいきません。Pump も併用しないとだめなようです。
 とりあえず OOo の一時ファイルを使って、HTML ファイルを保存せずに Calc を開けるようにはなりましたので、紹介しておきます。

var
OpenOffice, OpenDesktop, oStream, Params : Variant;
html: string;
begin
Screen.Cursor := crHourGlass;
try
OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
Params := VarArrayCreate([0, 2], varVariant);
Params[0] := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
Params[0].Name := 'FilterName';
Params[0].Value := 'calc_HTML_WebQuery';
Params[1] := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
Params[1].Name := 'DocumentTitle';
Params[1].Value := 'Title'; // ここにドキュメントのタイトルを記述
Params[2] := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
Params[2].Name := 'InputStream';
Params[2].Value := OpenOffice.createInstance('com.sun.star.io.TempFile');
// Params[2].Value := OpenOffice.createInstance('com.sun.star.io.Pipe');
oStream := OpenOffice.createInstance('com.sun.star.io.TextOutputStream');
oStream.setOutputStream(Params[2].Value);
oStream.setEncoding('Shift_JIS');
oStream.writeString(html); // ここに HTML が入った文字列を指定
oStream.closeOutput;
Params[2].Value.seek(0); // Pipe を使う場合はコメントアウトすること
OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
OpenDesktop.LoadComponentFromURL('private:stream', '_blank', 0, Params);
finally
Screen.Cursor := crDefault;
end;
end;


〔897〕ACFinder 080923test版 kabe (08/09/23 19:28)
〔898〕Re:ACFinder 080923test版 Hidemi Oya (08/09/23 21:59)
〔899〕Re:ACFinder 080923test版 Hidemi Oya (08/09/24 21:24)
〔900〕サンプル見っけ! Hidemi Oya (08/09/24 22:02)
〔918〕OOo: ファイルを作らずに Calc を開く Hidemi Oya (08/10/01 22:41) <<<
〔919〕Re:OOo: ファイルを作らずに Calc を開く Hidemi Oya (08/10/02 0:49)
〔920〕Re:OOo: ファイルを作らずに Calc を開く Hidemi Oya (08/10/04 10:29)
〔921〕Re:OOo: ファイルを作らずに Calc を開く kabe (08/10/05 20:12)
〔901〕OOo: ウィザード無しで CSV ファイルを開く Hidemi Oya (08/09/24 23:16)
〔904〕Re:OOo: ウィザード無しで CSV ファイルを開く kabe (08/09/25 20:25)
〔906〕Re:OOo: ウィザード無しで CSV ファイルを開く Hidemi Oya (08/09/25 21:32)
〔907〕Re:OOo: ウィザード無しで CSV ファイルを開く kabe (08/09/25 21:48)
〔908〕Re:OOo: ウィザード無しで CSV ファイルを開く Hidemi Oya (08/09/25 22:16)
〔909〕Re:OOo: ウィザード無しで CSV ファイルを開く kabe (08/09/25 22:30)
〔903〕Re:ACFinder 080923test版 tahata (08/09/25 8:47)
〔939〕Re:ACFinder 080923test版 tahata (09/02/24 23:03)

  ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索  
146 / 1063 <前へ | 次へ>
ページ:  ┃  記事番号:   
(SS)C-BOARD vv3.8 is Free.