(Classic ASP) File Read Blocks

Demonstrates how to read a file in fixed-size blocks (except for the very last block).

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' Demonstrates how to read a file in blocks,
' which can be useful when uploading to cloud storage
' services such as Azure, S3, Google, etc.

' For this example, we're simply writing the blocks
' to an output file, and then checking to see if the
' resulting file contents equals the original file contents.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess")
set facSrc = Server.CreateObject("Chilkat.FileAccess")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess")
set facDest = Server.CreateObject("Chilkat.FileAccess")

srcPath = "qa_data/xml/hamlet.xml"
destPath = "qa_output/hamletOut.xml"

success = facSrc.OpenForRead(srcPath)
success = facDest.OpenForWrite(destPath)
' Assuming success for the example..

' How many 1024-byte blocks?  (Including 1 for the last partial block)
numBlocks = facSrc.GetNumBlocks(1024)

i = 0
Do While (i < numBlocks)
    dataBlock = facSrc.ReadBlock(i,1024)
    If (facSrc.LastMethodSuccess <> 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( facSrc.LastErrorText) & "</pre>"
        Response.End
    End If

    success = facDest.FileWrite(dataBlock)
    If (success <> 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( facDest.LastErrorText) & "</pre>"
        Response.End
    End If

    i = i + 1
Loop

facSrc.FileClose 
facDest.FileClose 

bEqual = facSrc.FileContentsEqual(srcPath,destPath)
If (bEqual <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Something went wrong!") & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "File successfully copied by blocks.") & "</pre>"

%>
</body>
</html>