lc_bcb_105.txt

c++ builder 的一些txt文档

　　            表10.2    Loadlibrary返回错误代码的意义 
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 
    错误代码　　　　　　　　　意　　　　　　　　义 
-------------------------------------- 
　　　  0        系统内存不够，可执行文件被破坏或调用非法 
　　　  2        文件没有被发现 
　　　  3        路径没有被发现 
　　　  5        企图动态链接一个任务或者有一个共享或网络保护错 
　　　  6        库需要为每个任务建立分离的数据段 
　　 　 8        没有足够的内存启动应用程序 
　　   10         Windows版本不正确 
　　　 11        可执行文件非法。或者不是Windows应用程序，或者在.EXE映 
　　   　　              像中有错误 
　　　 12        应用程序为一个不同的操作系统设计(如OS/2程序) 
       13        应用程序为MS DOS4.0设计 
　　　 14        可执行文件的类型不知道 
　　　 15        试图装载一个实模式应用程序(为早期Windows版本设计) 
       16        试图装载包含可写的多个数据段的可执行文件的第二个实例 
　　　 19        试图装载一个压缩的可执行文件。文件必须被解压后才能被装裁 
　　　 20        动态链接库文件非法 
　　　 21        应用程序需要32位扩展 
  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━   
 
　　假如在应用程序用Loadlibrary调用某一模块前，其它应用程序已把该模块装入内存，则Loadlibrary并不会装载该模块的另一实例，而是使该模块的"引用计数"加1。 
 
　　2.GetProcAddress：捡取给定模块中函数的地址 
　　语法为： 
 
　　function GetProcAddress(Module: THandle; ProcName: PChar): TFarProc; 
 
    Module包含被调用的函数库模块的句柄，这个值由Loadlibrary返回。如果把Module设置为nil，则表示要引用当前模块。 
　　ProcName是指向含有函数名的以nil结尾的字符串的指针，或者也可以是函数的次序值。如果ProcName参数是次序值，则如果该次序值的函数在模块中并不存在时，GetProcAddress仍返回一个非nil的值。这将引起混乱。因此大部分情况下用函数名是一种更好的选择。如果用函数名，则
 
函数名的拼写必须与动态链接库文件EXPORTS节中的对应拼写相一致。 
　　如果GetProcAddress执行成功，则返回模块中函数入口处的地址，否则返回nil。 
    
    3.Freelibrary：从内存中移出库模块 
　　语法为： 
 
　　procedure Freelibrary(Module : THandle); 
 
    Module为库模块的句柄。这个值由Loadlibrary返回。 
　　由于库模块在内存中只装载一次，因而调用Freelibrary首先使库模块的引用计数减一。如果引用计数减为0，则卸出该模块。 
　　每调用一次Loadlibrary就应调用一次FreeLibray，以保证不会有多余的库模块在应用程序结束后仍留在内存中。 
 
10.2.4.2 动态调用举例 
 
　　对于动态调用，我们举了如下的一个简单例子。系统一共包含两个编辑框。在第一个编辑框中输入一个字符串，而后在第二个编辑框中输入字符。如果该字符包含在第一个编辑框的字符串中，则标签框显示信息："位于第n位。"，否则显示信息："不包含这个字符。"。如图是程序的运 
行界面。 
 
            
 
                        图10.1  DLL动态调用实例运行界面 
 
　　输入检查功能的实现在Edit2的OnKeyPress事件处理过程中，程序清单如下。 
 
        procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); 
        var 
          order: Integer; 
          txt: PChar; 
          PFunc: TFarProc; 
          Moudle: THandle; 
        begin 
          Moudle := Loadlibrary('c:\dlls\example.dll'); 
          if Moudle > 32 then 
          begin 
            Edit2.text := ''; 
            Pfunc := GetProcAddress(Moudle,'Instr'); 
            txt := StrAlloc(80); 
            txt := StrPCopy(txt,Edit1.text); 
            Order := TInstr(PFunc)(txt,Key); 
            if Order = -1 then 
              Label1.Caption := '不包含这个字符 ' 
            else 
               Label1.Caption := '位于第'+IntToStr(Order+1)+'位'; 
          end; 
          Freelibrary(Moudle); 
        end; 
 
　　在利用GetProcAddess返回的函数指针时，必须进行强制类型转换： 
 
        Order := TInstr(PFunc)(text,Key); 
 
　　TInStr是一个定义好了的函数类型： 
 
        type 
          TInStr = function(Source: PChar;Check: Char): Integer; 
 
10.3  利用DLLs实现数据传输 
 
10.3.1 DLLs中的全局内存 
 
　　Windows规定：DLLs并不拥有它打开的任何文件或它分配的任何全局内存块。这些对象由直接或间接调用DLLs的应用程序拥有。这样，当应用程序中止时，它拥有的打开的文件自动关闭，它拥有的全局内存块自动释放。这就意味着保存在DLLs全局变量中的文件和全局内存块变量在DLLs 
没有被通知的情况下就变为非法。这将给其它使用该DLLs的应用程序造成困难。 
　　为了避免出现这种情况，文件和全局内存块句柄不应作为DLLs的全局变量，而是作为DLLs中过程或函数的参数传递给DLLs使用。调用DLLs的应用程序应该负责对它们的维护。 
　　但在特定情况下，DLLs也可以拥有自己的全局内存块。这些内存块必须用gmem_DDEShare属性进行分配。这样的内存块直到被DLLs显示释放或DLLs退出时都保持有效。 
　　由DLLs管理的全局内存块是应用程序间进行数据传输的又一途径，下面我们将专门讨论这一问题。 
 
10.3.2 利用DLLs实现应用程序间的数据传输 
 
　　利用DLLs实现应用程序间的数据传输的步骤为： 
　　1. 编写一个DLLs程序，其中拥有一个用gmem_DDEShare属性分配的全局内存块； 
　　2. 服务器程序调用DLLs，向全局内存块写入数据； 
　　3. 客户程序调用DLLs，从全局内存块读取数据。 
 
10.3.2.1        用于实现数据传输的DLLs的编写 
 
　　用于实现数据传输的DLLs与一般DLLs的编写基本相同，其中特别的地方是： 
　　1. 定义一个全局变量句柄： 
 
        var 
          hMem: THandle; 
 
　　2. 定义一个过程，返回该全局变量的句柄。该过程要包含在exports子句中。如： 
 
        function GetGlobalMem: THandle; export; 
        begin 
          Result := hMem; 
        end; 
         
　　3. 在初始化代码中分配全局内存块： 
         
        程序清单如下： 
 
        begin 
          hMem := GlobalAlloc(gmem_MOVEABLE and gmem_DDEShare,num); 
          if hMem = 0 then 
             MessageDlg('Could not allocate memory',mtWarning,[mbOK],0); 
        end. 
 
　　num是一个预定义的常数。 
    Windows API函数GlobalAlloc用于从全局内存堆中分配一块内存，并返回该内存块的句柄。该函数包括两个参数，第一个参数用于设置内存块的分配标志。可以使用的分配标志如下表所示。 
                        表10.3  全局内存块的分配标志 
  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 
                标      志                              意      义 
  --------------------------------- 
        gmem_DDEShare           分配可由应用程序共享的内存 
        gmem_Discardable                分配可抛弃的内存(只与gmem_Moveable连用) 
        gmem_Fixed                      分配固定内存 
        gmem_Moveable           分配可移动的内存 
        gmem_Nocompact          该全局堆中的内存不能被压缩或抛弃 
        gmem_Nodiscard          该全局堆中的内存不能被抛弃 
        gmem_NOT_Banked 分配不能被分段的内存 
        gmem_Notify                     通知功能。当该内存被抛弃时调用GlobalNotify函数 
        gmem_Zeroinit           将所分配内存块的内容初始化为零 
  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 
 
　　有两个预定义的常用组合是： 
 
    GHND  =  gmem_Moveable and gmem_Zeroinit 
    GPTK  =  gmem_Fixed and gmem_Zeroinit 
 
　　第二个参数用于设置欲分配的字节数。分配的字节数必须是32的倍数，因而实际分配的字节数可能比所设置的要大。 
　　由于用gmem_DDEShare分配的内存在分配内存的模块终止时自动抛弃，因而不必调用GlobalFree显式释放内存。 
 
10.3.2.2        服务器程序的编写 
 
　　服务器程序必须包含对DLL的调用代码，如： 
 
        function GetGlobalMem: THandle; far; external 'c:\dlls\glbmem'; 
 
　　通过调用该函数，服务器可以获得全局内存块的句柄。 
　　在写入数据前，服务器必须锁定全局内存，以避免在写入过程中Windows移动该内存块的位置。 
　　函数GlobalLock锁定全局内存并返回指向该内存块的指针： 
 
        pMem := GlobalLock(hMem); 
 
　　对pMem的任何修改都会反映到全局内存块中。 
　　对内存块进行操作后，调用GlobalUnLock进行解锁。内存块操作之后尽早解锁，有利于Windows充分利用内存资源。 
　　服务器写入数据的实现代码如下。 
 
        var 
          hMem: THandle; 
          pMem: PChar; 
        begin 
          hMem := GetGlobalMem;             {获得全局内存块的句柄} 
          if hMem <> 0 then 
          begin 
            pMem := GlobalLock(hMem);    {加锁全局内存块} 
            if pMem <> nil then 
            begin 
              StrPCopy(pMem,Memo1.text);  {向全局内存块写入数据} 
              GlobalUnlock(hMem);         {解锁全局内存块}  
            end 
            else 
              MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0); 
          end; 
 
10.3.2.3        客户程序的编写 
 
　　客户程序几乎是服务器程序的翻版。唯一的区别在于一个是写入数据，一个是下载数据。 
        下面是客户从全局内存块下载数据的程序清单。 
 
        var 
          hMem: THandle; 
          pMem: PChar; 
        begin 
          hMem := GetGlobalMem;          {获得全局内存块的句柄} 
          if hMem <> 0 then 
          begin 
            pMem := GlobalLock(hMem);    {加锁全局内存块} 
            if pMem <> nil then 
            begin 
              Memo1.text := StrPas(pMem);  {从全局内存块读取数据} 
              GlobalUnlock(hMem);         {解锁全局内存块} 
            end 
            else 
              MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0); 
          end; 
         
　　服务器程序和客户程序同时运行后的屏幕显示如下图所示。 
  
 
                        图10.2  利用DLLs实现数据传输的屏幕显示 
 
10.4  利用DLLs实现窗体重用 
 
　　实现窗体重用是Delphi DLLs功能中一个引人注目的特色。当你创建了一个令自己满意的通用窗体并希望能在不同应用程序中使用，特别是希望能在非Delphi 应用程序中使用时，把窗体做进一个动态链接库中是最适当的。这样即使用其它工具开发的应用程序，如C++、Visual  
Basic等，也都可以去调用它。 
　　包含窗体的DLLs有100K左右的部件库(Component Library)开销。可以通过把几个窗体编译成一个DLLs来最小化这笔开销。DLl中的不同窗体可以共享部件库。 
 
10.4.1 利用DLLs实现窗体重用的一般步骤 
 
　　利用DLLs实现窗体重用的步骤是： 
　　1.在集成开发环境(IDE)中，按自己的需要设计一个窗体； 
　　2.编写一个用于输出的函数或过程。在该函数或过程中，设计的窗体被实例化； 
　　3.重复步骤1、2，直到完成所有重用窗体的设计； 
　　4.打开工程文件，进行修改，以适应生成 .dll文件的需要： 
　　(1).把保留字program设为library； 
　　(2).从uses子句中去掉Forms单元； 
　　(3).移去begin,end之间的所有代码； 
　　(4).在uses子句下，begin…end块之前，添加保留字exprots。exports 后是输出函数名或过程名。 
　　5.编译生成DLLs文件； 
　　6.在其它应用程序中调用重用窗体。 
　　重用窗体的调用同一般DLLs函数或过程的调用完全一致，不再赘述。读者可参看下面的例子。