para.~cpp

阿尔卡特MSC维护工程师的福音:该软件可以实现交换机话单文件的自动备份,根据个人设定时间每日定时以FTP方式到USBS服务器上下载文件.软件运行后有详细使用说明.编译环境CB6.0

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

#include <vcl.h>
#pragma hdrstop

#include "IniFiles.hpp"

#include "Para.h"
#include "MainFrm.h"
extern AnsiString          MyTimeSet;
extern char                SysDir[150];
extern char                LocDir[150];
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TParaForm *ParaForm;
//---------------------------------------------------------------------------
__fastcall TParaForm::TParaForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TParaForm::OkClick(TObject *Sender)
{
    TIniFile *ini;
    ini = new TIniFile(ChangeFileExt( Application->ExeName, ".INI" ) );
    ini->WriteString("FtpServer", "ip", Ip->Text);
    ini->WriteString("FtpServer", "user", User->Text);
    ini->WriteString("FtpServer", "pass", Pass->Text);
    ini->WriteInteger("FtpServer", "port", StrToInt(Port->Text));
    ini->WriteString("FtpServer", "remotedir", Rdir->Text);
    ini->WriteString("FtpServer", "localdir", Ldir->Text);
    ini->WriteString("Download", "timeset", TimeSet->Text);
    ini->WriteString("Download", "startlabel", StartLabel->Text);
    ini->WriteInteger("Download", "filenamelength", StrToInt(FilenameLength->Text));
    MyTimeSet = TimeSet->Text;
    //MainForm->LogMemo->Lines->Add(MyTimeSet);
    delete ini;
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TParaForm::FormCreate(TObject *Sender)
{
    TIniFile *ini;
    ini = new TIniFile(ChangeFileExt( Application->ExeName, ".INI" ));
    Ip->Text = ini->ReadString("FtpServer", "ip", "130.34.76.34");
    User->Text = ini->ReadString("FtpServer", "user", "bill_ftp");
    Pass->Text = ini->ReadString("FtpServer", "pass", "bill_ftp");
    Port->Text = ini->ReadInteger("FtpServer", "port", 21);
    Rdir->Text = ini->ReadString("FtpServer", "remotedir", "/var/nse/mnt/secure_serveur/CDB/buffer/dbill/");
    Ldir->Text = ini->ReadString("FtpServer", "localdir", SysDir);
    TimeSet->Text = ini->ReadString("Download", "timeset", "0200");
    StartLabel->Text = ini->ReadString("Download", "startlabel", "AT");
    FilenameLength->Text = ini->ReadInteger("Download", "filenamelength", 24);
    delete ini;
}
//---------------------------------------------------------------------------

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

void __fastcall TParaForm::DirectoryListBox1DblClick(TObject *Sender)
{
    Ldir->Text = DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------

void __fastcall TParaForm::DirectoryListBox1Click(TObject *Sender)
{
    Ldir->Text = DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------