para.cpp

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

/*
* Copyright (c) 2005,中国联通宿迁分公司移动部
* All rights reserved.
* 
* 文件名称：Para.cpp
* 文件标识：见开发文档
* 摘    要：设置登录USBS FTP服务器以及计费文件下载的相关信息
* 
* 当前版本：1.1
* 作    者：秦坤明
* 完成日期：2005年09月21日
*
* 取代版本：1.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::DirectoryListBox1Change(TObject *Sender)
{
    Ldir->Text = DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------