用DELPHI開發AUTHORWARE的u32

2019-11-18 18:03:30

字體：大中小

來源：轉載

供稿：網友

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

創建工程文件

創建函數

創建資源文件

編譯資源文件

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

interface
   uses ,Dialogs,SysUtils,windows;
function MsgBox(msg:string;mbType:
Word;title:string):WORD;export;
Delphi32 需要添加{$ifdef WIN32} stdcall ;
($endif} 在函數聲明后面如：
function MsgBox(msg:string;mbType:
Word;title:string):WORD;export;
{$ifdef WIN32} stdcall ; {$endif}
現在我們為函數加入代碼在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.創建資源文件

　　最后我們要做的事情是創建資源文件，這樣authorware才能直接調用函數。必須先創建.rc文件然后編譯成.res文件。使用記事本創建.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
　　如果一個 dll文件是按authorware調用轉換格式編寫,則存儲于其中的所有自定義函數的目錄也包含在該文件中,并且authorware在調用這些函數時所需的信息也包含在內,其目錄稱為目錄源,而且目錄源中的每一個函數有相應的定義,這些定義稱為定義源。具體格式如下：

　　1. 目錄源

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

　　對于目錄源中每一函數都要有一個相應的定義格式，具體格式如下所示：

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

上一篇：在delphi7中利用mscomm控件編程

下一篇：在Delphi里播放Flash

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注