有这方面经验的朋友请给个思路

yodong

有这方面的经验的朋友请给个思路?

我现在正在做一个管理各种文档的ADP,所有的文档是存放在SQLSERVER2000的表中的,用image数据类型,现在想实现一个这样的功能:在窗口中预览常用的文件(.jpg,.doc,.xls,ppt,cad),我不想给用户下载到本地再打开,因为不给一般的用户复制到文件.不知有没有这方面的控件.还有一个问题就是从SQL的表中读取大一点的二进制文件时很慢(用ADO的),不知哪位朋友有更好的方法.

阿罗

还是用.net来做把。现成的例子都有，IBuySpy portal，到http://asp.net或者微软中国找找。里面专门有个模块就是文档管理的，可以签入和签出（可能）。用Access来做就比较难找例子了。自己从零开始又太累。该学点新东西啦！(呵呵，.net1.1还没学透，whidbey又来了，那个赶得累呀~~)

zhuyiwen

与阿罗有同感. 建议使用WSS或者SharePoint，它管理文档非常好，本站ocean版主是此道高手。

yodong

我原想是用asp.net来做的,不过遇到很多困难,我安装IIS后,用127.0.0.1可以打开默认的开始页, 用//localhost却不行,在wss中,新建asp.net项目,总是报错

HG

從我優化SQLSERVER的性能經驗上來看,把文件放到SQLSERVER中,客戶端性能絕對不會太好.

成熟的作法,只在SQLSERVER中保存此文件的路徑,然後通過相對路徑來打開文件.

如果是OFFICE系列的文件,只要根據擴展名來調用OFFICE控件,或讓用戶有選擇性的打開就可以啦.

最好是用雙線程來控制,一線程來處理常用數據,一線程來後台處理文件.根據情況:來決定用多進程,還是多線程.

對於ACCESS(VBA)來說,新的VBA已支持多線程,可以考慮在當前ACCESS進程下運行多個線程來並發處理或背後處理某些數據來解決性能問題.

[此贴子已经被作者于2005-1-28 16:22:37编辑过]

yodong

这样做的安全性不好吧,HG版主,在ACCESS中能实现双进程吗?

HG

VB中实现多线程只能用ActiveX EXE。

不要用CreateThread和AddressOf，除非你开的线程中不访问

Form和TextBox及其他任何控件，否则程序必Crash无疑。这跟

VB的机制有关，VB中的任何控件包括Form等都是基于COM的，

任何线程要访问COM Object，都必须先用CoInitialize初始化，

然后才能进入包含COM Object的Apartment中对COM Oject的属

性和方法进行访问。当然你也可以在你的线程中把CoInitialize

写进去，它是一个api，在ole32.dll中，但接下来你怎么办？你

还需要对interface中方法marshal出来才能用，除非你对COM的机

理很熟，否则这些工作对你来说负担太重了，也违背了VB这种开发

工具的本意。VB7据说可以用new thread来产生一个新线程，我想它

无非是把上面这部分工作给hide起来了，原理上应该不会有太多的

出入。

ActiveX EXE能实现多线程，是因为它的property中有个Thread Model

设置，你可以把它设为thread per object，这项设置意味着你可以在

工程中CreateObject或new一个基于新线程的对象。如果你的新线程中

含有GUI或msgbox等东西，可能还需要一些特别的技巧和设置，当然也

是能做的。

外面有很多关于VB的站点上提供了VB中实现多线程的SourceCode，都

用的是CreateThread，我以前也是这么做的，现在我发现我错了，而且

他们也都错了，我敢肯定。  

VB中实现多线程Thread的正确可靠的做法是安装sp3和最新的VBA SDK，

最新版的VBA支持multi thread。ActiveX EXE是在自己的进程空间里运行的。

HG

问题背景：

有时候我们做程序时有这样的需求：有一个需要运行时间很长的循环，那么程序只有等待循环运行结束后才执行别的程序代码，这样机器一直处于循环之中，而不能响应别的事情，对CPU资源来说是一种浪费，那么可不可以既让循环执行，又可以执行程序另外的一部分代码呢？答案是可以的，那就要用到多线程了。

相关知识：

进程：是指程序在一个数据集合上运行的过程，是操作系统进行资源分配和调度运行的一个独立单位，简单来说进程就是程序的一次执行。

进程的两个基本属性：1.进程是一个可拥有资源的独立单位；2. 进程同时又是一个可以独立调度和分配的基本单位。

操作系统中引入进程的目的是为了使多个程序并发执行，以改善资源利用率及提高系统的吞吐量。

线程：线是进程中的一个实体，是被系统独立调度和分配的基本单位。线程自己基本上不拥有系统资源，只拥有一些在运行中必不可少的资源，但它可与同属一个进程的其他线程共享进程所拥有的全部资源。同一个进程中的多个线程之间可以并发执行。

问题实现：

VB可不可以创建多线程呢？答案：VB本身不可以，但用API函数VB可以实现。

在VB中创建线程用到以下几个API函数：

'创建线程API

'此API经过改造，lpThreadAttributes改为Any型，lpStartAddress改为传值引用：

'因为函数入口地址是由形参变量传递，如果用传址那将传递形参变量的地址而不是函数的入口地址

' 参数dwStackSize为应用程序堆栈大小，lpStartAddress为函数入口地址

Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, LpthreadId As Long) As Long

'终止线程API

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

'激活线程API,参数hThread为CreateThread创建的线程句柄

Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long

'挂起线程API

Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long



了解完上面的API函数后请看下面的实例：

实例效果：此实例实现三个图片框的背景色一起变色。

实例的窗体布局见图：





程序的工程窗口：

HG

源代码如下：

窗体中的代码：

Option Explicit



'开始

Private Sub Command1_Click()  

   On Error Resume Next   

   With myThreadleft

        .Initialize AddressOf Fillleft            '传递过程地址给线程

        .ThreadEnabled = True

   End With

   With myThreadright

        .Initialize AddressOf Fillright

        .ThreadEnabled = True

   End With

   With myThreadbottom

        .Initialize AddressOf Fillbottom

        .ThreadEnabled = True

   End With



   MsgBox "多线程正在运行...，看看图片框控件的变色效果！", 64, "信息"

   '终止线程运行

   Set myThreadleft = Nothing

   Set myThreadright = Nothing

   Set myThreadbottom = Nothing

End Sub

'结束

Private Sub Command2_Click()

   Unload Me

End Sub

HG

模块中的代码：Option Explicit '时间计数APIPrivate Declare Function GetTickCount Lib "kernel32" () As Long '声明cls_thread类的对象变量Public myThreadleft As New cls_thread, myThreadright As New cls_thread, myThreadbottom As New cls_thread  Sub Main()   Load Form1   Form1.ShowEnd SubPublic Sub Fillleft()       Static Bkgcolor As Long       Dim LongTick As Long, Longcounter As Long       On Error Resume Next       For Longcounter = 0 To 3000           DoEvents           Bkgcolor = Longcounter Mod 256           Form1.Picture1.BackColor = RGB(Bkgcolor, 0, 0)           LongTick = GetTickCount           While GetTickCount - LongTick < 10             '延时10毫秒,下同           Wend       Next       Set myThreadleft = Nothing  '如果循环结束则终止当前线程运行，下同End SubPublic Sub Fillright()       Static Bkgcolor As Long       Dim LongTickValue As Long, Longcounter As Long       On Error Resume Next       For Longcounter = 0 To 3000           DoEvents           Bkgcolor = Longcounter Mod 256           Form1.Picture2.BackColor = RGB(0, Bkgcolor, 0)           LongTickValue = GetTickCount           While GetTickCount - LongTickValue < 10           Wend       NextSet myThreadright = NothingEnd SubPublic Sub Fillbottom()       Static Bkgcolor As Long       Dim LongTick As Long, Longcounter As Long       On Error Resume Next       For Longcounter = 0 To 3000           DoEvents           Bkgcolor = Longcounter Mod 256           Form1.Picture3.BackColor = RGB(0, 0, Bkgcolor)           LongTick = GetTickCount           While GetTickCount - LongTick < 10           Wend       Next       Set myThreadright = NothingEnd Sub