Read
バイナリ形式でデータ取得
文法
Streamオブジェクト.Read ([Byte])
パラメータ
Byte : 読み込みバイト数/定数
機能説明
バイナリ形式でデータを読み込む
定数
| 定数 | 値 | 説明 |
|---|
| adReadAll | -1 | カレント位置から全て読み込む |
使用例
<![CDATA[
<%
Dim objSt, objSt2
Set objSt = Server.CreateObject("ADODB.Stream")
Set objSt2 = Server.CreateObject("ADODB.Stream")
objSt.LoadFromFile "D:\test\sample.png"
objSt2.Write = objSt.Read
saveFile = "D:\test\sample2.png"
objSt2.SaveToFile SaveFile, adSaveCreateOverwrite
objSt2.LoadFromFile SaveFile
Response.Write "<img src=" & SaveFile & ">"
'オブジェクトを閉じる
objSt.Close
Set objSt = Nothing
%>
]]>
Topへ