通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度

最新推荐文章于 2020-05-25 14:18:41 发布
最新推荐文章于 2020-05-25 14:18:41 发布
阅读量6.2k 收藏
点赞数
分类专栏： ASP / .NET WEB 开发 文章标签： url border string ext
基本原理使用adodb.stream读二进制文件然后进行解析，然后返回一数组
第一个元素为类型(bmp jpg png gif swf)
第二个元素为宽度{width}
第三个元素为高度{height}
第四个元素为width={width},height={height}式字符串
  1. <%
  2. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. '上传图片或显示SWF的时候都希望得到它的高度和宽度   
  4. '----------------------------------------------
  5. '基本原理使用Adodb.Stream读二进制文件然后进行解析，然后返回一数组   
  6. '第一个元素为类型(BMP   JPG   PNG   GIF   SWF)   
  7. '第二个元素为宽度{width}   
  8. '第三个元素为高度{height}   
  9. '第四个元素为width={width},height={height}式字符串   
  10. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  11. Class qswhImg 
  12. dim aso 
  13. Private Sub Class_Initialize 
  14. set aso=CreateObject("Adodb.Stream") 
  15. aso.Mode=3   
  16. aso.Type=1   
  17. aso.Open   
  18. End Sub 
  19. Private Sub Class_Terminate 
  20. set aso=nothing 
  21. End Sub 
  23. Private Function Bin2Str(Bin) 
  24. Dim I, Str 
  25. For I=1 to LenB(Bin) 
  26.     clow=MidB(Bin,I,1) 
  27.     if ASCB(clow)<128 then 
  28.     Str = Str & Chr(ASCB(clow)) 
  29.     else 
  30.     I=I+1 
  31.     if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow)) 
  32.     end if 
  33. Next   
  34. Bin2Str = Str 
  35. End Function 
  37. Private Function Num2Str(num,base,lens) 
  38. dim ret 
  39. ret = "" 
  40. while(num>=base) 
  41.     ret = (num mod base) & ret 
  42.     num = (num - num mod base)/base 
  43. wend 
  44. Num2Str = right(string(lens,"0") & num & ret,lens) 
  45. End Function 
  47. Private Function Str2Num(str,base) 
  48. dim ret 
  49. ret = 0 
  50. for i=1 to len(str) 
  51.     ret = ret *base + cint(mid(str,i,1)) 
  52. next 
  53. Str2Num=ret 
  54. End Function 
  56. Private Function BinVal(bin) 
  57. dim ret 
  58. ret = 0 
  59. for i = lenb(bin) to 1 step -1 
  60.     ret = ret *256 + ascb(midb(bin,i,1)) 
  61. next 
  62. BinVal=ret 
  63. End Function 
  65. Private Function BinVal2(bin) 
  66. dim ret 
  67. ret = 0 
  68. for i = 1 to lenb(bin) 
  69. ret = ret *256 + ascb(midb(bin,i,1)) 
  70. next 
  71. BinVal2=ret 
  72. End Function 
  74. Function getImageSize(filespec)   
  75. dim ret(3) 
  76. aso.LoadFromFile(filespec) 
  77. bFlag=aso.read(3) 
  78. select case hex(binVal(bFlag)) 
  79. case "4E5089": 
  80.     aso.read(15) 
  81.     ret(0)="PNG" 
  82.     ret(1)=BinVal2(aso.read(2)) 
  83.     aso.read(2) 
  84.     ret(2)=BinVal2(aso.read(2)) 
  85. case "464947": 
  86.     aso.read(3) 
  87.     ret(0)="GIF" 
  88.     ret(1)=BinVal(aso.read(2)) 
  89.     ret(2)=BinVal(aso.read(2)) 
  90. case "535746": 
  91.     aso.read(5) 
  92.     binData=aso.Read(1) 
  93.     sConv=Num2Str(ascb(binData),2 ,8) 
  94.     nBits=Str2Num(left(sConv,5),2) 
  95.     sConv=mid(sConv,6) 
  96.     while(len(sConv)<nBits*4) 
  97.     binData=aso.Read(1) 
  98.     sConv=sConv&Num2Str(ascb(binData),2 ,8) 
  99.     wend 
  100.     ret(0)="SWF" 
  101.     ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20) 
  102.     ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20) 
  103. case "FFD8FF": 
  104.     do   
  105.     do: p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS 
  106.     if p1>191 and p1<196 then exit do else aso.read(binval2(aso.Read(2))-2) 
  107.     do:p1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS 
  108.     loop while true 
  109.     aso.Read(3) 
  110.     ret(0)="JPG" 
  111.     ret(2)=binval2(aso.Read(2)) 
  112.     ret(1)=binval2(aso.Read(2)) 
  113. case else: 
  114.     if left(Bin2Str(bFlag),2)="BM" then 
  115.     aso.Read(15) 
  116.     ret(0)="BMP" 
  117.     ret(1)=binval(aso.Read(4)) 
  118.     ret(2)=binval(aso.Read(4)) 
  119.     else 
  120.     ret(0)="" 
  121.     end if 
  122. end select 
  123. ret(3)="width=""" & ret(1) """ height=""" & ret(2) """" 
  124. getimagesize=ret 
  125. End Function 
  126. End Class
  129. '使用范例（读某目录下所有图片的宽度）： 
  130. set qswh=new qswhImg 
  132. Set fso = CreateObject("Scripting.FileSystemObject")
  133. 'Set f = fso.GetFolder(server.mappath("/update/pic_tem/")) 
  134. 'Set fc = f.Files 
  135. 'For Each f1 in fc 
  136. 'ext=fso.GetExtensionName(f1.path) 
  137. 'select case ext 
  138. 'case "gif","bmp","jpg","png": 
  139. ' arr=qswh.getImageSize(f1.path) 
  140. ' response.write "<br>" & arr(0) & " " & arr(3) & ":" & f1.name & " width:" & arr(1) & " height:" & arr(2) 
  141. 'case "swf" 
  142. ' arr=qswh.getimagesize(f1.path) 
  143. ' response.write "<br>" & arr(0) & " " & arr(3) & ":" & f1.name & " width:" & arr(1) & " height:" & arr(2) 
  144. 'end select 
  145. 'Next
  147. response.write("<HR>")
  148. show_picWH=qswh.getImageSize(server.mappath("/update/pic_tem/200852414295626.jpg"))
  149. response.write("图片路径："&server.mappath("/update/pic_tem/200852414295626.jpg")"<BR>图片格式：" & show_picWH(0) & "<BR>图片宽度：" & show_picWH(1) & "<BR>图片高度：" & show_picWH(2))
  150. Set fc=nothing 
  151. Set f=nothing 
  152. Set fso=nothing 
  153. Set qswh=nothing 
  154. %>
  156. ============================================================================
  158. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  159. '函数名：RETURN_QSWHIMG_STR
  160. '函数作用：
  161. '    配合Class qswhImg 把一张图片按比例缩小到一个值
  162. '    如果图片的尺寸小于设定值，图片则按原尺寸，不作处理
  163. '说明：
  164. '    URL 图片的地址
  165. '    WH 图片的尺寸范围
  166. '    返回 图片的 width=__ or height=__ 字符串
  167. '    调用实例：<img src="url/image.jpg" <%=call RETURN_QSWHIMG_STR("url/image.jpg",200)%> border="0">
  168. '日期：2008-06
  169. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  170. function RETURN_QSWHIMG_STR(URL,WH)
  171. on error resume next
  172. if URL="" or isnull(URL) or WH="" then exit function
  173. set qswh=new qswhImg 
  174. Set fso = CreateObject("Scripting.FileSystemObject")
  175. show_picWH=qswh.getImageSize(server.mappath("/"&URL))
  176. if cint(show_picWH(1))>=cint(show_picWH(2)) and cint(show_picWH(1))>WH then
  177.    if show_picWH(1)>WH then show_picWH_str=" width="
  178. elseif cint(show_picWH(1))<cint(show_picWH(2)) and cint(show_picWH(2))>WH then
  179.    if show_picWH(2)>WH then show_picWH_str=" height="
  180. else
  181.    show_picWH_str=""
  182. end if
  183. set fso=nothing
  184. set qswh=nothing
  185. RETURN_QSWHIMG_STR=show_picWH_str
  186. end function
feng_sundy
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
使用Stream读写存储的图像
06-26
使用Stream读写存储的图片,将图片保存到Access中.
ADODB.Stream组件Charset属性值集合
10-30
通过上述整理的字符集列表可以看出，ADODB.Stream组件支持非常广泛的字符集，涵盖了全球大多数主要语言和地区。了解这些字符集对于正确地处理国际化的文本数据至关重要。在实际应用中，选择合适的字符集有助于避免...
Adodb.Stream取得图像的高宽
网络文档(Lonz)
08-07 812
Adodb.Stream取得图像的高宽  上传图片或显示SWF的时候都希望得到它的高度和宽度基本原理使用Adodb.Stream读二进制文件然后进行解析，然后返回一数组第一个元素为类型(BMP JPG PNG GIF SWF)第二个元素为宽度{width}第三个元素为高度{height}第四个元素为width={width},height={height}式字符串Class qsw
asp用adodb.stream读取服务器上的图片通过浏览器以文件流的形式输出
好好学习，好好工作
08-12 3816
function openJpeg(filename)dim streamset stream = Server.CreateObject("ADODB.Stream")stream.mode = 3 '1－读，2－写，3－读写stream.type = 1 '1－二进制，2－文本stream.Openstream.LoadFromFile FileName         openJpeg = stream.Read()stream.Closeend functionfilename = "photo/"
通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度 (转)
csd3176的博客
12-12 121
通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度 (转)[@more@]上传图片或显示SWF的时候都希望得到它的高度和宽度 基本原理使用Adodb.Stream读二进制文件然后进行解析...
用ADODB.Stream转换
10-31
ADODB.Stream 是 ActiveX 数据对象（ADO）的一部分，用于在客户端和服务器端之间传输数据。今天，我们将讨论如何使用 ADODB.Stream 转换数据类型。 什么是 ADODB.Stream？ ADODB.Stream 是 ADO 中的一个对象，用于...
利用AdoDb.Stream对象来读取UTF-8格式的文本文件
01-20
本文将详细解析如何利用AdoDb.Stream对象来读取和写入UTF-8格式的文本文件。 首先，我们来看读取UTF-8格式文本文件的`ReadFromTextFile`函数。这个函数接受两个参数：`FileUrl`，表示文件的URL或路径，以及`CharSet...
adodb.stream
07-24
`ADODB.Stream`是Microsoft ActiveX Data Objects (ADO)中的一个核心组件，它提供了一种处理数据流的方式，无论数据是文本、二进制还是其他形式。在编程中，特别是VBScript、VBA或者Classic ASP中，`ADODB.Stream`...
asp adodb.stream对象的方法/属性
10-30
### ASP ADODB.Stream 对象的方法与属性详解 在ASP（Active Server Pages）环境中，ADODB.Stream 对象是一个非常强大的工具，它可以帮助开发者处理文件的读取、写入以及流操作。下面我们将深入探讨ADODB.Stream对象...
剖析SWF文件结构_探秘AVM运行原理
11-09
剖析SWF文件结构_探秘AVM运行原理剖析SWF文件结构_探秘AVM运行原理剖析SWF文件结构_探秘AVM运行原理
adodb.stream 取 .png 图片完整文件头信息
01-30 114
ASP adodb.stream 取 .png 图片完整文件头信息页面地址是:http://www.luffyes.com/articleview/2006-9-20/article_view_335.htm 摘要:主要目的为取 .png文件 的高宽度信息, 使用ASP完成(不用外建组件).进一步了解请查看相关文章.作用:本文使用 ASP 的内置组件 adodb.stream 取得 .png 的头
VBS、ASP 利用 Adodb.Stream 读写二进制文件
编程路
05-25 1404
根据前几篇 UTF-8 编码和转换的文章代码成果，组装了一个 VBS 和 ASP 读写二进制文件的模块，以便于 Base64 和 MD5 需要进行文件编码时使用，或其它需要用到二进制数据文件时使用： public function Varr2hexstr(a) '-------转换 Variant 数组为十六进制字符串 dim i,S For i = 0 To UBound(a) S=S & Right("00" & Hex(a(i)), 2) ...
PHP下解析swf文件头
sealbird的专栏
06-21 127
本文转自: http://www.dssky.net 近日，在CSDN论坛上 看到一个帖子，想要实现用PHP来得到swf文件帧数的功能，一些网友回复说不可能，其实是他们对swf文件格式不了解，swf文件格式规范是开放的，而 且也可以找到相当多的关于直接用PHP处理swf文件的，包括解析文件头，生成swf文件等。利用闲暇时间，我也写了一个粗陋的解析swf文件的类。 要想解析swf文件头，首...
ADODB.Stream的使用说明
海纳百川@一亩三分地
08-04 7171
Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作. （原作者不详，此为转述。）有下列方法：Cancel 方法使用方法如下Object.Cancel说明：取消执行挂起的异步 Execute 或 Open 方法的调用。Close 方法使用方法如下Object.Close：关闭对像CopyTo 方法使用方法如下Object.CopyTo(
vb6ADODB.Stream保存文件到数据库怎么实现
最新发布
06-21
5. 关闭ADODB.Stream对象和数据库连接 ``` objStream.Close objConn.Close ``` 以上代码片段是将文件保存到Access数据库中的示例，如果你使用的是其他类型的数据库，需要修改连接字符串以及SQL语句。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值