用DELPHI開發(fā)AUTHORWARE的u32

2019-11-18 18:03:30

字體：大中小

供稿：網(wǎng)友

用DELPHI開發(fā)AUTHORWARE的u32
　　函數(shù)功能是AUTHORWARE最突出的特征，利用AUTHORWARE提供的系統(tǒng)函數(shù)能夠完成一些復(fù)雜的控制任務(wù)。對于一些特殊的任務(wù)，AUTHORWARE允許用戶自己定義函數(shù)，使得程序設(shè)計(jì)具有更大的靈活性。對于windows系統(tǒng)來說，自定義函數(shù)是以動態(tài)鏈接庫（DLL）文件存儲的，因此存儲自定義函數(shù)的文件與當(dāng)前交互式應(yīng)用程序文件是分立。本文介紹一下如何用DELPHI開發(fā)AUTHORWARE的自定義函數(shù)—32 bit U32，本文以DELPHI開發(fā)可在AUTHORWARE中調(diào)用顯示message box的U32為例子。雖然AUTHORWARE ATTAIN 5.0已提供了使用knowledge objects 顯示message box的功能，但在4.0以前的版本無此功能，這就可用其它語言開發(fā)自己的U32，在AUTHORWARE中調(diào)用。
　　開發(fā)U32可分為五個(gè)步驟：

創(chuàng)建工程文件

創(chuàng)建函數(shù)

創(chuàng)建資源文件

編譯資源文件

創(chuàng)建u32
　　1.創(chuàng)建工程文件
　　在file/new選擇dll生成一個(gè)dll文件，在file/add to exports MsgBox;
begin
end.
　　2.創(chuàng)建函數(shù)
　　當(dāng)你創(chuàng)建一個(gè)函數(shù)可用在authorware中，必須聲明為exported 函數(shù)在關(guān)鍵字interface 后面加入代碼如下：

interface
   uses ,Dialogs,SysUtils,windows;
function MsgBox(msg:string;mbType:
Word;title:string):WORD;export;
Delphi32 需要添加{$ifdef WIN32} stdcall ;
($endif} 在函數(shù)聲明后面如：
function MsgBox(msg:string;mbType:
Word;title:string):WORD;export;
{$ifdef WIN32} stdcall ; {$endif}
現(xiàn)在我們?yōu)楹瘮?shù)加入代碼在implementation后面：
     const
    OKOnly=0;
    OKCancel=1;
    AbortRetryIgnore=2;
    YesNoCancel=3;
    YesNo=4;
    RetryCancel=5;
    Critical=16;
    Question=32;
    Excalamation=48;
    Information=64;
    DefaultButton1=0;
    DefaultButton2=256;
    DefaultButton3=512;
    applicationModal=0;
    SystemModal=4096;
function StrToPch(Str:string):PChar;
    var a:PChar;
    begin
      a:=StrAlloc(Length(Str)+1);
      StrPCopy(a,Str);
      StrToPch:=a;
    end;
function MsgBox(msg:string;mbType:
Word;title:string):WORD;
VAR
  LpText,lpCaption:Pchar;
  h:HWND;
  begin
  lpText:=StrToPch(title);
   lpCaption:=StrToPch(msg);
    h:=GetActiveWindow();
    MsgBox:=MessageBox(h,lpText,lpCaption,mbType);
  end;
　　3.創(chuàng)建資源文件

　　最后我們要做的事情是創(chuàng)建資源文件，這樣authorware才能直接調(diào)用函數(shù)。必須先創(chuàng)建.rc文件然后編譯成.res文件。使用記事本創(chuàng)建.rc的資源文件。加入如下定義：我將在后面解釋這些定義：

1 DLL_HEADER PRELOAD DISCARDABLE
BEGIN
     "MsgBox/0",
     "/0"
END
msgbox DLL_HEADER PRELOAD DISCARDABLE
BEGIN
     "/0",
     "W/0",
     "SWS/0",
     "Result := MsgBox(msg,mbType,title)/r/n",
     "/r/n",
     "show messagebox/0",
END
　　如果一個(gè) dll文件是按authorware調(diào)用轉(zhuǎn)換格式編寫,則存儲于其中的所有自定義函數(shù)的目錄也包含在該文件中,并且authorware在調(diào)用這些函數(shù)時(shí)所需的信息也包含在內(nèi),其目錄稱為目錄源,而且目錄源中的每一個(gè)函數(shù)有相應(yīng)的定義,這些定義稱為定義源。具體格式如下：

　　1. 目錄源

   目錄源的格式如下所示：
   | DLL_HEADER PRELOAD DISCARDABLE
BEGIN
“functionname [=exportname]/0”,
“functionname [=exportname]/0”,
….
“functionname [=exportname]/0”,
“/0”
END
① | 是目錄源標(biāo)識符；
② DLL_HEADER 是用于創(chuàng)建描述性文字的起始標(biāo)記；
③ BEGIN 表示該目錄源文件的開始，
而END則表示該目錄源的結(jié)尾。
　　2．自定義函數(shù)的定義格式

　　對于目錄源中每一函數(shù)都要有一個(gè)相應(yīng)的定義格式，具體格式如下所示：

  functionname DLL_HEADER PRELOAD DISCARDABLE
BEGIN
  “dllfilename/0”
  “returnvalue/0”
  “argumentlist/0”
  “descr