'Read/Store GIF file in ByteArray
intFile = FreeFile
Open IMG_FILE_GIF For Binary As #intFile
ImgLen = LOF(intFile)
ReDim ImgBuff(ImgLen) As Byte
Get #intFile, , ImgBuff()
Close #intFileSet ADOprm = ADOCmd.CreateParameter(, adLongVarBinary, adParamInput, ImgLen)
ADOCmd.Parameters.Append ADOprm
ADOprm.AppendChunk ImgBuff()
ADOCmd.Execute
intFile = FreeFile
Open IMG_FILE_GIF For Binary As #intFile
ImgLen = LOF(intFile)
ReDim ImgBuff(ImgLen) As Byte
Get #intFile, , ImgBuff()
Close #intFileSet ADOprm = ADOCmd.CreateParameter(, adLongVarBinary, adParamInput, ImgLen)
ADOCmd.Parameters.Append ADOprm
ADOprm.AppendChunk ImgBuff()
ADOCmd.Execute
解决方案 »
- 操作数据库经常出现"Timeout Expired",请问有什么彻底的解决和避错的方法?
- datagrid 到ACCESS
- 求一条SQL语句!急ing,在线等待!
- 如何在datagrid中设置不同标题列的字体
- VB保存ASP文件的输出 用Wininet API函数实现
- 大哥们快来救救我啊,我真的太惨了:(
- About SetSystemTime,Help!
- 快快拿分(马上给分,在线等待给分)
- 北航客机上有我朋友的朋友~!我很悲痛!散分!
- 例子代码:右健选择ListBox或者ListView的项目
- Wscript 里的 sendkeys 问题
- 如何作一个工资核算的编译器.可以自由设定不同字段的算法关系????
给我200分告诉我信箱!我就发给你!