![]() |
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) Using the FTP Session LogThe Chilkat FTP component can keep a session log if the KeepSessionLog property is turned on. This is helpful in debugging problems. Chilkat support will usually ask for a session log when working to resolve your problem, because it contains a log of the exact commands sent to the FTP server, and the exact responses received.
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; localFilename: 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'); // Set the KeepSessionLog property in order to keep a session log. // The session log will continuously grow in memory. The // ClearSessionLog method may be called to clear it. The session // logging may be turned on/off at any point. CkFtp2_putKeepSessionLog(ftp,True); // 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; // To clear the SessionLog at any point, call ClearSessionLog: // call ftp.ClearSessionLog(); // Append moreHamlet.txt to hamlet.txt on the FTP server. localFilename := 'moreHamlet.txt'; remoteFilename := 'hamlet.txt'; success := CkFtp2_AppendFile(ftp,localFilename,remoteFilename); if (success <> True) then begin Memo1.Lines.Add(CkFtp2__lastErrorText(ftp)); Exit; end; success := CkFtp2_Disconnect(ftp); // Display the entire session log: Memo1.Lines.Add(CkFtp2__sessionLog(ftp)); Memo1.Lines.Add('File Appended!'); CkFtp2_Dispose(ftp); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.