Archive for 1月, 2013

  1. Hello, COM(Pascal) World!

    Posted on 1月 29th, 2013 by cx20

    COM(Pascal)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    以下は Free Pascal による COM クライアントの例となっている。

    ソースコード

    hello.pas
    raw download
    program hello;
 
uses
    ComObj;
 
var
    shell: Variant;
    folder: Variant;
 
begin
    shell := CreateOleObject('Shell.Application');
    folder := shell.BrowseForFolder( 0, 'Hello, COM(Pascal) World!', 0, 36 );
end.

    実行方法

    C:¥> fpc hello.pas

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(Pascal) Wolrd!              |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  2. Hello, COM(Haskell) World!

    Posted on 1月 27th, 2013 by cx20

    COM(Haskell)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    以下は Haskell にて COM support library を使用した COM クライアントの例となっている。

    ソースコード

    Hello.hs
    raw download
    import System.Win32.Com
import System.Win32.Com.Automation
 
main = do
    coInitialize
    shell <- createObject "Shell.Application";
    method0 "browseForFolder" [inInt 0, inString "Hello, COM(Haskell) World!", inInt 0, inInt 36] shell

    コンパイル方法

    C:¥> ghc Hello.hs

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(Haskell) Wolrd!             |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  3. Hello, COM(Jasmin) World!

    Posted on 1月 26th, 2013 by cx20

    COM(Jasmin)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    Jasmin 自身には、COM を呼び出す機能を持っていないが、別途ライブラリを経由することで呼び出すことが可能である。
    以下は Jasmin より JACOB(JAVA-COM Bridge) ライブラリを使用した COM クライアントの例となっている。

    ソースコード

    Hello.j
    raw download
    ; Produced by NeoJasminVisitor (tinapoc)
; http://tinapoc.sourceforge.net
; The original JasminVisitor is part of the BCEL
; http://jakarta.apache.org/bcel/
; Sun Dec 09 17:59:35 JST 2012
 
.bytecode 51.0
.source Hello.java
.class public Hello
.super java/lang/Object
 
 
.method public ()V
    .limit stack 1
    .limit locals 1
    .var 0 is this LHello; from Label0 to Label1
 
    Label0:
.line 4
       0: aload_0
       1: invokespecial java/lang/Object/()V
 
    Label1:
       4: return
 
.end method
 
 
.method public static main([Ljava/lang/String;)V
    .limit stack 4
    .limit locals 8
    .var 0 is arg0 [Ljava/lang/String; from Label0 to Label1
 
    Label0:
.line 6
       0: new com/jacob/activeX/ActiveXComponent
       3: dup
       4: ldc "Shell.Application"
       6: invokespecial com/jacob/activeX/ActiveXComponent/(Ljava/lang/String;)V
       9: astore_1
 
    .line 7
      10: new com/jacob/com/Variant
      13: dup
      14: iconst_0
      15: invokespecial com/jacob/com/Variant/(I)V
      18: astore_2
 
    .line 8
      19: new com/jacob/com/Variant
      22: dup
      23: ldc "Hello, COM(JACOB) World!"
      25: invokespecial com/jacob/com/Variant/(Ljava/lang/String;)V
      28: astore_3
 
    .line 9
      29: new com/jacob/com/Variant
      32: dup
      33: iconst_0
      34: invokespecial com/jacob/com/Variant/(I)V
      37: astore 4
 
    .line 10
      39: new com/jacob/com/Variant
      42: dup
      43: bipush 36
      45: invokespecial com/jacob/com/Variant/(I)V
      48: astore 5
 
    .line 11
      50: iconst_4
      51: anewarray com/jacob/com/Variant
      54: dup
      55: iconst_0
      56: aload_2
      57: aastore
      58: dup
      59: iconst_1
      60: aload_3
      61: aastore
      62: dup
      63: iconst_2
      64: aload 4
      66: aastore
      67: dup
      68: iconst_3
      69: aload 5
      71: aastore
      72: astore 6
 
    .line 12
      74: aload_1
      75: ldc "BrowseForFolder"
      77: aload 6
      79: invokevirtual com/jacob/activeX/ActiveXComponent/invoke(Ljava/lang/String;[Lcom/jacob/com/Variant;)Lcom/jacob/com/Variant;
      82: astore 7
 
    Label1:
.line 13
      84: return
 
.end method

    コンパイル＆実行方法

    C:¥> jasmin Hello.j
C:¥> java -cp jacob.jar;. Hello

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(JACOB) Wolrd!               |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  4. Hello, COM(Rhino) World!

    Posted on 1月 24th, 2013 by cx20

    COM(Rhino)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    Rhino 自身には、COM を呼び出す機能を持っていないが、別途ライブラリを経由することで呼び出すことが可能である。
    以下は Rhino より JACOB(JAVA-COM Bridge) ライブラリを使用した COM クライアントの例となっている。

    ソースコード

    importPackage(com.jacob.com);
importPackage(com.jacob.activeX);
 
var shell = new ActiveXComponent("Shell.Application");
var hwnd = new Variant(0);
var title = new Variant("Hello, COM(JACOB) World!");
var option = new Variant(0);
var rootFolder = new Variant(36);
var params = java.lang.reflect.Array.newInstance(Variant, 4);
params[0] = hwnd;
params[1] = title;
params[2] = option;
params[3] = rootFolder;
var folder = shell.invoke( "BrowseForFolder", params );

    実行方法

    C:¥> jrunscript -cp jacob.jar;. Hello.js

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(JACOB) Wolrd!               |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  5. Hello, COM(BeanShell) World!

    Posted on 1月 22nd, 2013 by cx20

    COM(BeanShell)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    BeanShell 自身には、COM を呼び出す機能を持っていないが、別途ライブラリを経由することで呼び出すことが可能である。
    以下は BeanShell より JACOB(JAVA-COM Bridge) ライブラリを使用した COM クライアントの例となっている。

    ソースコード

    Hello.bsh
    raw download
    import com.jacob.com.Variant;
import com.jacob.activeX.ActiveXComponent;
 
ActiveXComponent shell = new ActiveXComponent("Shell.Application"); 
Variant hwnd = new Variant(0);
Variant title = new Variant("Hello, COM(Jacob) World!");
Variant option = new Variant(0);
Variant rootFolder = new Variant(36);
Variant[] params = new Variant[] { hwnd, title, option, rootFolder };
Object folder = shell.invoke( "BrowseForFolder", params );

    実行方法

    C:¥> SET CLASSPATH=bsh-2.0b4.jar;jacob.jar;%CLASSPATH%
C:¥> java bsh.Interpreter Hello.bsh

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(JACOB) Wolrd!               |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  6. Hello, COM(Clojure) World!

    Posted on 1月 21st, 2013 by cx20

    COM(Clojure)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    Clojure 自身には、COM を呼び出す機能を持っていないが、別途ライブラリを経由することで呼び出すことが可能である。
    以下は Clojure より JACOB(JAVA-COM Bridge) ライブラリを使用した COM クライアントの例となっている。

    ソースコード

    Hello.clj
    raw download
    (import 
  (com.jacob.com Variant)
  (com.jacob.activeX ActiveXComponent))
 
(def shell
   (ActiveXComponent. "Shell.Application"))
 
(def hwnd
   (Variant. 0))
 
(def title
   (Variant. "Hello, COM(JACOB) World!"))
 
(def option
   (Variant. 0))
 
(def rootFolder
   (Variant. 36))
 
(def params
   (into-array [hwnd title option rootFolder]))
 
(def folder 
   (.invoke shell "BrowseForFolder" params ))

    実行方法

    C:¥> SET CLASSPATH=jacob.jar;.;%CLASSPATH%
C:¥> clojure Hello.clj

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(JACOB) Wolrd!               |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  7. Hello, COM(Jython) World!

    Posted on 1月 20th, 2013 by cx20

    COM(Jython)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    Jython 自身には、COM を呼び出す機能を持っていないが、別途ライブラリを経由することで呼び出すことが可能である。
    以下は Jython より JACOB(JAVA-COM Bridge) ライブラリを使用した COM クライアントの例となっている。

    ソースコード

    Hello.py
    raw download
    from com.jacob.com import Variant
from com.jacob.activeX import ActiveXComponent
 
shell = ActiveXComponent("Shell.Application")
hwnd = Variant(0)
title = Variant("Hello, COM(JACOB) World!")
option = Variant(0)
rootFolder = Variant(36)
params = [ hwnd, title, option, rootFolder ]
folder = shell.invoke( "BrowseForFolder", params )

    実行方法

    C:¥> SET CLASSPATH=jacob.jar;.;%CLASSPATH%
C:¥> jython Hello.py

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(JACOB) Wolrd!               |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  8. Hello, COM(JRuby) World!

    Posted on 1月 19th, 2013 by cx20

    COM(JRuby)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    JRuby 自身には、COM を呼び出す機能を持っていないが、別途ライブラリを経由することで呼び出すことが可能である。
    以下は JRuby より JACOB(JAVA-COM Bridge) ライブラリを使用した COM クライアントの例となっている。

    ソースコード

    Hello.rb
    raw download
    require 'java'
require 'jacob.jar'
 
import 'com.jacob.com.Variant'
import 'com.jacob.activeX.ActiveXComponent'
 
@shell = ActiveXComponent.new("Shell.Application")
@hwnd = Variant.new(0)
@title = Variant.new("Hello, COM(JACOB) World!")
@option = Variant.new(0)
@rootFolder = Variant.new(36)
@params = [ @hwnd, @title, @option, @rootFolder ]
@folder = @shell.invoke( "BrowseForFolder", @params )

    実行方法

    C:¥> jruby Hello.rb

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(JACOB) Wolrd!               |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  9. Hello, COM(Scala) World!

    Posted on 1月 18th, 2013 by cx20

    COM(Scala)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    Scala 自身には、COM を呼び出す機能を持っていないが、別途ライブラリを経由することで呼び出すことが可能である。
    以下は Scala より JACOB(JAVA-COM Bridge) ライブラリを使用した COM クライアントの例となっている。

    ソースコード

    Hello.scala
    raw download
    import com.jacob.com.Variant
import com.jacob.activeX.ActiveXComponent
 
object Hello {
    def main (args: Array[String]) {
        var shell = new ActiveXComponent("Shell.Application")
        var hwnd = new Variant(0)
        var title = new Variant("Hello, COM(JACOB) World!")
        var option = new Variant(0)
        var rootFolder = new Variant(36)
        var params = Array( hwnd, title, option, rootFolder )
        var folder = shell.invoke( "BrowseForFolder", params )
    }
}

    実行方法

    C:¥> scala -cp jacob.jar;. Hello.scala

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(JACOB) Wolrd!               |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+

  10. Hello, COM(Groovy) World!

    Posted on 1月 17th, 2013 by cx20

    COM(Groovy)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    Groovy 自身には、COM を呼び出す機能を持っていないが、別途ライブラリを経由することで呼び出すことが可能である。
    以下は Groovy より JACOB(JAVA-COM Bridge) ライブラリを使用した COM クライアントの例となっている。

    ソースコード

    Hello.groovy
    raw download
    import com.jacob.com.Variant
import com.jacob.activeX.ActiveXComponent
 
class Hello {
    static void main (args) {
        def shell = new ActiveXComponent("Shell.Application")
        def hwnd = new Variant(0)
        def title = new Variant("Hello, COM(JACOB) World!")
        def option = new Variant(0)
        def rootFolder = new Variant(36)
        def params = [ hwnd, title, option, rootFolder ] as Variant[]
        def folder = shell.invoke( "BrowseForFolder", params )
    }
}

    実行方法

    C:¥> groovy Hello.groovy

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(JACOB) Wolrd!               |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+
« Older Entries