{"id":233,"date":"2008-12-05T09:55:46","date_gmt":"2008-12-05T01:55:46","guid":{"rendered":""},"modified":"2014-02-27T23:00:57","modified_gmt":"2014-02-27T15:00:57","slug":"adodb-stream%e5%8f%96%e5%be%97%e5%9b%be%e5%83%8f%e7%9a%84%e9%ab%98%e5%ae%bd","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2008\/12\/05\/233.htm","title":{"rendered":"Adodb.Stream\u53d6\u5f97\u56fe\u50cf\u7684\u9ad8\u5bbd"},"content":{"rendered":"
\n

\u4e0a\u4f20\u56fe\u7247\u6216\u663e\u793aSWF\u7684\u65f6\u5019\u90fd\u5e0c\u671b\u5f97\u5230\u5b83\u7684\u9ad8\u5ea6\u548c\u5bbd\u5ea6<\/p>\n

\u57fa\u672c\u539f\u7406\u4f7f\u7528Adodb.Stream\u8bfb\u4e8c\u8fdb\u5236\u6587\u4ef6\u7136\u540e\u8fdb\u884c\u89e3\u6790\uff0c\u7136\u540e\u8fd4\u56de\u4e00\u6570\u7ec4
\n\u7b2c\u4e00\u4e2a\u5143\u7d20\u4e3a\u7c7b\u578b(BMP JPG PNG GIF SWF)
\n\u7b2c\u4e8c\u4e2a\u5143\u7d20\u4e3a\u5bbd\u5ea6{width}
\n\u7b2c\u4e09\u4e2a\u5143\u7d20\u4e3a\u9ad8\u5ea6{height}
\n\u7b2c\u56db\u4e2a\u5143\u7d20\u4e3awidth={width},height={height}\u5f0f\u5b57\u7b26\u4e32<\/p>\n

Class qswhImg
\n dim aso
\n Private Sub Class_Initialize
\n  set aso=CreateObject("Adodb.Stream")
\n  aso.Mode=3
\n  aso.Type=1
\n  aso.Open
\n End Sub
\n Private Sub Class_Terminate
\n  set aso=nothing
\n End Sub<\/p>\n

 Private Function Bin2Str(Bin)
\n  Dim I, Str
\n  For I=1 to LenB(Bin)
\n   clow=MidB(Bin,I,1)
\n   if ASCB(clow)<128 then
\n    Str = Str & Chr(ASCB(clow))
\n   else
\n    I=I+1
\n    if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
\n   end if
\n  Next
\n  Bin2Str = Str
\n End Function
\n 
\n Private Function Num2Str(num,base,lens)
\n  ‘qiushuiwuhen (2002-8-12)
\n  dim ret
\n  ret = ""
\n  while(num>=base)
\n   ret = (num mod base) & ret
\n   num = (num – num mod base)\/base
\n  wend
\n  Num2Str = right(string(lens,"0") & num & ret,lens)
\n End Function
\n 
\n Private Function Str2Num(str,base)
\n  ‘qiushuiwuhen (2002-8-12)
\n  dim ret
\n  ret = 0
\n  for i=1 to len(str)
\n   ret = ret *base + cint(mid(str,i,1))
\n  next
\n  Str2Num=ret
\n End Function
\n 
\n Private Function BinVal(bin)
\n  ‘qiushuiwuhen (2002-8-12)
\n  dim ret
\n  ret = 0
\n  for i = lenb(bin) to 1 step -1
\n   ret = ret *256 + ascb(midb(bin,i,1))
\n  next
\n  BinVal=ret
\n End Function
\n 
\n Private Function BinVal2(bin)
\n  ‘qiushuiwuhen (2002-8-12)
\n  dim ret
\n  ret = 0
\n  for i = 1 to lenb(bin)
\n   ret = ret *256 + ascb(midb(bin,i,1))
\n  next
\n  BinVal2=ret
\n End Function
\n 
\n Function getImageSize(filespec) 
\n  ‘qiushuiwuhen (2002-9-3)
\n  dim ret(3)
\n  aso.LoadFromFile(filespec)
\n  bFlag=aso.read(3)
\n  select case hex(binVal(bFlag))
\n  case "4E5089":
\n   aso.read(15)
\n   ret(0)="PNG"
\n   ret(1)=BinVal2(aso.read(2))
\n   aso.read(2)
\n   ret(2)=BinVal2(aso.read(2))
\n  case "464947":
\n   aso.read(3)
\n   ret(0)="GIF"
\n   ret(1)=BinVal(aso.read(2))
\n   ret(2)=BinVal(aso.read(2))
\n  case "535746":
\n   aso.read(5)
\n   binData=aso.Read(1)
\n   sConv=Num2Str(ascb(binData),2 ,8)
\n   nBits=Str2Num(left(sConv,5),2)
\n   sConv=mid(sConv,6)
\n   while(len(sConv)<nBits*4)
\n    binData=aso.Read(1)
\n    sConv=sConv&Num2Str(ascb(binData),2 ,8)
\n   wend
\n   ret(0)="SWF"
\n   ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))\/20)
\n   ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))\/20)
\n  case "FFD8FF":
\n   do
\n    d p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS
\n    if p1>191 and p1<196 then exit do else aso.read(binval2(aso.Read(2))-2)
\n    dp1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS
\n   loop while true
\n   aso.Read(3)
\n   ret(0)="JPG"
\n   ret(2)=binval2(aso.Read(2))
\n   ret(1)=binval2(aso.Read(2))
\n  case else:
\n   if left(Bin2Str(bFlag),2)="BM" then
\n    aso.Read(15)
\n    ret(0)="BMP"
\n    ret(1)=binval(aso.Read(4))
\n    ret(2)=binval(aso.Read(4))
\n   else
\n    ret(0)=""
\n   end if
\n  end select
\n  ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &""""
\n  getimagesize=ret
\n End Function
\nEnd Class
\n <\/p>\n

\u4f7f\u7528\u8303\u4f8b\uff08\u8bfb\u67d0\u76ee\u5f55\u4e0b\u6240\u6709\u56fe\u7247\u7684\u5bbd\u5ea6\uff09\uff1a
\n set qswh=new qswhImg<\/p>\n

 Set fso = CreateObject("Scripting.FileSystemObject")
\n Set f = fso.GetFolder(server.mappath("."))
\n Set fc = f.Files
\n For Each f1 in fc
\n  ext=fso.GetExtensionName(f1.path)
\n  select case ext
\n  case "gif","bmp","jpg","png":
\n   arr=qswh.getImageSize(f1.path)
\n   response.write "<br>" & arr(0) & " " & arr(3) & ":" & f1.name & " width:" & arr(1) & " height:" & arr(2)
\n  case "swf"
\n   arr=qswh.getimagesize(f1.path)
\n   response.write "<br>" & arr(0) & " " & arr(3) & ":" & f1.name & " width:" & arr(1) & " height:" & arr(2)
\n  end select
\n  
\n Next
\n Set fc=nothing
\n Set f=nothing
\n Set fso=nothing
\n Set qswh=nothing<\/p>\n

ps.\u5176\u4e2dswf\u90e8\u5206\u7684\u53c2\u8003\u8d44\u6599\u7531\u84dd\u8272\u63d0\u4f9b\uff0c:p<\/p>\n

\u84dd\u8272\u8865\u5145\uff1a\u7531\u4e8e flashmx \u91c7\u7528\u4e86\u65b0\u7684\u538b\u7f29\u683c\u5f0f swf\uff0c\u6240\u4ee5\u53d6 flashmx \u538b\u7f29\u683c\u5f0f\u7684 swf \u6587\u4ef6\u957f\u5bbd\u5e76\u4e0d\u4f1a\u51c6\u786e\uff0c\u89e3\u51b3\u529e\u6cd5\uff0c\u6b63\u5728\u7814\u7a76\u4e2d\u3002<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

\u4e0a\u4f20\u56fe\u7247\u6216\u663e\u793aSWF\u7684\u65f6\u5019\u90fd\u5e0c\u671b\u5f97\u5230\u5b83\u7684\u9ad8\u5ea6\u548c\u5bbd\u5ea6 \u57fa\u672c\u539f\u7406\u4f7f\u7528Adodb.Stream\u8bfb\u4e8c\u8fdb\u5236\u6587\u4ef6\u7136\u540e\u8fdb\u884c\u89e3\u6790\uff0c\u7136\u540e\u8fd4\u56de\u4e00\u6570\u7ec4 \u7b2c\u4e00\u4e2a\u5143\u7d20\u4e3a\u7c7b\u578b(BMP JPG PNG GIF SWF) \u7b2c\u4e8c\u4e2a\u5143\u7d20\u4e3a\u5bbd\u5ea6{width} \u7b2c\u4e09\u4e2a\u5143\u7d20\u4e3a\u9ad8\u5ea6{…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-233","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/233","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=233"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/233\/revisions"}],"predecessor-version":[{"id":66110,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/233\/revisions\/66110"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=233"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=233"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=233"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=233"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}