Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) FTP Upload / Download to StringBuilderDemonstrate how to upload from a Chilkat StringBuilder object, and download into a StringBuilder object.
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 ftp: TChilkatFtp2; success: Integer; sbA: TChilkatStringBuilder; bIncludeBOM: Integer; remoteFilename: WideString; sbB: TChilkatStringBuilder; bCaseSensitive: Integer; begin // This example assumes Chilkat Ftp2 to have been previously unlocked. // See Unlock Ftp2 for sample code. ftp := TChilkatFtp2.Create(Self); ftp.Hostname := 'www.my-ftp-server.com'; ftp.Username := 'mFtpLogin'; ftp.Password := 'myFtpPassword'; // Connect to the FTP server. success := ftp.ConnectOnly(); if (success <> 1) then begin Memo1.Lines.Add(ftp.LastErrorText); Exit; end; // Authenticate with the FTP server. success := ftp.LoginAfterConnectOnly(); if (success <> 1) then begin Memo1.Lines.Add(ftp.LastErrorText); Exit; end; sbA := TChilkatStringBuilder.Create(Self); sbA.LoadFile('qa_data/hamlet.xml','utf-8'); // Upload the contents of sbA to the FTP server. bIncludeBOM := 0; remoteFilename := 'hamletFromSb.xml'; success := ftp.PutFileSb(sbA.ControlInterface,'utf-8',bIncludeBOM,remoteFilename); if (success <> 1) then begin Memo1.Lines.Add(ftp.LastErrorText); Exit; end; // Download... sbB := TChilkatStringBuilder.Create(Self); success := ftp.GetFileSb(remoteFilename,'utf-8',sbB.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(ftp.LastErrorText); Exit; end; // Verify that sbA and sbB have the exact same contents. Memo1.Lines.Add('size of sbA: ' + IntToStr(sbA.Length)); bCaseSensitive := 1; if (sbA.ContentsEqualSb(sbB.ControlInterface,bCaseSensitive) = 1) then begin Memo1.Lines.Add('Contents are equal. Success.'); end else begin Memo1.Lines.Add('Contents are NOT equal. Failed.'); end; ftp.Disconnect(); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.