Perl

FTP Download File to a Stream

Demonstrates how to FTP download a file to a Chilkat stream. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example assumes the Chilkat FTP2 API to have been previously unlocked.
# See FTP2 Unlock Sample for sample code.

my $ftp = Chilkat2::Ftp2->new;

$ftp->Hostname('my-ftp-server.com');
$ftp->Port(21);
$ftp->Username('mFtpLogin');
$ftp->Password('myFtpPassword');
$ftp->AuthTls(1);
$ftp->Passive(1);

# Connect and login to the FTP server using TLS.
my $success = $ftp->Connect();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# Move to the sub-directory (from the FTP user's home directory) where the file is located.
$success = $ftp->ChangeRemoteDir('temp');
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# Stream to this local file:
my $streamObj = Chilkat2::Stream->new;
$streamObj->SinkFile('c:/temp/qa_output/penguins2.jpg');

$success = $ftp->GetFileToStream('penguins2.jpg', $streamObj);
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

$ftp->Disconnect();

print "Success.\n";