![]() |
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) Save String Variable to File on FTP ServerSave the contents of a string variable to a file on an FTP server.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Ftp2; ... procedure TForm1.Button1Click(Sender: TObject); var ftp: HCkFtp2; success: Boolean; fileContents: PWideChar; remoteFilename: PWideChar; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. ftp := CkFtp2_Create(); CkFtp2_putHostname(ftp,'ftp.example.com'); CkFtp2_putUsername(ftp,'login'); CkFtp2_putPassword(ftp,'password'); // Connect and login to the FTP server. success := CkFtp2_Connect(ftp); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; // Change to the remote directory where the existing file is located. success := CkFtp2_ChangeRemoteDir(ftp,'junk'); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; // Upload the contents of a string to a remote file. fileContents := 'To be, or not to be: that is the question.'; remoteFilename := 'hamletQuote.txt'; success := CkFtp2_PutFileFromTextData(ftp,remoteFilename,fileContents); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; success := CkFtp2_Disconnect(ftp); Memo1.Lines.Add('String Uploaded!'); CkFtp2_Dispose(ftp); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.