(Delphi ActiveX) 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 for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
stream: TChilkatStream;
success: Integer;

begin
stream := TChilkatStream.Create(Self);

stream.SourceFile := 'qa_data/hamlet.xml';
stream.SinkFile := 'qa_output/hamlet_copy.xml';

success := stream.RunStream();
if (success <> 1) then
  begin
    Memo1.Lines.Add(stream.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('File copied.');
end;