使用ActiveX EXE多线程加载图片的问题

Qxwlm · 发表于 2009-8-29 20:36:56

一、做个图片浏览的软件，按缩略图显示图片。思路如下： 1、因为图片比较多，每次显示20个。例如有500个图片，先显示20个，然后通过滚动条来显示其他的图片。 2、每次向下滚动时，就加载20个图片，然后设置成缩略图的大小，并存放在ImageList。这样向上滚动时，就直接从ImageList加载了。 3、如果图片比较大，第一次向向下滚动时，很慢。想使用ActiveX EXE，把所有的图片按缩略图的大小设置后，存入ImageList中。 二、问题： 使用ActiveX EXE，不能传回ImageList中的图片，以便在主程序中调用。 三、代码： 1、ActiveX EXE的代码： （1）构成： 一个窗体，名称：frmPic，上面有四个控件： PictureBox-----名称：picTp FileListBox----名称：FileTP Image----------名称：imgTp ImageList------名称：imgLstTp Timer----------名称：Timer1 一个类模块，名称：clsInstImg （2）、类模块代码： Option Explicit Private WithEvents frmP As frmPic Public Event clsInstImgOk(img As Object) '图片的缩略图全部加载到ImageList后发生的事件，引用 'ImageList
 Private Sub Class_Terminate()      Unload frmP      Set frmP = Nothing End Sub
 
Private Sub frmP_frmInstOk(img As ImageList)      RaiseEvent clsInstImgOk(img)  End Sub
 
Public Sub InstPicToImg(ByVal strIPath As String)     Set frmP = New frmPic     frmP.Show     frmP.strFrmS = strIPath     frmP.mtmTimeStar End Sub
 （3）、窗体代码：
Option Explicit Dim intTnum As Integer Public Event frmInstOk(img as Object) '图片的缩略图全部加载到ImageList后发生的事件，引用 '窗体frmPic Public strFrmS As String
 
Private Sub frmInstImg()    Dim strP As String    Dim lst As ListItem    Dim sngG As Single    Dim I As Integer          fileTp.Path = strFrmS    For I = 0 To fileTp.ListCount - 1       DoEvents       If Right(fileTp.Path, 1) = "\" Then          strP = fileTp.Path & fileTp.List(I)       Else          strP = fileTp.Path & "\" & fileTp.List(I)       End If       Set lst = lvwTp.FindItem(UCase(strP))       If Not lst Is Nothing Then          GoTo EndTp       End If       On Error GoTo EndTp       Set imgTp.Picture = LoadPicture(strP)       If imgTp.Width >= 600 Or imgTp.Height >= 600 Then          picTp.PaintPicture imgTp.Picture, 0, 0,100,100          '按100×100设置缩略图          imgLstTp.ListImages.Add , UCase(strP), picTp.Image          '把设置好的缩略图加到ImageList中       End If       EndTp:       picTp.Picture = LoadPicture()       Set picTp.Picture = Nothing       imgTp.Picture = LoadPicture()       Set lst = Nothing    Next    RaiseEvent frmInstOk(imgLstTp)
End Sub
 
Public Sub mtmTimeStar()    Timer1.Enabled = True End Sub
 
Private Sub Timer1_Timer()    intTnum = intTnum + 1    If intTnum > 3 Then       Timer1.Enabled = False       frmInstImg    End If End Sub
 
2、主程序： （1）、构成： 一个窗体，名称：Form1 窗体上两个CommandButton，名称分别为：Command1和Command2       一个PictureBox，名称为PicTp （2）、代码： Option Explicit Dim WithEvents clsImg As clsInstImg Private picClsF As PictureBox
 
Private Sub clsImg_clsInstImgOk(img As Object)    Dim I As Integer    Dim J As Integer    J = img.ListImages.Count    For I = 1 To J        picTp.Picture=img.ListImages(I).Picture        '不能得到ImageList中的Picture。        '如果从ActiveX EXE中引用PictureBox，无论        '是PictureBox的Picture属性还是Image属性，        '都不能得到图片。    Next    MsgBox "Ok" End Sub
 
Private Sub Command1_Click()    Dim strPF As String    strPF = "F:\VbProg\Pic"    Set clsImg = CreateObject("YsImg.clsInstImg")    clsImg.InstPicToImg strPF End Sub
Private Sub Form_Unload(Cancel As Integer)    Set clsImg = Nothing End Sub
四、后记：难道使用ActiveX EXE，只能返回String等数据类型 或记录集，而不能返回控件的引用？ 请高手给的答复。谢谢。

[此贴子已经被作者于2009-8-29 20:39:54编辑过]

马大哈 · 发表于 2009-8-30 20:58:36

我的思路是,不要这样直接在两个线程间传递对象,而是传递一些非对象的东西,比如字节数组.
 
你既然已经在A EXE中生成了缩略图,则可以用BitBlt从一个DC绘到另一个DC来.
 
另外,不知道你试过使用GDI+来生成缩略图没?
 
我这里给你贴一个GDI+生成缩略图的代码,经测试,我的机器上生成一个6.03M的BMP的313x271大小的缩略图,耗时0.5秒左右.
 
BMP的大小是1255x17115,是一个网页截图.
 
如果这代码在台式机的7200转硬盘上使用,应该会更快的吧:
 
<div class="msgheader">QUOTE:</div><div class="msgborder">
Option Explicit
Private Type GdiplusStartupInput     GdiplusVersion As Long     DebugEventCallback As Long     SuppressBackgroundThread As Long     SuppressExternalCodecs As Long End Type
Private Enum GpStatus 'Status     Ok = 0     GenericError = 1     InvalidParameter = 2     OutOfMemory = 3     ObjectBusy = 4     InsufficientBuffer = 5     NotImplemented = 6     Win32Error = 7     WrongState = 8     Aborted = 9     FileNotFound = 10     ValueOverflow = 11     AccessDenied = 12     UnknownImageFormat = 13     FontFamilyNotFound = 14     FontStyleNotFound = 15     NotTrueTypeFont = 16     UnsupportedGdiplusVersion = 17     GdiplusNotInitialized = 18     PropertyNotFound = 19     PropertyNotSupported = 20 End Enum
Private Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As GpStatus Private Declare Function GdiplusShutdown Lib "gdiplus" (ByVal token As Long) As GpStatus Private Declare Function GdipDrawImageRect Lib "gdiplus" (ByVal graphics As Long, ByVal Image As Long, ByVal X As Single, ByVal Y As Single, ByVal Width As Single, ByVal Height As Single) As GpStatus Private Declare Function GdipCreateFromHDC Lib "gdiplus" (ByVal hDC As Long, graphics As Long) As GpStatus Private Declare Function GdipDeleteGraphics Lib "gdiplus" (ByVal graphics As Long) As GpStatus Private Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal filename As String, Image As Long) As GpStatus Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal Image As Long) As GpStatus
Dim gdip_Token As Long Dim gdip_Image As Long Dim gdip_Graphics As Long
'———————————— '– 使用者请保留作者版权 '– 作者:BEAR-BEN '– QQ:453628001 '————————————
'————-缩略图函数——— Public Sub ShowTNImg(PBox As Object, ImagePath As String, WidthMax As Long, HeightMax As Long)     If LoadGDIP Then         If GdipCreateFromHDC(PBox.hDC, gdip_Graphics) <> 0 Then             GdiplusShutdown gdip_Token         Else             '载入图片到内存中             GdipLoadImageFromFile StrConv(ImagePath, vbUnicode), gdip_Image                         '使用GDI+直接从内存中缩略并绘图，GDI+有很好的反锯齿能力             If GdipDrawImageRect(gdip_Graphics, gdip_Image, 0, 0, WidthMax, HeightMax) <> Ok Then Debug.Print "显示失败。。。"         End If     End If     DisposeGDIP End Sub
Public Function LoadGDIP() As Boolean     Dim GpInput As GdiplusStartupInput         GpInput.GdiplusVersion = 1     LoadGDIP = Not (GdiplusStartup(gdip_Token, GpInput) <> 0) End Function
Public Sub DisposeGDIP()     GdipDisposeImage gdip_Image     GdipDeleteGraphics gdip_Graphics     GdiplusShutdown gdip_Token End Sub</div>
 
代码出处:
 
<a href="http://www.tcdongli.com/archives/12">http://www.tcdongli.com/archives/12</a>
 
我作了一些改动.原作多处使用了END,并未将错误返回,我认为这不太好.
 
最后祝你好运.

[此贴子已经被作者于2009-8-30 20:59:25编辑过]

Qxwlm · 发表于 2009-8-31 21:44:37

谢谢老马！！
两者结合：
1、在ActiveX EXE和主程序中，不使用VB的LoadPicture，而使用GDI+加载图片，
2、在ActiveX EXE把生成的缩略图，使用BitBlt，从picTp.Hdc，传递到主程序的imgLstTp的DC中(此步仅仅是个想法，还没有动手验证)。
再次谢谢！！

马大哈 · 发表于 2009-9-2 21:36:40

不对不对.......你可以直接将你EXE中的HDC传进去......我之前没仔细看这代码,汗了.
 
注意看那代码中的这一句:
 
GdipCreateFromHDC(PBox.hDC, gdip_Graphics)
 
这里的HDC就可以从EXE中传入A EXE中......我汗- -!

Qxwlm · 发表于 2009-9-10 10:17:32

谢谢老马再次补充。
1、使用GDI+确实很快，并且支持的图片格式很多：*bmp;*.dib;*.rle;*.jpg;*.jpeg;*.jiff;*.jpe;*.tiff;*.tif;*.gif;*.png;*.wmf;*.emf。
     网上的代码中*.wmf;*.emf没有使用GDI+，我发现可以使用，并且有些格式的WMF文件，LoadPicture()不能读取，GDI+还能读取。
2、对于*.ico;*.cur则LoadPicture()。

账号		自动登录	找回密码
密码			加入我们

使用ActiveX EXE多线程加载图片的问题

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章