Delphi ActiveX

Upload Text to an FTP Server (StringBuilder)

Demonstrates the Chilkat Ftp2.PutFileSb method, which encodes the text in a StringBuilder and uploads it to a remote path. The arguments are the StringBuilder, the charset, whether to include a byte-order mark, and the remote file path.

Background: The text-oriented upload: assemble a document — CSV, config, JSON — in a StringBuilder and the method handles encoding as it writes. The charset governs the bytes actually stored, and the byte-order-mark flag is useful when a consuming Windows application expects a BOM.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
ftp: TChilkatFtp2;
sb: TChilkatStringBuilder;
includeBom: Integer;

begin
success := 0;

//  Demonstrates the Ftp2.PutFileSb method, which encodes the text in a StringBuilder and uploads
//  it to a remote path.  The 1st argument is the StringBuilder, the 2nd is the charset, the 3rd
//  selects whether a byte-order mark is included, and the 4th is the remote file path.

ftp := TChilkatFtp2.Create(Self);

ftp.Hostname := 'ftp.example.com';
ftp.Username := 'myFtpLogin';

//  Normally you would not hard-code the password in source.  You should instead obtain it
//  from an interactive prompt, environment variable, or a secrets vault.
ftp.Password := 'myPassword';

success := ftp.Connect();
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

//  Build the text to upload.
sb := TChilkatStringBuilder.Create(Self);
sb.Append('name,quantity' + #10);
sb.Append('widgets,42' + #10);

//  Upload as UTF-8 without a byte-order mark.
includeBom := 0;
success := ftp.PutFileSb(sb.ControlInterface,'utf-8',includeBom,'public_html/inventory.csv');
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('Uploaded text file.');

success := ftp.Disconnect();
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;