⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 m1.htm

📁 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程
💻 HTM
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
      
    <tr> 
      <td bgcolor=#000000 height=14> 
        <div align=center class=H1>    <font color="#FFFFFF">COMDCOM对象中通过Variant传递数组</font> </font> </font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=236> 
        <p align="center"> <br>
          <br>
           &nbsp;因为COM/DCOM对象都不在Client程序运行的内存空间(内进程COM对象除外,即便如此,为了统一接口,内进程的COM也不得传递指针),而且在Win32中所有的程序都有自己独立的2GB的内存空间,程序与程序之间传递指针(内存地址)是毫无意义的,而数组、字符串等大量的数据在程序中都是分配一定的内存空间,然后用指针加内存偏移量来存取数据的,这时,如何在COM/DCOM对象中如何传递呢? 
          <br>
           &nbsp;在Win32中引入了一新变量Variant,可以通过Variant传递数组。具体的实现方法,用Delphi实现为: 
          <br>
          <br>
           &nbsp;Server(COM/DCOM程序)端: <br>
           &nbsp;procedure TTestDCOM.Send4(Size: Integer; D1: OleVariant); 
          <br>
           &nbsp;type <br>
             &nbsp; TData=array [0..999] of Byte; <br>
           &nbsp;Var <br>
             &nbsp; Data:TData; <br>
             &nbsp; i:Integer; <br>
           &nbsp;begin <br>
             &nbsp; for i:=0 to Size-1 do begin <br>
                &nbsp;Data[i]:=D1[i]; <br>
             &nbsp; end; <br>
           &nbsp;end; <br>
          <br>
           &nbsp;Cleint端: <br>
          <br>
           &nbsp;Var <br>
             &nbsp;D1:OleVariant; <br>
           &nbsp;begin <br>
             &nbsp;D1:=VarArrayCreate([0,99],varByte); <br>
          <br>
             &nbsp;{ <br>
             &nbsp;D1[1]:=45; <br>
               .... &nbsp;file://将值存入D1中 <br>
          <br>
               &nbsp;} <br>
             &nbsp;S.Send4(99,D1); &nbsp;file://S是TestDCOM对象 
          <br>
           &nbsp;end; <br>
          <br>
          <br>
          <br>
          <br>
          <br>
          <br>
          <br>
          <br>
          作者:高素梅<br>
          <br>
            配置数据引擎(BDE、SQL Link)的简单方法 <br>
          <br>
            在数据库程序分发时,需要携带数据引擎(BDE、SQL Link),并且在客户端安装完程序后还需要配置数据引擎,如用户名(username)、密码(Password)等等。如果手工配置的话,工作量比较大,这时,我们可利用InstallShield 
          For Delphi轻松实现配置。在用InstallShield For Delphi制作安装程序时,在生成安装程序的目录里有一个*.iwz的文本文件,只要在[IDAPI 
          Alias]片段中手工加入即可。 例如: <br>
          <br>
            [IDAPI Alias] <br>
          <br>
            username=SYSDBA <br>
          <br>
            password=masterkey <br>
          <br>
            安装程序后数据引擎自动配置完毕。 <br>
          <br>
            制做快速按钮条的方法 <br>
          <br>
            快速按钮条上的每一个图形按钮都代表着一项常用的功能,同时,这些图形按钮尺寸较普通的图标大,可以放置更大、更形象的图形,甚至可以带上简短的提示,这对于用户执行最常用的功能很有帮助。基于上述原因,越来越多的Windows应用程序采用快速按钮条来改善应用程序的界面。笔者在用Delphi编程时,采用了两种不同的方法来实现快速按钮条,本文结合制作一个具有两组、共六个按钮的快速按钮条的实例,列出了这两种方法的具体设计步骤。 
          <br>
          <br>
            1.组合生成法 <br>
          <br>
            (1)在窗体上放置一个Panel1对象,作为图形按钮的载体。 <br>
          </font> <br>
           </p>
        </td>
    </tr>
  
  </table>
  <font size="-1"> </font></div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -