(DataFlex) Copy a File using a Stream

Nobody would actually copy a file using this method. The purpose of this example is to demonstrate the SourceFile and SinkFile properties, and the RunStream method.

When RunStream is called, the source is read until the end-of-stream condition occurs. All incoming data is copied to the stream's sink. In this example the sink is also a file. A typical application might employ a file as the source or sink, but not both. Usually one side of the stream will be the application itself reading or writing, or perhaps another stream object.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoStream
    Boolean iSuccess
    String sTemp1

    Get Create (RefClass(cComChilkatStream)) To hoStream
    If (Not(IsComObjectCreated(hoStream))) Begin
        Send CreateComObject of hoStream
    End

    Set ComSourceFile Of hoStream To "qa_data/hamlet.xml"
    Set ComSinkFile Of hoStream To "qa_output/hamlet_copy.xml"

    Get ComRunStream Of hoStream To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoStream To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "File copied."


End_Procedure