ASP adodb.stream 取 Win32 .bmp 图片完整文件头信息 By shawl.qiu

最新推荐文章于 2013-08-21 18:02:38 发布
最新推荐文章于 2013-08-21 18:02:38 发布
阅读量3.2k 收藏
点赞数
文章标签： asp image colors compression structure file
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/btbtd/article/details/1228908
版权

ASP adodb.stream 取 Win32 .bmp 图片完整文件头信息 By shawl.qiu


摘要:
N久前,我就想用 ASP 取得图片的宽高信息, 但发现这不是一件简单的事情, 非常非常复杂...
因为当时没有需求需要去弄这些, 就不了了之...
这阵子需要完整掌握这个技术, so.......就下决心搞了..

现在已经把 .bmp 这个格式完整完美的搞定喽, 接下来会把 .gif, .jpg, .jpeg, .png, .swf 这些格式完完整整的掌握, 不掌握不行呀...

本文作用:
演示了用ASP 的内置组件 adodb.stream 取得 .bmp 的完整文件头信息, 包括文件大小, 宽度, 高度等.

应用到的技术:
一个转二进制字节为数值的函数
一个转二进制字节为字符串的函数
内置组件 adodb.stream

目录:
1. 主内容: 完整例子
2. 参考文献
3. 预览

shawl.qiu
2006-09-16
http://blog.csdn.net/btbtd

1. 主内容: 完整例子
  1. linenum
  2. <%
  3.     dim file:file=server.MapPath("a.bmp")
  4.     dim temp
  5.     dim stm
  6.     set stm=createObject("adodb.stream")
  7.         with stm
  8.             .type = 1
  9.             .open
  10.             .loadFromFile file
  11.             temp=.read
  12.             .close
  13.         end with    
  14.     set stm=nothing
  15.         response.write "bmp file info ("&file&"):<br/>"
  16.         response.write "<br/>#1-2 signature, must be BM: "&binToStr(midB(temp,1,2))
  17.         response.write "<br/>#3-6 size of BMP file in bytes (unreliable): "&binToNum(midB(temp,3,4))
  18.         response.write "<br/>#7-10 reserved, must be zero: "&binToNum(midB(temp,7,4))
  19.         response.write "<br/>#11-14 offset to start of image data in bytes : "&binToNum(midB(temp,11,4))
  20.         response.write "<br/>#15-18 size of BITMAPINFOHEADER structure, must be 40 : "&binToNum(midB(temp,15,4))
  21.         response.write "<br/>#19-22 image width in pixels : "&binToNum(midB(temp,19,4))
  22.         response.write "<br/>#23-26 image height in pixels : "&binToNum(midB(temp,23,4))
  23.         response.write "<br/>#27-28 number of planes in the image, must be 1 : "&binToNum(midB(temp,27,1))
  24.         response.write "<br/>#29-30 number of bits per pixel (1, 4, 8, or 24) : "&binToNum(midB(temp,29,1))
  25.         response.write "<br/>#31-34 compression type (0=none, 1=RLE-8, 2=RLE-4) : "&binToNum(midB(temp,31,4))
  26.         response.write "<br/>#35-38 size of image data in bytes (including padding) : "&binToNum(midB(temp,35,4))
  27.         response.write "<br/>#39-42 horizontal resolution in pixels per meter (unreliable) : "&binToNum(midB(temp,39,4))
  28.         response.write "<br/>#43-46 vertical resolution in pixels per meter (unreliable) : "&binToNum(midB(temp,43,4))
  29.         response.write "<br/>#47-50 number of colors in image, or zero : "&binToNum(midB(temp,47,4))
  30.         response.write "<br/>#51-54 number of important colors, or zero : "&binToNum(midB(temp,51,4))
  31.     private function binToNum(bin)
  32.     '二进制转为 Numeric
  33.         dim i:binToNum=0
  34.         for i=lenB(bin) to 1 step -1
  35.             binToNum=binToNum*256+ascB(midB(bin,i,1))
  36.         next 'shawl.qiu code'
  37.     end function
  38.     
  39.     private function binToStr(bin)
  40.     '二进制转为 string
  41.         dim i, iByt, sByt, bLen:bLen=lenB(bin)
  42.         for i=1 to bLen
  43.             sByt=midB(bin,i,1):iByt=ascB(sByt)
  44.             if iByt<128 then
  45.                 binToStr=binToStr&chr(iByt)
  46.             else:i=i+1
  47.                 if i<=bLen then binToStr=binToStr&chr(ascW(sByt&sByt))
  48.             end if
  49.         next 'shawl.qiu'
  50.     end function
  51. %>

2. 参考文献
https://secure.wikimedia.org/wikipedia/zh/wiki/BMP
http://www.fastgraph.com/help/bmp_header_format.html

3. 预览
bmp file info (G:/My Documents/Index_ASP_mssql/a.bmp):

#1-2 signature, must be BM: BM
#3-6 size of BMP file in bytes (unreliable): 589878
#7-10 reserved, must be zero: 0
#11-14 offset to start of image data in bytes : 54
#15-18 size of BITMAPINFOHEADER structure, must be 40 : 40
#19-22 image width in pixels : 512
#23-26 image height in pixels : 384
#27-28 number of planes in the image, must be 1 : 1
#29-30 number of bits per pixel (1, 4, 8, or 24) : 24
#31-34 compression type (0=none, 1=RLE-8, 2=RLE-4) : 0
#35-38 size of image data in bytes (including padding) : 589824
#39-42 horizontal resolution in pixels per meter (unreliable) : 0
#43-46 vertical resolution in pixels per meter (unreliable) : 0
#47-50 number of colors in image, or zero : 0
#51-54 number of important colors, or zero : 0
 


btbtd
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
读取bmp图片的文件头，与位图信息头
Tianrier的博客
12-02 7318
#define _CRT_SECURE_NO_WARNINGS #include <string> #include <Windows.h> void eee(FILE* fp) { BITMAPFILEHEADER bf = {}; BITMAPINFOHEADER bi = {}; fread(&bf, 1, sizeof(bf), fp); fread(&bi,
24位bmp图片文件头、信息头的二进制数据
ezhong0812的专栏
08-04 9564
不知道第几次看这个了，今天再次看的时候 发现又回到了晕晕乎乎的感觉 用PS新建了10*10像素的24位bmp图片，用UE打开仔细瞧瞧 -------------------------------------------------------------以下文件头 42 4D              BM一直不变 78 01 00 00    图片大小 00 00
ASP adodb.stream 取 .png 图片完整文件头信息 By shawl.qiu
星☆空 | 对生活要知足,学习要不知足,为人处事要知不足. 卍 ♂ | ♀ 卐 - 科技以人为本.
09-17 1898
/*<![CDATA[*/ /* UBB */code, quote, cite { line-height: 150%; }.u_code, .marginE, .u_quote, .marginQuote, .u_cite, .cite { padding:15px 10px; margin:0px auto; overflow:auto; wi
从图片数据获取图片格式信息
StudyRecord的专栏
03-29 2439
+ (NSString *)MIMETypeForImageData:(NSData *)data {      if (!data)  return nil;            uint8_t c;      [data getBytes:&c length:1];            switch (c) {          case 0xFF:
通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度
qiushuiwuhen的专栏
09-08 1557
上传图片或显示SWF的时候都希望得到它的高度和宽度基本原理使用Adodb.Stream读二进制文件然后进行解析，然后返回一数组第一个元素为类型(BMP JPG PNG GIF SWF)第二个元素为宽度{width}第三个元素为高度{height}第四个元素为width={width},height={height}式字符串Class qswhImg dim aso Private Sub
获取照片的属性信息
热门推荐
08-21 1万+
获取照片的属性信息，比如gps，拍摄时间等。
asp之基于adodb.stream的文件操作类
10-30
asp之基于ADODB.Stream的文件操作类是 ASP 编程语言中的一种文件操作类，利用ADODB.Stream对象实现文件读写功能。该类提供了读取文件和写入文件两个主要功能，能够满足在不支持FSO的主机上也可以读写文件的需求。 ...
使用asp下的adodb.stream 下载文件而不是打开
10-30
在了解如何使用ASP技术结合ADODB.Stream对象来实现文件的下载而不是直接在浏览器中打开之前，我们首先需要了解一些基础的概念。当用户在浏览器的地址栏输入一个文件的URL路径时，浏览器会根据文件类型决定如何处理该...
asp adodb.stream对象的方法/属性
10-30
### ASP ADODB.Stream 对象的方法与属性详解 在ASP（Active Server Pages）环境中，ADODB.Stream 对象是一个非常强大的工具，它可以帮助开发者处理文件的读取、写入以及流操作。下面我们将深入探讨ADODB.Stream对象...
ADODB.Stream组件Charset属性值集合
10-30
### ADODB.Stream组件Charset属性值集合详解 #### 一、引言 在处理文本数据时，字符集（Charset）的选择至关重要。不同的字符集用于表示不同的语言和地区特定的字符。ADODB.Stream组件是Microsoft ActiveX Data ...
用ADODB.Stream转换
10-31
ADODB.Stream 是 ActiveX 数据对象（ADO）的一部分，用于在客户端和服务器端之间传输数据。今天，我们将讨论如何使用 ADODB.Stream 转换数据类型。 什么是 ADODB.Stream？ ADODB.Stream 是 ADO 中的一个对象，用于...
SQLAlchemy-2.0.31-cp38-cp38-musllinux_1_2_x86_64.whl
08-31
SQLAlchemy 是一个 SQL 工具包和对象关系映射（ORM）库，用于 Python 编程语言。它提供了一个高级的 SQL 工具和对象关系映射工具，允许开发者以 Python 类和对象的形式操作数据库，而无需编写大量的 SQL 语句。SQLAlchemy 建立在 DBAPI 之上，支持多种数据库后端，如 SQLite, MySQL, PostgreSQL 等。 SQLAlchemy 的核心功能： 对象关系映射（ORM）： SQLAlchemy 允许开发者使用 Python 类来表示数据库表，使用类的实例表示表中的行。 开发者可以定义类之间的关系（如一对多、多对多），SQLAlchemy 会自动处理这些关系在数据库中的映射。 通过 ORM，开发者可以像操作 Python 对象一样操作数据库，这大大简化了数据库操作的复杂性。 表达式语言： SQLAlchemy 提供了一个丰富的 SQL 表达式语言，允许开发者以 Python 表达式的方式编写复杂的 SQL 查询。 表达式语言提供了对 SQL 语句的灵活控制，同时保持了代码的可读性和可维护性。 数据库引擎和连接池： SQLAlchemy 支持多种数据库后端，并且为每种后端提供了对应的数据库引擎。 它还提供了连接池管理功能，以优化数据库连接的创建、使用和释放。 会话管理： SQLAlchemy 使用会话（Session）来管理对象的持久化状态。 会话提供了一个工作单元（unit of work）和身份映射（identity map）的概念，使得对象的状态管理和查询更加高效。 事件系统： SQLAlchemy 提供了一个事件系统，允许开发者在 ORM 的各个生命周期阶段插入自定义的钩子函数。 这使得开发者可以在对象加载、修改、删除等操作时执行额外的逻辑。
slim-0.7.0a1-py3-none-any.whl
08-31
whl软件包，直接pip install安装即可
lxml-5.0.1-cp310-cp310-win32.whl
最新发布
08-31
lxml 是一个用于 Python 的库，它提供了高效的 XML 和 HTML 解析以及搜索功能。它是基于 libxml2 和 libxslt 这两个强大的 C 语言库构建的，因此相比纯 Python 实现的解析器（如 xml.etree.ElementTree），lxml 在速度和功能上都更为强大。 主要特性 快速的解析和序列化：由于底层是 C 实现的，lxml 在解析和序列化 XML/HTML 文档时非常快速。 XPath 和 CSS 选择器：支持 XPath 和 CSS 选择器，这使得在文档中查找特定元素变得简单而强大。 清理和转换 HTML：lxml 提供了强大的工具来清理和转换不规范的 HTML，比如自动修正标签和属性。 ETree API：提供了类似于 ElementTree 的 API，但更加完善和强大。 命名空间支持：相比 ElementTree，lxml 对 XML 命名空间提供了更好的支持。
SQLAlchemy-2.0.31-cp38-cp38-musllinux_1_2_aarch64.whl
08-31
SQLAlchemy 是一个 SQL 工具包和对象关系映射（ORM）库，用于 Python 编程语言。它提供了一个高级的 SQL 工具和对象关系映射工具，允许开发者以 Python 类和对象的形式操作数据库，而无需编写大量的 SQL 语句。SQLAlchemy 建立在 DBAPI 之上，支持多种数据库后端，如 SQLite, MySQL, PostgreSQL 等。 SQLAlchemy 的核心功能： 对象关系映射（ORM）： SQLAlchemy 允许开发者使用 Python 类来表示数据库表，使用类的实例表示表中的行。 开发者可以定义类之间的关系（如一对多、多对多），SQLAlchemy 会自动处理这些关系在数据库中的映射。 通过 ORM，开发者可以像操作 Python 对象一样操作数据库，这大大简化了数据库操作的复杂性。 表达式语言： SQLAlchemy 提供了一个丰富的 SQL 表达式语言，允许开发者以 Python 表达式的方式编写复杂的 SQL 查询。 表达式语言提供了对 SQL 语句的灵活控制，同时保持了代码的可读性和可维护性。 数据库引擎和连接池： SQLAlchemy 支持多种数据库后端，并且为每种后端提供了对应的数据库引擎。 它还提供了连接池管理功能，以优化数据库连接的创建、使用和释放。 会话管理： SQLAlchemy 使用会话（Session）来管理对象的持久化状态。 会话提供了一个工作单元（unit of work）和身份映射（identity map）的概念，使得对象的状态管理和查询更加高效。 事件系统： SQLAlchemy 提供了一个事件系统，允许开发者在 ORM 的各个生命周期阶段插入自定义的钩子函数。 这使得开发者可以在对象加载、修改、删除等操作时执行额外的逻辑。
高清版计算机系统结构大题精讲视频讲义.pdf
08-31
计算机组成原理： 计算机的基本组成和功能 数据表示和运算（包括二进制、十六进制、ASCII码等） 指令集和指令周期 存储器层次结构（包括缓存、主存、辅存等） 输入输出系统 计算机体系结构： 体系结构的基本概念和设计原则 并行处理和并行算法 流水线技术 多核处理器和众核处理器 存储体系结构 操作系统： 操作系统的基本概念、功能和组成 进程管理和线程管理 存储管理（包括虚拟内存、分页、分段等） 文件系统 设备管理和I/O控制
vb6ADODB.Stream保存文件到数据库怎么实现
06-21
在VB6中使用ADODB.Stream对象将文件保存到数据库中可以分为以下步骤： 1. 声明ADODB.Stream对象 ``` Dim objStream As New ADODB.Stream ``` 2. 打开ADODB.Stream对象 ``` objStream.Type = adTypeBinary objStream.Open ``` 3. 读取文件内容并写入ADODB.Stream对象 ``` Dim strFilePath As String strFilePath = "C:\example\file.txt" objStream.LoadFromFile strFilePath ``` 4. 将ADODB.Stream对象中的内容保存到数据库中 ``` Dim objConn As New ADODB.Connection Dim strSql As String objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\example\db.mdb" strSql = "INSERT INTO [Table] ([FileName], [FileData]) VALUES ('file.txt', ?)" Dim objCmd As New ADODB.Command With objCmd .ActiveConnection = objConn .CommandText = strSql .Parameters.Append .CreateParameter("FileData", adLongVarBinary, adParamInput, , objStream.Read) .Execute End With ``` 5. 关闭ADODB.Stream对象和数据库连接 ``` objStream.Close objConn.Close ``` 以上代码片段是将文件保存到Access数据库中的示例，如果你使用的是其他类型的数据库，需要修改连接字符串以及SQL语句。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值