Devart Forums

Code: Select all

procedure TForm1.DownloadFile(const SourceFileName, DestinationFileName: string);
var
  Handle: TScSFTPFileHandle;
  Hndl: THandle;
  Attrs: TScSFTPFileAttributes;
  Stream: THandleStream;
  Buf: TBytes;
  FileBlockSize: Integer;
  ReceivedCount: Integer;
  FileOffset: Int64;
begin
  ScSFTPClient.Initialize;
  Handle := ScSFTPClient.OpenFile(SourceFileName, [foRead], nil);
  try
    Stream := nil;
    Attrs := TScSFTPFileAttributes.Create;
    try
      ScSFTPClient.RetrieveAttributesByHandle(Attrs, Handle);
      FileBlockSize := ScSFTPClient.ReadBlockSize;
      if aSize in Attrs.ValidAttributes then
        if Attrs.Size < FileBlockSize then
          FileBlockSize := Attrs.Size;

      Hndl := CreateFile(DestinationFileName, GENERIC_READ or GENERIC_WRITE, 0,
        nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
      Stream := THandleStream.Create(Hndl);

      SetLength(Buf, FileBlockSize);
      FileOffset := 0;
      repeat
        ReceivedCount := ScSFTPClient.ReadFile(Handle, FileOffset, Buf, 0, FileBlockSize);
        Stream.WriteBuffer(Buf[0], ReceivedCount);
        FileOffset := FileOffset + ReceivedCount;
      until ScSFTPClient.EOF;

    finally
      FileClose(Stream.Handle);
      Attrs.Free;
    end;
  finally
    ScSFTPClient.CloseHandle(Handle);
  end;
end;