FTP-клиент. Гайсина Л.Ф. - 30 стр.

                                                       Приложение А
                                                       (справочное)
                                                     Программный код
                                                               {
                                                                d=oo->FileName;
#include 
                                                                for (i=d.Length(); i>=1 ; i--)
#pragma hdrstop
                                                                  {if (d[i]!='\\')
#include "UFtp.h"
                                                                      {s+=d[i];} else {break;}
#pragma package(smart_init)
                                                                  }
#pragma resource "*.dfm"
                                                                ff=s;
TForm1 *Form1;
                                                                for (i=s.Length(); i>=1 ; i--)
int i,k=0;
                                                                   {ff[s.Length()-i+1]=s[i];}
__fastcall TForm1::TForm1(TComponent* Owner)
                                                                Edit3->Text=ff;
        : TForm(Owner)
                                                                f->Upload(oo->FileName,ff);
{
                                                                ll->Items->Add(ff);
}
                                                               }
void __fastcall TForm1::ConnectClick(TObject *Sender)
                                                              } else ShowMessage("Ïîäêëþ÷åíèå íå ïðîèçîøëî");
{
                                                            }
  try
                                                            void __fastcall TForm1::DeleteFClick(TObject *Sender)
   {
                                                            {
     f->Host=Edit1->Text;
                                                             if (f->Connected)
     f->Connect();
                                                             {
     ll->Clear();
                                                             if (ll->Items->Strings[ll->ItemIndex]!="")
     f->Nlist();
                                                              {
   }
                                                               f->Delete(ll->Items->Strings[ll->ItemIndex]);
  catch(ESockError&)
                                                               ll->Items->Delete(ll->ItemIndex);
  {
                                                              }
    ShowMessage("Âîçìîæíî ïîäêëþ÷åíèå ïðîèçîøëî"
                                                             } else ShowMessage("Ïîäêëþ÷åíèå íå ïðîèçîøëî");
             " èëè âû íå ïîäêëþ÷åíû ê ëîêàëüíîé ñåòè ");
                                                            }
  }
                                                            void __fastcall TForm1::llDblClick(TObject *Sender)
}
                                                            {
void __fastcall TForm1::DisconnectClick(TObject
                                                             try
*Sender)
                                                             {
{
                                                                if (ll->Items->Strings[ll->ItemIndex]==".."){i=1;}
   f->Disconnect();
                                                                if (i!=0)
}
                                                                {
void __fastcall TForm1::fListItem(AnsiString Listing)
                                                                 if (ll->Items->Strings[ll->ItemIndex]=="..") {k--;}
{
                                                                   else {k++;}
   ll->Items->Add(Listing);
                                                                   f->ChangeDir(ll->Items->Strings[ll->ItemIndex]);
}
                                                                 ll->Clear();
void __fastcall TForm1::DownFClick(TObject *Sender)
                                                                 if (k!=0)
{
                                                                   {ll->Items->Add("..");}
 if (f->Connected)
                                                                 f->Nlist();
 {
                                                                }
  if (SaveDialog1->Execute())
                                                             }
   {
                                                             catch(...)
    if (ll->Items->Strings[ll->ItemIndex]!="")
                                                             {
      {SaveDialog1->FileName=ll->Items->Strings[ll-
                                                               ShowMessage("Âîçìîæíî Âû ïûòàåòåñü 'çàéòè'"
>ItemIndex];
                                                               " â ôàèë, ýòîãî íåëüçÿ, äëÿ ñêà÷èâàíèÿ íàæìèòå êíîïêó
       f->Download(ll->Items->Strings[ll-
                                                            'Ñêà÷àòü'");
>ItemIndex],SaveDialog1->FileName);
                                                             }
      }
                                                            }
   }
                                                            void __fastcall TForm1::FormKeyPress(TObject
 } else ShowMessage("Ïîäêëþ÷åíèå íå ïðîèçîøëî");
                                                            *Sender, char &Key)
}
                                                            {
void __fastcall TForm1::UploadClick(TObject *Sender)
                                                              if (Key==13)
{
                                                              {
  String s,d,ff;
                                                                llDblClick(Sender);
  if (f->Connected)
                                                              }
   {
    if (oo->Execute())



                                                                                                                    Лист

                                                                                                                7

 30