* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Author: François PIETTE
Email: francois.piette@ping.be francois.piette@rtfm.be
WebSite http://www.rtfm.be/fpiette
Copyright: You can use this software freely, at your own risks
Creation: Aug 1997
Version: 2.19
Object: Demo for TFtpClient object (RFC 959 implementation)
It is a graphical FTP client program
Compatible with Delphi 1, 2 and 3
Legal issues: Copyright (C) 1997 by François PIETTE
This software is provided 'as-is', without any express or
implied warranty. In no event will the author be held liable
for any damages arising from the use of this software.
Permission is granted to anyone to use this software for any
purpose, including commercial applications, and to alter it
and redistribute it freely, subject to the following
restrictions:
1. The origin of this software must not be misrepresented,
you must not claim that you wrote the original software.
If you use this software in a product, an acknowledgment
in the product documentation would be appreciated but is
not required.
2. Altered source versions must be plainly marked as such, and
must not be misrepresented as being the original software.
3. This notice may not be removed or altered from any source
distribution.
Updates:
Sep 13, 97 Added directory functions. Added button to show how to makes
several transferts in one session
Sep 27, 97 Change identifiers names to be more standard with other sources
Jan 10, 98 Saved edit boxes content to an IniFile, added FileSize, Quote
and RestartGet commands
Jan 25, 1998 Completely rewritten for new component version (Asynchronous)
Feb 02, 1998 V2.17 Added a checkbox to run the synchronous or asynchronous
version of the component methods.
Feb 15, 1998 V2.18 Removed useless wait unit from the use clause.
Added display of winsock information at startup.
Feb 22, 1998 V2.19 Added Append and AppendFile commands
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * TFtpReceiveForm -
TAsyncCmd
TSyncCmd
FTPTstVersion
TEMP_FILE_NAME
FtpReceiveForm
TAsyncCmd = procedure of object
TSyncCmd = function : Boolean of object
FTPTstVersion = 219
TEMP_FILE_NAME = 'FTPDIR.TXT'
FtpReceiveForm : TFtpReceiveForm