FTP客户端 源代码

FTP客户端源代码，可以登陆FTp，上传下载文件

//---------------------------------------------------------------------------

#include 
#pragma hdrstop

#include “code__frmMain.h“
#include “ftpc.h“
//---------------------------------------------------------------------------
#pragma package（smart_init）
#pragma resource “*.dfm“
TForm1 *Form1;

FTPINFO ftpInfo; //全局变量：FTP连接信息
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1（TComponent* Owner）
    : TForm（Owner）
{
}

//---------------------------------------------------------------------------
void __fastcall TForm1::btnLogonclick（Tobject *Sender）
{
    memset（&ftpInfo0sizeof（FTPINFO））;
    ftp_setport（21）;
    int iRet = ftp_login （&ftpInfo“10.10.11.128““123““123“NULL）;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnGetFileClick（Tobject *Sender）
{
    int iRet;
    iRet = ftp_chdir（&ftpInfo“temp“）;
    iRet = ftp_getfile （&ftpInfo“ftpfile““down.txt“）;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnLogoutClick（Tobject *Sender）
{
    ftp_bye （&ftpInfo）;      
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate（Tobject *Sender）
{
     ftp_sysstart（）;
}
//---------------------------------------------------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件         48  2007-05-11 19:54  ftpClient\down.txt

     文件      15312  2007-05-11 19:35  ftpClient\ftpc.cpp

     文件       4316  2007-05-11 18:33  ftpClient\ftpc.h

     文件       1067  2007-05-11 19:46  ftpClient\code__frmMain.h

     文件       1018  2007-05-11 19:47  ftpClient\code__frmMain.dfm

     文件       1461  2007-05-11 19:49  ftpClient\code__frmMain.cpp

     文件        876  2007-05-11 09:13  ftpClient\ftpClient.res

     文件        933  2007-05-11 09:14  ftpClient\ftpClient.cpp

     文件       3862  2007-05-11 09:14  ftpClient\ftpClient.bpr

     文件      30208  2007-05-11 20:00  ftpClient\ftpClient.exe

     目录          0  2007-05-08 13:59  ftpClient

----------- ---------  ---------- -----  ----

                59101                    11