Curlは外部ライブラリにアクセスすることができます。これによりC言語等で作成されたライブラリをコールし、結果を取得することができます。以下にサンプルをもとにして説明していきます。（ちなみにこのサンプルはWindowsのみで動きます。UNIX用のライブラリであれば、UNIX上でも実行することができます。）

当サンプルは、user32.dllに格納されているMessageBox 関数へのインターフェースを使用します。MessageBox は、単にメッセージ ボックスを表示します。インターフェースは以下のようになっています。

int MessageBox(
  HWND hWnd;
  LPCTSTR lpText;
  LPCTSTR lpCaption;
  UINT uType;
):int

パラメータには以下のような意味があります。
hWnd
メッセージボックスの上位ウィンドウへのハンドル。NULL の場合、このウィンドウにオーナーはありません。

lpText
表示されるテキスト。

lpCaption
ダイアログ ボックスのタイトルに表示されるテキスト。NULL の場合、既定のタイトルとしてエラーが使用されます。

uType
指定されたフラグに応じて、ダイアログ ボックスの内容と動作を変更します。フラグの種類は多数ありますが、この例で紹介しているのは、その一部です。

ライブラリをコールするクラスは、define-dll-classマクロを使って定義します。以下のようにサンプルでは、このコンストラクタ内で、SharedLibraryクラスを用いて対象DLL（user32.dll）をロードしています。construct-superでスーパークラスのコンストラクタを呼び出していますが、このスーパークラスはDLLInterfaceクラスです。 

{define-dll-class public WinMessageBox   {defaults     calling-convention = stdcall,     string-rep = CStringUTF16   }     {constructor public {default}     {construct-super {SharedLibrary “user32”}}   }

次にdll-methodで対象となる関数を定義することとなります。{defaults …} 句により、クラスに含まれた dll-method に直接、いくつかの既定値を設定できるようになります。これらの既定は、このクラスのサブクラスには適用されません。詳細はCurlのAPIリファレンスdefine-dll-classマクロを参照してください。

対象となる関数の定義については、同様の関数名をdll-methodのメソッド名としてセットするか、任意の名前を振り、括弧()で関数名を記載します。このサンプルでは後者の方法で定義しており、関数名はMessageBoxA、Curl内でのメソッドへのアクセスはshow-ascii-messageとなります。

{dll-method public {show-ascii-message (“MessageBoxA”)                        hwin:CPointer = null,                        text:StringInterface (rep = CString),                        title:#StringInterface = null (rep = CString),                        button-code:int = WinMessageBox.button-ok                      }:int } …. 省略 …. let box:WinMessageBox = {WinMessageBox} let result:int =     {box.show-message         “Would you like a cookie?”,          button-code =              {bit-or                  WinMessageBox.button-yes-no,                  WinMessageBox.icon-question              }     }

実行結果 

 

 

コードサンプルのダウンロード

外部DLLコールのコードサンプル