7,763
社区成员
发帖
与我相关
我的任务
分享关于Byte转化成Jpg图像的问题（急！！！）
亲看下面代码：
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控件来显示出来 请问怎么写！！
谢谢请指教！
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控件来显示出来 请问怎么写！！
谢谢请指教！
...全文
请发表友善的回复…
发表回复
hn123 2004-09-01
- 打赏
- 举报
http://www.showyou.net/mycode/CodeView/CodeView_2163.html
非常好用
项目：JPEG图片压缩程序(1/5)
作者：zyl910
E-Mail:zyl910@sina.com
非常好用
项目：JPEG图片压缩程序(1/5)
作者：zyl910
E-Mail:zyl910@sina.com
Geo_Cra 2004-08-03
- 打赏
- 举报
难就一个字，参阅：
http://www.aivisoft.net/Zyl910/SaveJPEG2.rar
http://www.aivisoft.net/Zyl910/SaveJPEG2.rar
kisaboy 2004-08-03
- 打赏
- 举报
我就是不要生成文件然后用loadpicture来调用呀 要直接用image显示哦
nan3210 2004-08-03
- 打赏
- 举报
put #1, ,picData
kisaboy 2004-08-03
- 打赏
- 举报
啊呀 困难啊 哪位来挑战高难度啊！
落伍者 2004-08-03
- 打赏
- 举报
今天努力了一把，主要是在csdn上检索+msdn，终于实现了，把图象以二进制形式读出并
显示在picturebox上，楼主可以给个邮箱，参考一下。
显示在picturebox上，楼主可以给个邮箱，参考一下。
ttyp 2004-08-03
- 打赏
- 举报
http://jinesc.6600.org/bbs/update/2004-8/{7B966001-0C8C-4616-A848-D4BF4D124C08}/pictarray.rar
下载吧，StdPicture和Byte()互相转换
下载吧，StdPicture和Byte()互相转换
kisaboy 2004-08-03
- 打赏
- 举报
可是我只能取到Btye类型的图片数据呀 取不到具体的文件的
Mister 2004-08-03
- 打赏
- 举报
楼主用 Byte 数组保存似乎搞麻烦了，可以考虑使用 StdPicture 类的对象保存图片。
代码很简单，如下：
Dim mPic As New StdPicture
Private Sub Form_Load()
Set mPic=LoadPicture("C:\图片.jpg")
Set Image1.Picture=mPic
End Sub
代码很简单，如下：
Dim mPic As New StdPicture
Private Sub Form_Load()
Set mPic=LoadPicture("C:\图片.jpg")
Set Image1.Picture=mPic
End Sub
northwolves 2004-08-02
- 打赏
- 举报
记得 jpg图象每一个象素是24 位的，难度大。
