![]() |
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) 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, Ftp2, StringBuilder; ... procedure TForm1.Button1Click(Sender: TObject); var ftp: HCkFtp2; success: Boolean; sbA: HCkStringBuilder; bIncludeBOM: Boolean; remoteFilename: PWideChar; sbB: HCkStringBuilder; bCaseSensitive: Boolean; begin // This example assumes Chilkat Ftp2 to have been previously unlocked. // See Unlock Ftp2 for sample code. ftp := CkFtp2_Create(); CkFtp2_putHostname(ftp,'www.my-ftp-server.com'); CkFtp2_putUsername(ftp,'mFtpLogin'); CkFtp2_putPassword(ftp,'myFtpPassword'); // Connect to the FTP server. success := CkFtp2_ConnectOnly(ftp); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; // Authenticate with the FTP server. success := CkFtp2_LoginAfterConnectOnly(ftp); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; sbA := CkStringBuilder_Create(); CkStringBuilder_LoadFile(sbA,'qa_data/hamlet.xml','utf-8'); // Upload the contents of sbA to the FTP server. bIncludeBOM := False; remoteFilename := 'hamletFromSb.xml'; success := CkFtp2_PutFileSb(ftp,sbA,'utf-8',bIncludeBOM,remoteFilename); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; // Download... sbB := CkStringBuilder_Create(); success := CkFtp2_GetFileSb(ftp,remoteFilename,'utf-8',sbB); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; // Verify that sbA and sbB have the exact same contents. Memo1.Lines.Add('size of sbA: ' + IntToStr(CkStringBuilder_getLength(sbA))); bCaseSensitive := True; if (CkStringBuilder_ContentsEqualSb(sbA,sbB,bCaseSensitive) = True) then begin Memo1.Lines.Add('Contents are equal. Success.'); end else begin Memo1.Lines.Add('Contents are NOT equal. Failed.'); end; CkFtp2_Disconnect(ftp); CkFtp2_Dispose(ftp); CkStringBuilder_Dispose(sbA); CkStringBuilder_Dispose(sbB); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.