branches/FeliCa2Money-1/MainForm.cpp

/*
 * FeliCa2Money
 *
 * Copyright (C) 2001-2007 Takuya Murakami
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

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

#include <vcl.h>
#pragma hdrstop
#include <Registry.hpp>
#include <ShellApi.h>

#include "MainForm.h"
#include "Convert.h"
#include "Card.h"
#include "SfcPeep.h"

#include "Edy.h"
#include "Suica.h"
#include "Nanaco.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMForm *MForm;
//---------------------------------------------------------------------------
__fastcall TMForm::TMForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMForm::FormShow(TObject *Sender)
{
    SfcPeep = new SFCPeep;

    LoadRegistry();
}
//---------------------------------------------------------------------------
/**
   @brief �R���o�[�g���s
   @param[in] card Card �N���X

   Convert::Convert �������o���A�J�[�h���������AOFX �t�@�C�������A
   Money �N�������s����
*/
void TMForm::doConvert(Card *card)
{
    char tmppath[1024];
    GetTempPath(sizeof(tmppath), tmppath);

    AnsiString t = tmppath;
    AnsiString ofxfile = t + "FeliCa2Money.ofx";
    AnsiString tmpfile = t + "FeliCa2Money.csv";

    SfcPeep->SetSfcPeepPath(SFCPeepPath);
    SfcPeep->SetTempFile(tmpfile);

    Converter c;
    c.Convert(card, ofxfile);

    delete card;
}
//---------------------------------------------------------------------------
/// Edy �{�^���N���b�N
void __fastcall TMForm::ButtonConvertEdyClick(TObject *Sender)
{
    doConvert(new EdyCard);
}

//---------------------------------------------------------------------------
/// Suica �{�^���N���b�N
void __fastcall TMForm::ButtonConvertSuicaClick(TObject *Sender)
{
    doConvert(new SuicaCard);
}
//---------------------------------------------------------------------------

void __fastcall TMForm::BtnConvertNanacoClick(TObject *Sender)
{
    doConvert(new NanacoCard);
}
//---------------------------------------------------------------------------
/// �I���{�^���N���b�N
void __fastcall TMForm::ButtonQuitClick(TObject *Sender)
{
    Application->Terminate();
}
//---------------------------------------------------------------------------
/**
   @brief ���W�X�g��������������

   �������� (SFCPeep���p�X��)����������
*/
void TMForm::LoadRegistry(void)
{
    // ���W�X�g��������������������
    TRegistry *reg = new TRegistry();

    reg->RootKey = HKEY_CURRENT_USER;
    reg->OpenKey("\\Software\\Takuya Murakami\\FeliCa2Money", true);

    SFCPeepPath = reg->ReadString("SFCPeepPath");
    if (SFCPeepPath.IsEmpty()) {
        SFCPeepPath = "c:\\Program Files\\DENNO NET\\SFCPeep\\SFCPeep.exe";
    }
}
//---------------------------------------------------------------------------
/**
   @brief ���W�X�g����������

   �������� (SFCPeep���p�X��)�����W�X�g������������
*/
void TMForm::SaveRegistry(void)
{
    TRegIniFile *ini;

    // ���W�X�g��������������
    TRegistry *reg = new TRegistry();

    reg->RootKey = HKEY_CURRENT_USER;
    reg->OpenKey("\\Software\\Takuya Murakami\\FeliCa2Money", true);

    reg->WriteString("SFCPeepPath", SFCPeepPath);
}

//---------------------------------------------------------------------------
/// �w���v�\��
void __fastcall TMForm::ButtonHelpClick(TObject *Sender)
{
    AnsiString doc = ExtractFilePath(Application->ExeName) +
        "Felica2Money.html";

    ShellExecute(NULL, "open", doc.c_str(),
                 NULL, NULL, SW_SHOWDEFAULT);
}
//---------------------------------------------------------------------------
/// �����{�^���N���b�N
void __fastcall TMForm::ButtonConfigClick(TObject *Sender)
{
    OpenDialog->FileName = SFCPeepPath;
    if (OpenDialog->Execute()) {
        SFCPeepPath = OpenDialog->FileName;
        SaveRegistry();
    }   
}
//---------------------------------------------------------------------------