关于Byte转化成Jpg图像的问题（急！！！）

Question

亲看下面代码：
    Dim PicData() As Byte
    Dim i As Long
    Private Sub Command1_Click()
       Open App.Path & "\Test.jpg" For Binary As #1
          i = LOF(1)
          ReDim PicData(i)
          Get #1, , PicData
       Close #1
然后将picdata数组的数据直接让Imang控件来显示出来 请问怎么写！！
谢谢请指教！

Answer 1

记得 jpg图象每一个象素是24 位的，难度大。

Answer 2

我就是不要生成文件然后用loadpicture来调用呀 要直接用image显示哦

Answer 3

难就一个字，参阅：
http://www.aivisoft.net/Zyl910/SaveJPEG2.rar

Answer 4

楼主用 Byte 数组保存似乎搞麻烦了，可以考虑使用 StdPicture 类的对象保存图片。代码很简单，如下：Dim mPic As New StdPicturePrivate Sub Form_Load()
    Set mPic=LoadPicture("C:\图片.jpg")
    Set Image1.Picture=mPic
End Sub

Answer 5

可是我只能取到Btye类型的图片数据呀 取不到具体的文件的

Answer 6

http://jinesc.6600.org/bbs/update/2004-8/{7B966001-0C8C-4616-A848-D4BF4D124C08}/pictarray.rar下载吧，StdPicture和Byte()互相转换

Answer 7

今天努力了一把，主要是在csdn上检索+msdn，终于实现了，把图象以二进制形式读出并
显示在picturebox上，楼主可以给个邮箱，参考一下。

Answer 8

http://www.showyou.net/mycode/CodeView/CodeView_2163.html
非常好用项目：JPEG图片压缩程序(1/5)
作者：zyl910
E-Mail:[email protected]